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.