Программы к курсу методы оптимизации / LAB_GOLD / BS_GOLD

program Gold;
uses tpcrt;
const a0=1;b0=10;
var
x1,x2,a,b:real;
function f(x:real):real;
begin
f:=sqr(x-2.5)
end;
begin
clrscr;
a:=a0;
b:=b0;
While b-a>0.1 do
begin
x1:=((3-sqrt(5))/2)*(b-a)+a;
x2:=b-((3-sqrt(5))/2)*(b-a);
If f(x2)>=f(x1) then b:=x2 else a:=x1;
write(a:6:3,' ',b:6:3,' ',f(a):6:4,' ',f(b):6:4); writeln
end;
end.