Процедуры и функции для строк, Написать программу, которая будет... Опции

[RastamaN]

Написать программу, которая будет выводть значения типа string и определять, является ли каждое из них правильным идентификатором, удовлетворяющим требованиям Паскаля. Напомним вкратце правила построения имен. Всякое имя должно содержать от 1 до 127 литер; первой литерой должна быть буква (строчная или прописная); любая другая литера (начиня со второй) может быть буквой, цифрой (от 0 до 9) или знаком подчеркивания. Если обнаружена ошибка, необходимо выдать сообщение, квалифицирующее ее.

Также надо усовершенствовать программу так, чтобы она умела распознать служебные слова Паскаля и отвергать попытки их предъявления. Для простоты ораничьте набор служебных слов, взяв за основу только некоторые из них.


Знаю, что задача простая, но в школе мы, к моему глубокому сожалению, Бейсик проходили..

Помогите, пожалуйста, завтра аттестация!!!

[Altair]

program Untitled;
var
 s:string;
 i:byte;
 b:boolean;
 mc:set of char;
 ms:set of char;
begin
 mc:=['1'..'9','0'];
 ms:=['a'..'z','A'..'Z','_'];
 b:=true;
 readln(s);
 if not (s[1] in ms) then b:=false;
 for i:=2 to length(s) do
   if not((s[i] in mc) or (s[i] in ms)) then b:=false;
 if b then writeln('ind.') else writeln('not ind');
 readln;

end.

ну вольво те код привел получше даже, я просто для скорости набросал. ЧТо бы тебя раком не казнили, что-то меня тебя жалко

Сообщение отредактировано: Altair - 30.10.2005 18:10