нужна помощь!!!

← →
kate_1 (2007-05-27 13:18) [0]

туплю, не могу сделать простейшую программу с факториалами. Надо вычислить сумму 1/1!+3/3!+5/5!+... Заранее спасибо!

← →
DrPass © (2007-05-27 13:22) [1]

А что не получаеццо?

← →
kate_1 (2007-05-27 13:44) [2]

пишу через repeat until, считает не сумму, а только значение первого факториала или вообще выводит отрицательное значение

← →
Virgo_Style © (2007-05-27 13:55) [3]

А это выражение случаем не упрощается ли до 1 + 1/2! + 1/4! + ...

А как не получается?

← →
Burbuluc (2007-05-27 13:55) [4]

function GetFactorial(n:byte):cardinal;//вычисляет n!
var i:byte;
s:cardinal;
begin
s:=1;
for i:=2 to n do s:=s*i;
Result:=s;
end;

function GetSum(n:byte):extended; //вычисляет сумму 1/1!+3/3!+...+(2*n+1)/(2*n+1)! или что тоже самое 1+1/2!+...+1/(2*n)!
var s:extended;
i:word;
begin
s:=1;
for i:=1 to n do s:=s+1/GetFactorial(2*i);
Result:=s;
end;

Таким образом, если Вам надо найти сумму из N членов по указанной выше формуле, то n определяется как n=(N-1) div 2, при этом последним членом в сумме будет число N/N! или, что тоже самое, 1/(N-1)!. Если число N чётное, то последним членов в сумме будет число (N-1)/(N-1)! или, что тоже самое, 1/(N-2)!

← →
Однокамушкин (2007-05-27 14:13) [5]

Что-то девушек на вычисление рядов с факториалами потянуло... Сегодня kate_1 задаёт такой вопрос, вчера Настя задавала...
http://delphimaster.net/view/2-1180177564/

← →
kate_1 (2007-05-27 15:00) [6]

Ребят, спасибо всем большое, что откликнулись! Ошибку я нашла, так что дальше дело техники:) Думаю, что и Насте вы помогли ! !!

нужна помощь!!! Найти похожие ветки