Рекурсия: нахождение двойного факториала

@Work Group · Регистрация: 10.11.2009

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

вот не знаю,как описать рекурсивную функцию нахождения двойного факториала..

вот мой вариант,он он естественно не правильный))

Delphi

uses crt;
function Factorial(N:integer):longint;
var i:byte;
    t:longint;
begin
if odd(N)then
  begin
    t:=1;
    for i:=1 to (N div 2)+1 do
    t:=t*(2*i-1);
  end
else if not odd(N) then
  begin
    t:=1;
    for i:=1 to N div 2 do
    t:=t*2*i;
  end;
Factorial:=t;
end;
var z:longint;
    k,i:byte;
begin
clrscr;
i:=0;
inc(i);
write('k=');readln(k);
writeln('K!!=',Factorial(k));
readln
end.

@Puporev · 17.11.2009, 14:28

Pascal

uses crt;
var n:integer;
function Fac_2(n:integer):longint;
begin
if n=1 then Fac_2:=1
else if n=2 then Fac_2:=2
else fac_2:=n*fac_2(n-2);
end;
begin
clrscr;
Write('n=');readln(n);
write('n!!=',fac_2(n));
readln;
end.

В целых числах работает до 17.

@Work Group · 17.11.2009, 15:03 **[ТС]**

спасибо,но тут можно небольшой косметический штришок сделать...всё сделать через один if и что-бы програ не вылетала при вводе отрицательных чисел

Delphi

uses crt;
var n:integer;
function Fac_2(n:integer):longint;
begin
if n<=2 then Fac_2:=n
else fac_2:=n*fac_2(n-2);
end;
begin
clrscr;
Write('n=');readln(n);
write('n!!=',fac_2(n));
readln;
end.

Опции темы

Рекурсия: нахождение двойного факториала

Решение