Сторінка
5

Елементи синтаксичного аналізу

v : real; lx : Tlx; procedure error; begin ok := false; islx := false end; function E : real; forward; function C : real; … end; function F : real; … end; function T : real; … end; function E; { скорочений заголовок } … end; begin ok := true;

v := 0; islx := getlx ( lx );

v := E; if ok and not islx then writeln ( v ) else writeln ( '***error***' ) end.