Вычисление a^n рекурсивно и не рекурсивно.

[Katerina_K]

Добрый день!
Есть a^n ,нужно найти ее для четной и нечетной степени n с рекурсией и без.
Просто найти a^n могу,а как вызвать функцию рекурсивно не знаю.Объясните,пожалуйста.

var
a , p : real ;
i , n :word;
begin
write ( 'a=’ ) ;
readln ( a ) ;
write ( ’n=’ ) ;
readln (n ) ;
p:=1;
for i :=1 to n do
p:=p*a ;
writeln ( ’P=’ ,P: 1 : 3 ) ;
end.

[Аватар]

function MyExp(a: Real; n: Byte): Real;
begin
  case n of
  0: Result:=1;
  1: Result:=a;
  else Result:=a*MyExp(a,n-1);
  end;
end;

[Poma][a]

А зачем отдельный случай для 1?

[Аватар]

А зачем отдельный случай для 1?

Не знаю, так написал по быстрому. Зато на одну рекурсию меньше