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 y:=c+x*(b+x*a); { схема Горнера для вычисления значения полиномов } Writeln(x:15:8,y:15:8); x:=x+h end end.
