Лабораторные работы3 / Новая папка / 1.а,д / ZOLOTOJ

program zolotoj;
uses crt;
var n,i:integer;
xmin,ymin,a,b,e,la,x1,x2,y1,y2:real;
function f(x:real):real;
begin
f:=x*x+6*exp(0.15*x);
end;
begin
clrscr;
write('vvedite a '); readln(a);
write('vvedite b '); readln(b);
write('vvedite n '); readln(n);
la:=1.618033989;
x1:=b-(b-a)/la;
x2:=a+(b-a)/la;
y1:=f(x1);
y2:=f(x2);
for i:=1 to n do
begin
if (y1<y2)or(y1=y2) then
begin
b:=x2;
x2:=x1;
y2:=y1;
x1:=a+b-x2;
y1:=f(x1);
end;
if y1>y2 then
begin
a:=x1;
x1:=x2;
y1:=y2;
x2:=a+b-x1;
y2:=f(x2);
end;
end;
e:=(b-a)/2;
if (y1<y2)or(y1=y2) then
begin
xmin:=x1; ymin:=y1;
end;
if y1>y2 then
begin
xmin:=x2; ymin:=y2;
end;

writeln('');writeln('');
writeln('x=',xmin:20:15);
writeln('');
writeln('y=',ymin:20:15);
writeln('');
writeln('E=',e:20:15);
readkey;
end.