vlad / TURBO P / tp7 / BIN / NEW1

Program Metod_Nutona;
uses crt;
var j,x,y1,y2,x1,x2,y,l,eps,k:real;
begin clrscr;

      writeln('Vvedit tochnist:');
      readln(eps);
      writeln('Vvedit x=');
      readln(x);
      y1:=(3*(sqr(x)))-(2*x)-10;
      y2:=(6*x)-2;
      j:=2;
   x2:=x;
 repeat
   x1:=x2-(y1/y2);
   begin
   l:=abs(x2-x1);
   y1:=(3*(sqr(x1)))-(2*x1)-10;
   y2:=(6*x1)-2;
   x2:=x1;
   j:=j+2;
   k:=k+1;

 end;

 until (l<eps) or (y1=0);
 writeln('kilkist iteracii=  ',k:2:0);
 writeln('kilkist pidpaxunku znacien funcii=  ',j:2:0);
 y1:=(sqr(x2)* x2)- (sqr(x2))-(10*x2);
 writeln('Extremum funkcii: y(x)=',y1:6:4, '   x=',x1:4:2);
 readln;
end.