');
sound(zvuk); delay(del); nosound;
readln; close(g);
halt;
End;

Procedure DAl;
Begin
writeln;
textcolor(14);
writeln(' Этап пройден успешно.');
textcolor(15);

readln; clrscr;
End;

Procedure leksika;
Begin

writeln(' 3 этап- Лексический анализ...');
writeln('> Проверка на присутствие недопустимых комбинаций знаков');

{удаляем ВСЕ пробелы из строки}
for i:= 1 to dlina do if b[i]<>' ' then s1:=s1+b[i];
writeln(s1);
dlina1:=length(s1);

{проверяем присутствие ошибочных комбинаций символов }
for i:=1 to dlina do begin
IF (

{повторяющиеся знаки}
((s1[i]='+') and (s1[i+1]='+')) or
((s1[i]='-') and (s1[i+1]='-')) or
((s1[i]='=') and (s1[i+1]='=')) or
((s1[i]=';') and (s1[i+1]=';')) or

((s1[i]='[') and (s1[i+1]='[')) or
((s1[i]=']') and (s1[i+1]=']')) or
{комбинации разных знаков }
((s1[i]='[') and (s1[i+1]='=')) or
((s1[i]='=') and (s1[i+1]='[')) or

((s1[i]='[') and (s1[i+1]=';')) or
((s1[i]=';') and (s1[i+1]='[')) or

((s1[i]='[') and (s1[i+1]=':')) or
((s1[i]=':') and (s1[i+1]='[')) or

((s1[i]=']') and (s1[i+1]=':')) or
((s1[i]=':') and (s1[i+1]=']')) or

((s1[i]='[') and (s1[i+1]='.')) or
((s1[i]='.') and (s1[i+1]='[')) or

((s1[i]='+') and (s1[i+1]='[')) or

{}
((s1[i]=']') and (s1[i+1]='=')) or
((s1[i]='=') and (s1[i+1]=']')) or

((s1[i]=';') and (s1[i+1]=']')) or

((s1[i]=']') and (s1[i+1]='.')) or
((s1[i]='.') and (s1[i+1]=']')) or

((s1[i+1] in c) and (s1[i]='.') and (s1[i-1] in bukva)) or
((s1[i+1] in c) and (s1[i]='.') and (s1[i-1] in bukva2)) or

((s1[i+1] in c) and (s1[i]='.') and
(s1[i-1] in c) and ((s1[i-2]='+') or (s1[i-2]='-'))) or

((s1[i]=']') and (s1[i+1]='+')) or
((s1[i]='+') and (s1[i+1]=']')) or

((s1[i]=']') and (s1[i+1]='-')) or
((s1[i]='-') and (s1[i+1]=']')) or
{}
((s1[i]='=') and (s1[i+1]=';')) or
((s1[i]=';') and (s1[i+1]='=')) or

((s1[i]='+') and (s1[i+1]='=')) or
((s1[i]='=') and (s1[i+1]='+')) or

((s1[i]=';') and (s1[i+1]='+')) or
((s1[i]='+') and (s1[i+1]=';')) or

((s1[i]=';') and (s1[i+1]='-')) or
((s1[i]='-') and (s1[i+1]=';')) or

((s1[i]='-') and (s1[i+1]='+')) or
((s1[i]='+') and (s1[i+1]='-')) or

((s1[i]='-') and (s1[i+1]='=')) or

((s1[i]='=') and (s1[i+1]='.')) or
((s1[i]='.') and (s1[i+1]='=')) or

((s1[i]='+') and (s1[i+1]='.')) or

((s1[i]='-') and (s1[i+1]='.')) or

((s1[i]=';') and (s1[i+1]='.')) or
((s1[i]='.') and (s1[i+1]=';'))
)

OR {AND?}
{комбинация ::= ::X :X= X:= где X-любой символ}
(
((s1[i]=':') and (s1[i+1]=':') and (s1[i+2]<>'=')) or
((s1[i]=':') and (s1[i+1]<>':') and (s1[i+2]='=')) or
((s1[i]='.') and (s1[i+1]<>'.') and (s1[i+2]='.')) { .X. }

)
then Netl;
end; {for}

{комбинация цифра' 'цифра - не допустима}
for i :=1 to dlina do
if
(
(s1[i] in c) and {(not (s1[i+1] in c)) and (s1[i+2] in c)) and }
((s1[i+1]=' ') and (s1[i+2]<>' ')) or
((s1[i+1]<>' ') and (s1[i+2]=' '))

)
and (s1[i+1]<>'.')
then NETl;

DAl;
End;

Популярно: Информатика

• 

  evaklchn

  03.06.2020 04:54
  Напиши код программы который будет вычислять пиримитр фигуры...
• 

  Vita1968

  30.01.2021 23:19
  Пусть формальный язык с алфавитом из трех символов {a, b, c}...
• 

  elizavetaivlic

  04.05.2020 18:29
  задан массив А[n] (1{n{20). замените элементы массива А элементами...
• 

  умник1235678

  01.02.2022 10:40
  программу подсчёта числа положительных десертов одномерного...
• 

  jeneusbwidbiehsbf

  06.01.2021 07:05
  Две минуты записи цифрового аудиофайла занимают на диске 5,05...
• 

  mrkrbnv

  18.05.2021 10:43
  Ответьте на вопросы 1 отражение воспринято информации на носителе...
• 

  Фарида120107

  04.11.2022 13:03
  0. Реализовать собственную функцию для поиска символа в подстроке....
• 

  умник162д

  11.04.2020 22:54
  Пазязя ну столько у меня осталось )​...
• 

  Quickfast77

  11.06.2021 22:02
  Чому деякі вітаміни стають отруйними, якщо їх приймати у великих...
• 

  поля1209348756

  27.04.2020 06:00
  Вычеркните лишнее так, чтобы предложение стало верным. Верхушку...