Cумма ряда

[Demon340]

Народ подскажите как записать сумму ряда формулой
Вот ряд:1/1!-1!/2!+1!/3!-1/4!+......
я писал так: (Power(-1,(j-1)/(j-1)*j)) но это я уверен не правильно а как правильно записать не знаю!!!

[Serebro]

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

Народ подскажите как записать сумму ряда формулой
Вот ряд:1/1!-1!/2!+1!/3!-1/4!+......
я писал так: (Power(-1,(j-1)/(j-1)*j)) но это я уверен не правильно а как правильно записать не знаю!!!

Почитай темы про факториалы (можно и на этом форуме).

[Demon340]

мне не программой надо посчитать а как функцию записать т.е. формулу написать этого ряда!!!

[Serebro]

Summa [ (-1)^(i+1) / i! ]

[Demon340]

Да не мне надо типо этого:
Блок вычисления суммы заданного ряда

Function Ryad (F: func; p, E: tip): tip; Var j: integer;
begin Result:= p; For j:= 2 to 100 do
begin p:= p*F(j); Result:= Result + p; If Abs(p)< E then Break end
end;
Ряд задают начальным членом p и функцией F, выражающей через номер k отношение k-го члена ряда к предыдущему. E — заданная точность суммы. Найдем сумму S = 1,414 + x/2! – x3/4! + x5/6! - … ± x2k–1/(2j)! … . Выразим отношение k-го члена ряда к предыдущему: –x2/(2k(2k–1)) и представим его функцией вне обработчиков:
Function F (j: integer): tip;
begin F:= –Sqr(x)/(2*j*(2*j–1)) end;
Параметр x не описан в функции и не может быть в ней описан. Это глобальная переменная. Зададим в обработчике значение x = 0,7 и запишем оператор с обращением к блоку Ryad: x:= 0.7; S:= 1.414 + Ryad (F, x/ 2, 0.001); .