vlad / TURBO P / tp7 / BIN / DIXOTOM

program Dixotom_metod;
uses crt;
var a,b,x1,x2,y1,y2,e,l,X,k,Y:real;
begin
clrscr;
writeln('Vvedit znachinia intervalu [a,b]:');
readln(a,b);
writeln('Vvedit tochnist:');
readln(l);
writeln('Vvedit znachenia sigmu: ');
readln(e);
repeat
x1:=(a+b)/2-e;
x2:=(a+b)/2+e;
y1:=(sqr(x1)* x1)- (sqr(x1))-(10*x1);
y2:=(sqr(x2)* x2)- (sqr(x2))-(10*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:=(sqr(x)* x)- (sqr(x))-(10*x);
writeln('Znachenia extremymy: x=',X:6:4,' y=',y:6:4);
writeln(' ');
writeln('kilkist iteracij: - ',k:2:0);
readln;
end.