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.