Рекурсии на Паскале:)

[Валера В.]

1) Организовать вычисление N! с помощью рекурсивной функции.
N! = 1*2*3*4...*N

2)Даны действительное целое число А, целое число n. Организовать вычисление А в n-ой степени с помощью рекурсивной функции. Показатель степени n может быть любым целым числом.

Прошу помочь решить хотябы одну...

[Пепел Феникса]

Прошу помочь

помочь, хорошо.

где ваши попытки сделать?
или конкретные вопросы?что именно не получается?

[no_to]

первая решается нетяжело. и разбиралась на разных форумах тысячи раз.. при желании можешь ее даже найти

[Gorychev]

первая решается нетяжело. и разбиралась на разных форумах тысячи раз.. при желании можешь ее даже найти

угу и вторая недалеко от первой отскочила.

[ОДИНОЧЕСТВО В СЕТИ]

2)

function Pow(X:real; N: Integer): Integer;
begin
     if N = 0 then
     begin
          Pow := 1;
          Exit;
     end;
     if N mod 2 = 0 then Pow := Pow(X * X, N div 2)
     else Pow := X * Pow(X, N - 1);
end;

1)

function FacRecursive(n: Word): LongInt; 
begin 
if n > 1 then 
 FacRecursive := n * FacRecursive(n-1) 
else 
   FacRecursive := 1; 
end;