Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

нужна помощь!!! [D6, 95/98]

kate_1 © (2007-05-27 13:18:00)
туплю, не могу сделать простейшую программу с факториалами. Надо вычислить сумму 1/1!+3/3!+5/5!+... Заранее спасибо!

kate_1 (2007-05-27 15:00:00) [1]
Ребят, спасибо всем большое, что откликнулись! Ошибку я нашла, так что дальше дело техники:) Думаю, что и Насте вы помогли ! !!

Однокамушкин (2007-05-27 14:13:00) [2]
Что-то девушек на вычисление рядов с факториалами потянуло... Сегодня kate_1 задаёт такой вопрос, вчера Настя задавала...
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1180177564&n=18

Virgo_Style (2007-05-27 13:55:00) [3]
А это выражение случаем не упрощается ли до 1 + 1/2! + 1/4! + ...

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

Burbuluc (2007-05-27 13:55:00) [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)!

kate_1 (2007-05-27 13:44:00) [5]
пишу через repeat until, считает не сумму, а только значение первого факториала или вообще выводит отрицательное значение

DrPass (2007-05-27 13:22:00) [6]
А что не получаеццо?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »