vlad / TURBO P / tp7 / BIN / new

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

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