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

[RastamaN]

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

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


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

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

[RastamaN]

Блин, ну подскажите кто-нть решение, меня ж завтра раком казнят!!!

[volvo]

Ну, вот тебе набросок:

begin
  readln(s);
  if length(s) <= 127 then
    if upcase(s[1]) in ['A' .. 'Z', '_'] then begin
      i := 2;
      while (upcase(s[i]) in ['0' .. '9', 'A' .. 'Z', '_']) and
            (i <= length(s)) do inc(i);
      if i > length(s) then { Печатать "ok"  }
      else { Печатать "Ошибка в символе №i" }

    end
    else { Печатать "Неправильный первый символ" }
  else { Печатать "Слишком длинная строка" }
end.

Кстати,

первой литерой должна быть буква (строчная или прописная);

- ложь чистая. Почему подчеркивание не может быть?

[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

[RastamaN]

Благодарствую!