// PascalABC.Net 3.0, сборка 1052
function f(x:double):double;
begin
if x<0 then result:=0<br> else
if x=1 then result:=1
else result:=sqr(x)+1
end;
var
a,b,h,x:double;
begin
Write('Введите a b h: '); Read(a,b,h);
x:=a;
while x<=(b+1e-10*h) do begin<br> Writeln('x=',x:10:5,', y=',f(x):10:5);
x:=x+h
end
end.
Тестовое решение:
Введите a b h: 0.3 2.5 0.25
x= 0.30000, y= 1.09000
x= 0.55000, y= 1.30250
x= 0.80000, y= 1.64000
x= 1.05000, y= 2.10250
x= 1.30000, y= 2.69000
x= 1.55000, y= 3.40250
x= 1.80000, y= 4.24000
x= 2.05000, y= 5.20250
x= 2.30000, y= 6.29000