Help! Нужно построить блок-схему:(
function f(x:
real): real;
begin
if x < 0 then
f := exp(x * ln(3)) + sqr(x)
else f := exp(-x
* ln(3)) - sqr(-x)
end;
var
a, b, h, x, y:
real;
begin
a := -1; b := 2;
h := 0.2;
writeln('':10,
'_________________');
writeln('':10,
'| x
| y |');
writeln('':10,
'-----------------');
x := a;
while x < b
do begin
y := f(x);
writeln('':10,
'|', x:5:1, ' | ', y:7:4, '|');
x := x + h
end;
writeln('':10,
'-----------------');
end.