var
i : single;
begin
i:=2;
repeat
writeln('f[', i:0:1,']=', (exp(sqr(i))/2):0:6);
i:= trunc((i + 0.2)*100)/100;
until i>3
end.
![Free Pascal (code) Вычислить значение функции f(x) на отрезке [a;b] с шагом h Где f(x) = e^x^2/2](/tpl/images/4506/9336/68c9f.jpg)
var
i : single;
begin
i:=2;
repeat
writeln('f[', i:0:1,']=', (exp(sqr(i))/2):0:6);
i:= trunc((i + 0.2)*100)/100;
until i>3
end.