vlad / TURBO P / tp7 / BIN / 22

Program Metod_Nutona;
uses crt;
var a,b,x,y1,y2,x1,y,l,k:real;
begin clrscr;
writeln('‚ўҐ¤iвм §­ зҐ­­п i­вҐаў «г [a,b]:');
readln(a,b);
writeln('‚ўҐ¤iвм в®з­iбвм:');
readln(l);
x:=0.3;
y1:=(4*x-2)/(sqr(x-sqr(x)+1));
y2:=(12*sqr(x)-3*x+2)/(exp(ln(x-sqr(x)+1)*3));
repeat
if y1=0 then break;
if y1<>0 then
begin x:=x1; x1:=x-y1/y2;
y1:=(4*x1-2)/(sqr(x1-sqr(x1)+1));
y2:=(12*sqr(x1)-3*x1+2)/(exp(ln(x1-sqr(x1)+1)*3));
end;
k:=k+1;
until abs(x1-x) < l;
y:=(1-x+sqr(x))/(1+x-sqr(x));
writeln('Mi­i¬ «м­Ґ §­ зҐ­­п ҐЄбв६г¬г: ',x1:7:5,' y=',y:7:5,' k= ',k:2:1);
readln;
end.