[windaws]

Всем доброго времени суток
Прошу помощи в решении этой математической хрени, а именно с чего вообще начать решение? немогу даже понять цикл здесь используется или это просто линейно решается.... (далек от математики )

Код:

  ∞                Х
 ∑     ----------------------
  к=0      к3+к √ /х/  +1

[lmikle]

Здесь имеет смысл использовать цикл While.
С каждой итерацией у тебя значение очередного элемента будеи уменьшаться. цикл должен закончиться тогда, когда от прибавления очередного элемента сумма не изменится.

[lmikle]

Как-то так:

Код:

function TForm1.SumFx(X : Double) : Double;
var
  dX : Double;
  K : Integer;
begin
  Result := Fxi(X,0);
  K := 0;
  While (True) Do
    Begin
      Inc(K);
      dX := Fxi(X,K);
      If Result = Result + dX Then Break;
      Result := Result + dX;
      If K > 1000000 Then Break;
    End;
end;

function TForm1.Fxi(X : Double; I : Integer) : Double;
begin
  Result := X / (I*I*I + I*Sqrt(Abs(X))+1);
end;

[windaws]

Спасибо суть понял посмотрим что из этого выйдет