|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите написать программу на 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
|
||||
|
||||
Код:
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. |