Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.85/13: Рейтинг темы: голосов - 13, средняя оценка - 4.85
0 / 0 / 0
Регистрация: 27.12.2009
Сообщений: 17
1

Двойной факториал

06.06.2010, 18:37. Показов 2407. Ответов 2
Метки нет (Все метки)

N!! = N*(N–2)*(N–4)*…
(N > 0 — параметр целого типа; последний сомножитель в произведении равен 2, если N — четное число, и 1, если N — нечетное). С помощью этой функции вычислить двойные факториалы пяти данных чисел.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.06.2010, 18:37
Ответы с готовыми решениями:

Двойной факториал
Пусть n - натуральное число и пусть n!!означает 1*3*5*...*n для нечетного n и 2*4*....*n для...

Вычислить двойной факториал
Всем Привет! Помогите пожайлуста разобраться в 2 задачах: 1.найти n!!(двойной факториал) числа n...

Двойной факториал
подскажите как написать функцию для вычисления х!!

Двойной факториал
Задача: Дано натуральное число n. Получить n!! (!-факториал),равное произведению (1*3*...*n) для...

2
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
06.06.2010, 18:57 2
Лучший ответ Сообщение было отмечено LeBron11 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses crt;
function Fact2(n:byte):longint;
var k:byte;
    f:longint;
begin
f:=n;
if odd(n) then k:=1 else k:=2;
while n>k do
 begin
  n:=n-2;
  f:=f*n;
 end;
Fact2:=f;
end;
var a:array[1..5] of byte;
    i:byte;
begin
clrscr;
writeln('Введите 5 натуральных чисел не более 19:');
for i:=1 to 5 do
repeat
readln(a[i]);
until a[i] in [1..19];
clrscr;
writeln('Двойные факториалы:');
for i:=1 to 5 do
writeln(a[i]:2,Fact2(a[i]):11);
readln
end.
1
8 / 8 / 14
Регистрация: 01.02.2014
Сообщений: 65
01.02.2014, 09:09 3
Pascal
1
2
3
4
5
6
7
8
9
10
function secondfactorial(n:integer):integer;
begin 
if n <=1 then secondfactorial:=1
else secondfactorial:=n*n*secondfactorial(n-2);
end;
var k:integer;
begin
read(k);
write (secondfactorial(k));
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.02.2014, 09:09

Двойной цикл
В блок-схему нужно вводить Const?

Факториал
Доброго вечера, знатоки. Подскажите, как можно записать факториал в данном выражении a:=n+1/n!; ...

факториал
Вычислить факториал:n!напримере n=1000.Результат построить в виде целого числа

Факториал
Скажите как мне записать (3n)! в паскале так, что будет находить сумму ряда a=n!/(3n)!????


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.