Подскажите, пожалуйста,что нужно добавить,чтобы программа выводила значение,которому...

Question

Подскажите, пожалуйста,что нужно добавить,чтобы программа выводила значение,которому соответствует этот минимум? это будет точка 3,8, но я не знаю как ее получить :(

---

Answer 1

Const xn=1.5; xk=4.5; h=0.05;
var x,y,xmin,ymin:real;
i:integer;
begin
x:=xn;
xmin:=x; ymin:=exp(x)-x*x*x;
for i:=1 to round((xk-xn)/h) do
 begin
 x:=x+h;
 y:=exp(x)-x*x*x;
 if y  begin
  xmin:=x; ymin:=y;
  end;
 end;
writeln('xmin = ',xmin:5:2,' ymin = ',y:7:5);
end.

Результат:
xmin = 3.75 ymin = -1.10787