Рекурсия

[ldinka135]

Здравствуйте Друзья!! Помогите пожалуйста!!!!!!!!!!
Программа нужна на паскале.
Выполнить необходимую обработку, при этом описать рекурсивную процедуру или
функцию, исходя из условия задачи. Исходные данные задать самостоятельно, учитывая специфику
задачи.
Дано натуральное число n. Вычислить n!! (1*3*5 … n для нечетного n и 2*4 …n для четного n).
Очень нужна Ваша помощь!!!!!!!!

[Alexei91]

Вычисление факториала. РФ - ф-я,кот. вызывает сама себя.

function Fact(n: integer): integer;
begin
  if n = 1 then Fact := 1
  else Fact := n*Fact(n-1);
end;

Дальше сами додумаете

[ldinka135]

а можно пожалуйста целиком программу(

[Stilet]

http://www.programmersforum.ru/showthread.php?t=46505
Там пример рекурсии. Осиль его.

[ldinka135]

ничего не понимаю в программировании((

[Stilet]

ничего не понимаю в программировании((

Зато лень-матушка накрыла:

function F(x:extended):extended;
begin
 if x=1.0 then F:=1.0
 else F:=x*F(x-2);
end;
var
  Sochet : extended;
  n:integer;
begin
 n:=9;  Sochet := F(n);  WriteLn('1*3*5...n = ',trunc(Sochet):1);
 n:=10; Sochet := F(n);  WriteLn('2*4...n = ',trunc(Sochet):1);
end.