Лабораторная работа: Трансляция распознающих конечных автоматов

begin

// Синтаксическая ошибка

Result := i;

Exit;

end;

end;

InDigit:

case S[i] of

'0'..'9' : ; // состояние не меняется

'+', '-', '*', '/' : State := InOp;

'.': State := Inthk;

')' :

begin

Dec(ParCount);

State := InRPrnt;

end;

' ' : State := AfterDigit;

else

begin

Result := i;

Exit;

end;

end;

Inthk:

case S[i] of

'0'..'9' : Inc(Numbthk); // состояние не меняется

'+', '-', '*', '/' :

If Numbthk > 0 then

begin