vlad / TURBO P / tp7 / BIN / NEWTON

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

      writeln('‚ўҐ¤iвм в®з­iбвм:');
      readln(l);
      x:=0.003;
      y1:=(3*(sqr(x1)))-(2*x1)-10;
      y2:=(6*x1)-2;
 repeat
   if y1=0 then break;
   if y1<>0 then
     begin x:=x1; x1:=x-y1/y2;
     y1:=(3*(sqr(x2)))-(2*x2)-10;
      y2:=(6*x2)-2;
     end;
     k:=k+1;
 until  abs(x1-x) < l;
 y:=(sqr(x)* x)- (sqr(x))-(10*x);
 writeln('Mi­i¬ «м­Ґ §­ зҐ­­п ҐЄбв६г¬г: ',x1:7:5,'   y=',y:7:5,'  k= ',k:2:1);
 readln;
end.