Курсовая работа: Построение распознавателя для заданной грамматики и реализация его в виде программы которая проверяет
end;
if length (Right) <>1 then
begin
for i: =1 to length (Right) do
if Right [i] ='e' then Delete (Right, i,1);
end;
ErrorMsgRight:
if ErrFlag then
begin
MessageDlg ('Ошибка в правой части правила',mtError, [mbOk],0);
Edit2. SetFocus;
exit;
end;
if not (ord (Right [1]) in Terminal) then
begin
ErrFlag: =True;
goto ErrorQGram;
end;
if ListBox1. Items. Count>0 then
begin
for i: =0 to ListBox1. Items. Count-1 do
begin
if (ListBox1. Items. Strings [i] [1] =Left) and
(ListBox1. Items. Strings [i] [5] =Right [1]) then
begin
ErrFlag: =True;
break;
end;
end;