Решаем задачи Абрамян на Паскале. Param30

Param30. Описать функцию IsIdent( $S$ ) целого типа, проверяющую, является ли строка $S$ допустимым идентификатором, то есть непустой строкой, которая содержит только латинские буквы, цифры и символ подчеркивания «_» и не начинается с цифры. Если $S$ является допустимым идентификатором, то функция возвращает $0$ . Если $S$ является пустой строкой, то возвращается $-1$ , если $S$ начинается с цифры, то возвращается $-2$ . Если $S$ содержит недопустимые символы, то возвращается номер первого недопустимого символа. Проверить с помощью функции IsIdent пять данных строк.

Решение:

program Param30;

type

St=String;

var

S:St;

i:integer;

Function IsIdent(S:St):integer;

var

i,temp:integer;

begin

temp:=0;

if length(s)>0 then

if (s[1] in ['a'..'z','_']) then

begin

for i:=length(S) downto 2 do

if not(s[i] in ['0'..'9','a'..'z','_']) then temp:=i;

end

else temp:=-2

else temp:=-1;

IsIdent:=temp;

end;

begin

for i:=1 to 5 do

begin

Write('S:');

Readln(S);

Writeln(IsIdent(S));

end;

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param30

Комментарии:

Добавить комментарий Отменить ответ