Вычисления ряда с использованием реккурентной ф-лы на Dephi

[stranger84]

день добрый
дано такое задание:


Написал такой текст программы, но выдаёт неверный ответ
подскажите пожалуста, в чём ошибка..очень нужно..
заранее спасибо
с ув. Андрей

procedure TfrmWhileRepeat.ButtonLnClick(Sender: TObject);
const
   max_iter = 100;
var
   x, eps, sum, dTemp, result, tmp : double;
   i : integer;
   str : string;
   u: real;  s: real;  k : integer;
begin
   Memo1.Clear;

   x := StrToFloat(Edit1.Text);
   eps := StrToFloat(Edit2.Text);

   if eps < 0.001
   then
      begin
        Memo1.Lines.Append('Внимание! Возможна потеря точности из-за ' +
                           'ограниченной разрядной сетки чисел с плавающ точкой');
        Memo1.Lines.Append('--------------------');
      end;

   s:=0; {обнуление суммы}
   k:=1; {начальное значение переменной k}
   u:=x; {первый член ряда}

   while ( (abs(u) > eps) and (k < max_iter) ) do
     begin
       s:=s+u; {суммируем ряд}
       k:=k+1; { формируем след число }
       U := -U * x * (k - 1) / k;

       if CheckSteps.Checked
       then
          begin
             str := '--- Итерация ' + IntToStr(k-1) + ';   Ряд=' + FloatToStr(s);
             Memo1.Lines.Append(str);
          end;
     end;



  if abs(U) > eps
  then
     begin
        Memo1.Lines.Append ( ' сумма ряда S=' + FloatToStr(S) );
        EditAnswer2.Text := FloatToStr(S);

        // контрольная проверка по исходной формуле
        tmp := ln(1 + x);
        Edit4.Text := FloatToStr(tmp);
     end
  else
     Memo1.Lines.Append('Ответ не найден! За ' + IntToStr(max_iter) +
                        ' шагов итерация не сошлась.');
end;

Вот здесь видно где и как я пообзывал разные объекты на форме:


Вот здесь архив с исходниками - http://ifolder.com.ua/kgxkcsz508fe.html

[Sciv]

неверный - это совсем неверный или просто расходится с правильным на каком-то знаке после запятой?

Думаю, лучше было бы, чтоб Вы архив проекта прикрепили

[stranger84]

архив добавил

неверный - это совсем неверный.
При х = 2 в первое поле как ответ выводится число равное около 4м, а при контрольной проверке должно быть порядка 1,034....

[Sciv]

Перейдите в расширенный режим добавления сообщений и прикрепите (скрепка вверху) этот же архив к сообщению в форуме. Мало кому захочется ждать минуту (у меня вообще 10 минут выдает )

[phomm]

s:=s+u; {суммируем ряд}
k:=k+1; { формируем след число }
U := -U * x * (k - 1) / k;

Вроде порядок неправильный, надо сперва считаем, а потом уже инкремент шага. А так по логике, вы первый-то шаг как раз пропускаете и вычисляете сразу второй (к+1, где к=1). И вообще, привыкайте уже пользоваться трассировкой.
Ну и проверьте, когда сумму тоже делать, может тоже не в том месте.