Рекурсия и опережающее описание

[McJordan]

Здравствуйте. Надо решить программу в Pascall методом Рекурсии и опережающее описание

"Дано действительное число а, натуральное число k. Не пользуясь стандартной операцией возведения в степень, найти аk."

Заранее спасибо

[Z1000000]

Зачем здесь рекурсия? Алгоритм работает в одну сторону , возвращаться не нужно.

i:=1;
M:=1;
while (i<k+1) do
 begin
 M:=M*a;
 end;
writeln (a);

[McJordan]

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

Зачем здесь рекурсия? Алгоритм работает в одну сторону , возвращаться не нужно.

i:=1;
M:=1;
while (i<k+1) do
 begin
 M:=M*a;
 end;
writeln (a);

ты это не мне спрашивай а того кто составлял эти задачи

[sabbathist]

Я так понял, вас просят реализовать возведение в степень за O(logN), где N это степень. Делается это следующим образом:
1. Составляется реккурентное соотношение:
F(n)=F(n/2)*F(n/2) при n%2=0;
F(n)=F(n-1)*a (где а - число, которое возводим в степень) при n%2=1
F(0)=1

2. Пишете по нему рекурсию:
это уже за вами.

[aaaaaa]

var
  a: real;
  k: integer;

function Step(a: real; k: integer): real;
begin
  if k>0 then
    Step:=a*Step(a,k-1)
  else
    Step:=1;
end;

begin
  Write('Vvedite (a,k): ');
  Readln(a,k);
  Writeln(Step(a,k):0:9);
  Readln;
end.