Программы к курсу методы оптимизации / 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.