ОБЧИСЛЕННЯ ВИРАЗІВ У ПРОГРАМУВАННІ

else lx.stl := err;

'+', '*', '-', '/'  lx.stl := ops; lx.sig := tempc; tempc := getc;'(', ')'  lx.stl := par; lx.prt := tempc; tempc := getc;

інше  lx.stl := err; lx.wrlx := tempc; tempc := getc;

В усіх випадках повертається значення true – ознака наявності лексеми. За символу finch повертається false. Наведена залежність є основою функції getlx:

function getlx ( var lx : Tlx ) : boolean;

begin

getlx := true; tempc := getbglx;

if tempc in Bcon then

begin

lx.stl := con; lx.numb := getcon

end

else

if tempc in Bnam then

begin

lx.name := getnam;

if isfn ( lx.name ) then lx.stl := nam

else lx.stl := err

end

else

if tempc in Bops then

begin

lx.stl := ops; lx.sig := tempc; tempc := getc

end

else

if tempc in Bpar then