program _Ver;
uses CRT;
const E=1.0E-15;x=0;
var r:extended;
{------------------------------------}
function f(X:extended):extended;
begin
f:=x*x+2*x+1+x;
end;

function Ver(x0:extended):extended;
var X1,X2:extended;i:integer;
begin
x1:=F(x0);
while abs(x1-x0)>=E do
begin
x2:=x1+(f(x1))*(x1-x0)/(x1-x0-f(x1));
x0:=x1;
x1:=x2;i:=i+1;
{if i=100000 then begin x1:=E;break;end;}
end;
ver:=x1;
end;

{------------------------------------}
begin
ClrScr;r:=ver(0);
if r<>E then WriteLn('X = ',r:3:10)
else WriteLn('Input Other X0');
ReadLn;
end.
Соседние файлы в папке Vekstein