Не правильно считает

[Genzal]

Ввожу разные значения в пределах, но считает не верно. Задание звучит так: Вычислить функцию Y=LN(X), разложенную в степенной ряд, с заданной степенью точности. Но компьютер считает верно, а я походу не правильно сделал рекурсию подскажите пожалуйста

program lnx_teilor;

procedure Vvod(var x, e: real);{Procedure for entering a number}
begin
  Write('Введите 1 < x < 2: ');
  Readln(x);
  Write('Введите точность e: ');
  Readln(e);
end;


function obrobotka(var x, stx, lnt: real; var i, fakt, z: integer): real;
begin
  stx := x - 1;  {x в степени}
  fakt := 1;  {значение знаменателя}
  lnt := 0;  {первый элемент в разложении}
  i := 1;  {счётчик}
  z := 1;  {знак элемента}
  while stx / fakt >= e do 
  begin{до тех пор, пока элемент в разложении не меньше точности}
    lnt := lnt + z * stx / fakt;
    inc(i);
    stx := stx * (x - 1);
    fakt := i;
    z := z * (-1);  {смена знака}
  end;
end;

procedure vivod(i: integer; x, lnt: real);{Display procedure}
begin
  Writeln('Количество элементов в разложении = ', i);
  Writeln('Значение ln(', x:6:6, ')= ', lnt:6:6);
  Writeln('Значение компьютера: ', ln(x):6:6);
end;

var
  x, stx, lnt, e: real;
  i, fakt, z: integer;

begin
  vvod(x, e);
  obrobotka(x, stx, lnt, i, fakt, z);
  vivod(i, x, lnt);
  Readln;
end.

[min@y™]

Сообщение от Genzal

я походу не правильно сделал рекурсию

А где тут рекурсия?

[newerow1989]

Код верный, только точность надо указывать получше - побольше нулей после запятой