Функция двойного факториала

@Toshi · Регистрация: 29.11.2010

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

Описать функцию Fact 2 (N) вещественного типа, вычисляющую значение двойного факториала N!!=N*(N*-2)*(N-4)*... (N>0-параметр целого типа; последний сомножитель в произведении равен 2, если N-четное, и 1, если N-нечетное ). С помощью этой функции вычислить двойные факториалы пяти данных чисел.

@Puporev · 30.11.2010, 08:01

Pascal

uses crt;
function Fact2(n:integer):real;
var i,k:integer;
    f:real;
begin
f:=n;
while n>2 do
 begin
  n:=n-2;
  f:=f*n;
 end;
Fact2:=f;
end;
var i,n:integer;
begin
writeln('Введите 5 чисел для вычисления двойных факториалов:');
for i:=1 to 5 do
 begin
  write('n=');
  read(n);
  writeln(n,'!!=',Fact2(n));
 end;
end.

@Toshi 0 / 0 / 0 Регистрация: 29.11.2010 Сообщений: 10
		1
	Функция двойного факториала 30.11.2010, 06:41. Показов 3041. Ответов 1 Метки нет (Все метки) Описать функцию Fact 2 (N) вещественного типа, вычисляющую значение двойного факториала N!!=N(N-2)(N-4)... (N>0-параметр целого типа; последний сомножитель в произведении равен 2, если N-четное, и 1, если N-нечетное ). С помощью этой функции вычислить двойные факториалы пяти данных чисел. 0

	30.11.2010, 08:01

Функция двойного факториала

Решение