Метод Ньютона_Т

[Leshiy1]

Здравствуйте всем. Задача такая: Найти приближенно корень уравнения методом ньютона
y=1/x-x*x-1
[0.1;1]
E=0.000001

uses crt;
function F(x:real):real;
begin
F:=1/x-x*x-1;
end;
function F1(x:real):real;
begin
F1:=-2*x-1/(x*x);
end;
procedure Newton(x1,eps:real; var x2:real; var k:integer);
var b:real;
begin
x2:=x1;
k:=0;
repeat
b:=x2;
k:=k+1;
x2:=b-F(b)/F1(b);
until abs(x2-b)<eps;
end;
var x0,x,eps:real;
    k:integer;
begin
clrscr;
repeat
write('Vvedite nachalnoe priblizenie [0.1;1] x0=');
readln(x0);
until(x0>=0.1)and(x0<=1);
eps:=0.000001;
Newton(x0,eps,x,k);
write('X=',x,'  iteracij=',k);
readln
end.

Почему когда ввожу начальное приближение 0.1 вычисляет приближенный корень 6,823278.......
выходит за пределы отрезка

[rus12]

Попробуй поставить когда выводишь результат :

writeln('x=',x:3:5);

[Leshiy1]

Спасиба, помогло