Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Здравствуйте, уважаемые эксперты!
Как в delphi 7 пишется факториал только чётных и только нечётных чисел

Вопрос задал: kinetik (статус: Посетитель) Вопрос отправлен: 13 января 2012, 13:59 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, kinetik!
Нельзя говорить "факториал только четных" чисел. Потому что он будет бесконечно большой. То, о чем Вы пишете - это двойной факториал. Рассчет на самом то деле очень простой.
рекурсивно

function f2(n:integer):integer;
begin
  if n <= 0 then f2 := 1
   else f2 := n * f2(n-2)
end;

function f3(n:integer):integer;
  var i, p:integer;
begin
  p := 1;
  while n > 1 do begin
    p := p * n;
    n := n -2;
  end;
  result := p;
end;

Ответ отправил: Вадим К (статус: Академик) Время отправки: 13 января 2012, 14:20 Оценка за ответ: 5

Мини-форум вопроса

13 января 2012, 15:27: Вопрос перемещён из тематического раздела Delphi » Общие вопросы по программированию в раздел Лабораторный практикум » Delphi модератором Ерёмин А.А.

Толяныч (статус: 4-ый класс), 14 января 2012, 00:40 [#1]: Ну, для надежности следовало бы еще третий раз спросить об одном и том же

bugmenot (статус: 3-ий класс), 14 января 2012, 01:30 [#2]: Цитата (Толяныч): Ну, для надежности следовало бы еще третий раз спросить об одном и том же Я же говорил надо гнать отсюда с домашними заданиями... виконання програми розпочинається з того самого мiсця, де призупинилося.

Толяныч (статус: 4-ый класс), 14 января 2012, 14:33 [#3]: bugmenot: > Я же говорил надо гнать отсюда с домашними заданиями... Или, как говорит min@y, за пиво

bugmenot (статус: 3-ий класс), 15 января 2012, 14:50 [#4]: Цитата (Толяныч): Или, как говорит min@y, за пиво Не сезон для пива, коньяк надо брать! виконання програми розпочинається з того самого мiсця, де призупинилося.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.