Аналіз та обчислення дужкових виразів, Детальна інформація
Аналіз та обчислення дужкових виразів
and ( lx.sig in ['+', '-'] ) do
begin
lx1 := lx; islx := getlx ( lx );
case lx1.sig of
'+' : v := v + T;
'-' : v := v - T
end
end;
if ok then E := v else E := 1
end
Функцію T обчислення доданка у виразі, яка має аналогічну функції E структуру, залишаємо для самостійної розробки. Головна програма подібна до програми Aexan:
program Aexval ( input, output );
uses Inbuf, Glx
var islx, ok : boolean;
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.
begin
lx1 := lx; islx := getlx ( lx );
case lx1.sig of
'+' : v := v + T;
'-' : v := v - T
end
end;
if ok then E := v else E := 1
end
Функцію T обчислення доданка у виразі, яка має аналогічну функції E структуру, залишаємо для самостійної розробки. Головна програма подібна до програми Aexan:
program Aexval ( input, output );
uses Inbuf, Glx
var islx, ok : boolean;
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.
The online video editor trusted by teams to make professional video in
minutes
© Referats, Inc · All rights reserved 2021