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

@Пипа · Регистрация: 11.11.2009

Студворк — интернет-сервис помощи студентам

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

Требования:
Использовать оператор FOR.
Не использовать массивы и строки.
При вычислении факториалов обратить внимание на переполнение. Определить,при каких значениях параметров оно наступает. Постараться отодвинуть эту эту границу путём изменения типа параметров или сокращения дробей.

@flambo · 18.11.2009, 15:36

Delphi
1
2
3
4
fch:=1; fnech:=1; 
for i:=1 to n do
if i mod 2 =0 then fch:=fch*i; f:=fch;
else fnech:=fnech*i; f:=fnech;

@Пипа · 18.11.2009, 20:18 **[ТС]**

а можешь полностью написать пожалуйста,если не трудно?

@Snoopy · 18.11.2009, 20:25

правильность программы не проверял!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program Pipa;
uses crt;
var fch,fnech,f,i,n:integer;
 begin
  ClrScr;
  Writeln('Введи число n');
  Readln(n);
   fch:=1;
   fnech:=1;
    for i:=1 to n do
     if i mod 2=0 then
    begin
      fch:=fch*i;
      f:=fch;  
    end
     else
      fnech:=fnech*i;
      f:=fnech;
    Writeln(f);
   Readln;
  end.

@Пипа · 18.11.2009, 20:44 **[ТС]**

Error 97:
invalid FOR control variable

@Snoopy · 18.11.2009, 20:47

у меня все нормально!

@Лукас · 18.11.2009, 20:52

как удалять сообщения?

@Snoopy · 18.11.2009, 20:54

никак, удалять может только модератор

@Пипа · 18.11.2009, 21:01 **[ТС]**

у меня не нормально,на фор жалуется(

Добавлено через 3 минуты
вроде заработало,для чётных кажется правильно,но для неч ответ с минусом вылазит....

@sheka · 18.11.2009, 21:07

var n:longint;

@new_in_net · 18.11.2009, 21:28

Сообщение от Пипа

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

Требования:
Использовать оператор FOR.
Не использовать массивы и строки.
При вычислении факториалов обратить внимание на переполнение. Определить,при каких значениях параметров оно наступает. Постараться отодвинуть эту эту границу путём изменения типа параметров или сокращения дробей.

Самый простой способ - рекурсия:

Delphi
1
2
3
4
5
6
7
function SpecialFactorial(N: integer): longint;
begin
  if N <= 2 then
    Result := N
  else
    Result := N * SpecialFactorial(N-2);
end;

@victor_g · 18.11.2009, 21:41

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var
   P, n, i: longint;
 
begin
     write('n = '); readln(n);
     P:=1;
     for i:=n downto 1 do begin
       if (i mod 2)<>(n mod 2) then continue;
       P := P * i;
     end;
     writeln(n,'!! = ',P);
     readln;
end.

@Пипа · 18.11.2009, 21:57 **[ТС]**

victor_g
прога работает,спасибо,но вроде нужно произведение факториалов,а вылазит просто факториал(

может нужно ввести в расчёты ещё n2 чётное? а потом перемножить чёт и нечет...

@victor_g · 18.11.2009, 22:05

нет, Вы не правы - посмотрите опеределение двойного факториала

@Пипа · 24.12.2009, 10:40 **[ТС]**

if (i mod 2)<>(n mod 2) then continue;

можно объяснение этой строки

@new_in_net · 24.12.2009, 18:26

Сообщение от Пипа

if (i mod 2)<>(n mod 2) then continue;

можно объяснение этой строки

Если остаток деления на 2 у переменных i и n не совпадают, то "продолжить"

Новые блоги и статьи Все статьи Все блоги /
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .	PowerShell Snippets iNNOKENTIY21 11.11.2025 Модуль PowerShell 5. 1+ : Snippets. psm1 У меня модуль расположен в пользовательской папке модулей, по умолчанию: \Documents\WindowsPowerShell\Modules\Snippets\ А в самом низу файла-профиля. . .

@Пипа 0 / 0 / 0 Регистрация: 11.11.2009 Сообщений: 30

	Двойной факториал 18.11.2009, 12:41. Показов 12963. Ответов 15 Метки нет (Все метки) Задача: Дано натуральное число n. Получить n!! (!-факториал),равное произведению (13...n) для нечётного n и (24...n) для чётного n. Требования: Использовать оператор FOR. Не использовать массивы и строки. При вычислении факториалов обратить внимание на переполнение. Определить,при каких значениях параметров оно наступает. Постараться отодвинуть эту эту границу путём изменения типа параметров или сокращения дробей. 0

@Пипа 0 / 0 / 0 Регистрация: 11.11.2009 Сообщений: 30
	18.11.2009, 20:18 [ТС]
	а можешь полностью написать пожалуйста,если не трудно? 0

@Пипа 0 / 0 / 0 Регистрация: 11.11.2009 Сообщений: 30
	18.11.2009, 20:44 [ТС]
	Error 97: invalid FOR control variable 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	18.11.2009, 20:47
	у меня все нормально! 0

@Лукас 4 / 4 / 2 Регистрация: 17.11.2009 Сообщений: 32
	18.11.2009, 20:52
	как удалять сообщения? 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	18.11.2009, 20:54
	никак, удалять может только модератор 0

@Пипа 0 / 0 / 0 Регистрация: 11.11.2009 Сообщений: 30
	18.11.2009, 21:01 [ТС]
	у меня не нормально,на фор жалуется( Добавлено через 3 минуты вроде заработало,для чётных кажется правильно,но для неч ответ с минусом вылазит.... 0

@sheka Босс 161 / 126 / 10 Регистрация: 03.06.2009 Сообщений: 750
	18.11.2009, 21:07
	var n:longint; 0

@Пипа 0 / 0 / 0 Регистрация: 11.11.2009 Сообщений: 30
	18.11.2009, 21:57 [ТС]
	victor_g прога работает,спасибо,но вроде нужно произведение факториалов,а вылазит просто факториал( может нужно ввести в расчёты ещё n2 чётное? а потом перемножить чёт и нечет... 0

@victor_g 60 / 60 / 9 Регистрация: 09.11.2009 Сообщений: 198
	18.11.2009, 22:05
	нет, Вы не правы - посмотрите опеределение двойного факториала 0

@Пипа 0 / 0 / 0 Регистрация: 11.11.2009 Сообщений: 30
	24.12.2009, 10:40 [ТС]
	if (i mod 2)<>(n mod 2) then continue; можно объяснение этой строки 0