vlad / TURBO P / tp7 / BIN / LAB1_1

Program Zol_sich;
uses crt ;
const alfa=0.618;
var a,b,l,x1,x2,y1,y2,X,Y,k:real;
begin
     clrscr;
     writeln('‚ўҐ¤iвм §­ зҐ­­п i­вҐаў «г [a,b]:');
     readln(a,b);
     writeln('‚ўҐ¤iвм в®з­iбвм:');
     readln(l);
     x1:=a+(1-alfa)*(b-a);
     x2:=a+alfa*(b-a)  ;
     y1:=(1-x1+sqr(x1))/(1+x1-sqr(x1));
     y2:=(1-x2+sqr(x2))/(1+x2-sqr(x2));
repeat
if y1<y2 then
begin
     b:=x2;
     x2:=x1;
     x1:=a+(1-alfa)*(b-a);
     y2:=y1;
     y1:=(1-x1+sqr(x1))/(1+x1-sqr(x1))
end
else
begin
     a:=x1;
     x1:=x2;
     x2:=a+(alfa)*(b-a);
     y1:=y2;
     y2:=(1-x2+sqr(x2))/(1+x2-sqr(x2))
end ;
k:=k+1;
until b-a<=l;
      X:=(a+b)/2;
      Y:=(1-x+sqr(x))/(1+x-sqr(x));
      write('Mi­i¬ «м­Ґ §­ зҐ­­п ҐЄбв६г¬г: x=',X:3:2,' y=',Y:3:2,' k=',k:2:1);
      readln;
end.