Оптимальні програми обчислення виразів, Детальна інформація
Оптимальні програми обчислення виразів
Тип документу: Курсова
Сторінок: 28
Предмет: Математика
Автор: Орос Володимир
Розмір: 46.4
Скачувань: 1276
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 + '''')
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 + '''')
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021