vlad / TURBO P / tp7 / BIN / NAPOP

Program Dilennja_navpil;
uses crt;
var a,b,x,y,y1,l,k,j:real;
begin clrscr;
j:=0;
k:=0;
      writeln('Vvedit interval [a,b]:');
      readln(a,b);
      writeln('Vvedit tochnict:');
      readln(l);
      x:=(a+b)/2;
repeat
begin
      y:=(3*(sqr(x)))-(2*x)-10;
j:=j+1;
if y=0 then break
else
if y>0 then
begin b:=x; x:=(a+b)/2 end
else
if y<0 then begin a:=x; x:= (a+b)/2 end
      end;
      k:=k+1;
  until  (b-a<=l);
     x:=(a+b)/2;
      y1:=(sqr(x)* x)- (sqr(x))-(10*x);
     writeln('Ekstremalne znachinia: x= ', x:6:4);     writeln(' ');
     writeln('Znachinnja funkcii: y= ', y1:3:2);    writeln(' ');
     writeln('kilkist iteracij - ', k:2:0);writeln(' ');
     writeln('kilkist pidraxunciv funkcii - ', j:2:0);


 readln;
end.