Var
a,b,c,p,q,h,x,y:real;
begin
Write('Введите через пробел коэффициенты a,b,c: ');
Read(a,b,c);
Write('Введите через пробел границы интервала [p;q]: ');
Read(p,q);
Write('Введите шаг табуляции h: ');
Read(h);
x:=p;
while x<=q+h/10 do begin<br> y:=c+x*(b+x*a); { схема Горнера для вычисления значения полиномов }
Writeln(x:15:8,y:15:8);
x:=x+h
end
end.
Тестовое решение:
Введите через пробел коэффициенты a,b,c: -4 2.7 10.582
Введите через пробел границы интервала [p;q]: -3 2.5
Введите шаг табуляции h: 0.25
-3.00000000 -33.51800000
-2.75000000 -27.09300000
-2.50000000 -21.16800000
-2.25000000 -15.74300000
-2.00000000 -10.81800000
-1.75000000 -6.39300000
-1.50000000 -2.46800000
-1.25000000 0.95700000
-1.00000000 3.88200000
-0.75000000 6.30700000
-0.50000000 8.23200000
-0.25000000 9.65700000
0.00000000 10.58200000
0.25000000 11.00700000
0.50000000 10.93200000
0.75000000 10.35700000
1.00000000 9.28200000
1.25000000 7.70700000
1.50000000 5.63200000
1.75000000 3.05700000
2.00000000 -0.01800000
2.25000000 -3.59300000
2.50000000 -7.66800000