Факториал !

[Sport]

Парни помогите пожалуйста!!
1)Для заданного целого n ≥ 0 вычислить:
( 2n )!! = 1•2•4•6•...• ( 2n ) ;

как будет выглядеть прога в паскале!!!!
спс заранее

[__Demon__]

Вот функция на Си. Переделай её в Паскаль.

unsigned long factorial(unsigned long n)
{
	if (n == 1)
		return n;
	else
		return n * factorial(n / 2);
}

[Kingdom_Reborn]

На Лиспе без заморочек с длинной арифметикой

(defun _2N!! (n)
	(cond
		((eq n 0) 1)
		(t (* (_2N!! (- n 1)) 2 n))))

[Asnio]

отписал в другой теме

так?

program factorial;
var
i,f,n :integer;
begin
f:=1;
n:=2;

for i:=1 to 5 do
begin
f:=f*n;
n:=n+2;
end;

write('Factorial = ',f);
end.

[ROMA2PVT]

var
i,n:integer;
fact,sum:real;
begin
repeat
readln(n);
until n>=0;
fact:=1;
for i:=1 to n do
begin
fact:=fact*(2*i);
end;
write('  ',fact,'  ');
end.

p.s:

var
i,n:integer;
fact,sum,k:real;
begin
repeat
readln(n);
until n>=0;
fact:=1;
k:=1;
for i:=1 to n do
begin
if i=1 then fact:=1
else
fact:=fact*((i-1)*2);
end;
write('  ',fact,'  ');
end.

[LeBron]

Сообщение от __Demon__

Вот функция на Си. Переделай её в Паскаль.

unsigned long factorial(unsigned long n)
{
	if (n == 1)
		return n;
	else
		return n * factorial(n / 2);
}

Неверно, кстати.
Надо рекурсивно вызывать факториал n-2, и тогда еще базу задать лучше n<2.

[__Demon__]

Да, виноват. Просто мне показалось вместо 1*2*4*6... 1*2*4*8...