Оптимальні програми обчислення виразів

Abort(s + ' Очікується');

End;

Function IsAlpha(c: Char): Boolean;

Begin

IsAlpha := UpCase(c) In ['A'..'Z'];

End;

Function IsDigit(c: Char): Boolean;

Begin

IsDigit := c In ['0'..'9'];

End;

Function IsAlNum(c: Char): Boolean;

Begin

IsAlNum := IsAlpha(c) Or IsDigit(c);

End;

Function IsAdDop(c: Char): Boolean;

Begin

IsAdDop := c In ['+', '-'];

End;

Function IsWhite(c: Char): Boolean;

Begin

IsWhite := c In [' ', TAB];

End;

Procedure SkipWhite;

Begin

While IsWhite(Look) Do

GetChar;

End;

Procedure Match(x: Char);

Begin

If Look <> x Then Expected('''' + x + '''')