|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Решение математической задачки
Всем доброго времени суток
Прошу помощи в решении этой математической хрени, а именно с чего вообще начать решение? немогу даже понять цикл здесь используется или это просто линейно решается.... (далек от математики ) Код:
∞ Х ∑ ---------------------- к=0 к3+к √ /х/ +1 |
#2
|
|||
|
|||
Здесь имеет смысл использовать цикл While.
С каждой итерацией у тебя значение очередного элемента будеи уменьшаться. цикл должен закончиться тогда, когда от прибавления очередного элемента сумма не изменится. |
#3
|
|||
|
|||
Как-то так:
Код:
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; |
#4
|
|||
|
|||
Спасибо суть понял посмотрим что из этого выйдет
|