vlad / TURBO P / tp7 / BIN / LAB1_2

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