Проблема в цикле.

[broiler747]

Имеется программа, решающая нелинейное уравнение. Первые три цифры считает правильно, а остальные нет. Вместо числа -0.50 должно быть -0.78.

program Project1_iready;

{$APPTYPE CONSOLE}

uses
  SysUtils;


const
    a = 1.0;
    b = 3.0;




    var
      lam, max, eps, fx : Extended;
      x0, x1 : Real;
      iter : Integer;

begin
  iter := 0;
  max := (-cos(b) + (1/b));
  lam := 1 / max;
  x0 := a;
     repeat
       fx := Ln(x0) - Sin(x0);
       Writeln( iter,'.x= f(x)=', x0:6:4, fx:6:4);
       x1 := x0 - (lam * ln(x0)) + (lam * sin(x0));
       eps := Abs(x0 - x1);
       iter := iter + 1;
       x0 := x1;
     until (eps<1e-3);
   Writeln('Answer f(x)=', fx:8:6);
   Writeln('Answer x=', x0:8:6);
   Writeln('Iterations:', iter);
  Readln;
end.

Вот какие ответы должны быть:
N x F(x)
1 1 -0.8415
2 1.6359 -0.7841
3 2.2285 -0.4434
4 2.5636 -0.1375
5 2.6675 -0.03044
6 2.6905 -0.00612
7 2.6951 -0.00121
Уравнение Lnx-sinx [1;3]

[broiler747]

Проблему решил.