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

Numbthk :=0;

end

else

begin

Result := i;

Exit;

end;

')' :

If Numbthk > 0 then

begin

Dec(ParCount);

State := InRPrnt;

end else

begin

Result := i;

Exit;

end;

' ' : ;

else

begin

Result := i;

Exit;

end;

end;

AfterDigit:

case S[i] of

' ' : ;

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

'.' : State := Inthk;

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