Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ] > Код на шару!
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 05.10.2014, 14:26
Cinceres55 Cinceres55 вне форума
Прохожий
 
Регистрация: 05.10.2014
Сообщения: 1
Версия Delphi: Delphi 7
Репутация: 10
Смущение Помогите написать программу на Delphi про четные факториалы

Короче нужно написать программу, но я плохо понимаю функцию факториал.

Определить функцию, которая возвращает чётный
факториал натурального числа.
n!!=2*4*6…*n
Вычислить чётные факториалы чисел от N1 до N2, используя определённую
функцию

Например от 1 до 4:
1!! = 1 = 1
2!! = 1*2 = 2
3!! = 1*2 = 2
4!! = 1*2*4 = 8 и ответы суммировать.

ну а например 6!!= 1*2*4*6 = 48
то есть при нечетном числе мы берем предыдущий ответ.
как такое организовать в console application? Мб кто то может написать код?
Ответить с цитированием
  #2  
Старый 05.10.2014, 14:41
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Код:
function fact2(value:integer);
var i:integer;
begin
  i := 2;
  result := 1;
  while (i <= value) do
  begin
    result := result * i;
    i := i + 2;
  end;
end;
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 20:57.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter