Помогите написать программу(Паскаль) 2. Для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y = a
Помогите написать программу(Паскаль) 2. Для заданного набора коэффициентов a, b, c, d найдите наименьшее значение функции y = a x3 + b x2 + cx + d и значение аргумента, при котором оно получено. Значение х изменяется от 0 до 2 с шагом 0,2.
Var a,b,c,d,x,y,h,minx,miny:real; i:integer; begin writeln('a, b, c, d:'); readln(a,b,c,d); h:=0.2; x:=0; y:=a*x*x*x+b*x*x+c*x+d; writeln(x:2:1,' ',y:5:2); minx:=0; miny:=y; for i:=1 to round((2-0)/h)+1 do begin x:=x+h; y:=a*x*x*x+b*x*x+c*x+d; writeln(x:2:1,' ',y:5:2); if y<miny then begin minx:=x; miny:=y; end; end; writeln('min = y(',minx:2:1,') = ',miny:5:2); end.