рекурсивные процедуры Опции

[neualena]

задача. Вычисление целой степени вещественного числа а пожалуйста, помогите решить

[Altair]

Без разницы, поменять-то в одном месте только
Тогда так (то было демоверсией :D )

Код

Procedure S(p:real; var  n:integer; var r :real);
Begin
IF r=0 Then r:=1;
IF n=0 Then Exit;
r:=r*p;
Dec(n);
S(p,n,r)
End;

Var
b:Integer;
a,c:real;
Begin
ReadLn(a,b);
S(a,b,c);
WriteLn(c:8:2);
End.

Зы: заходите к нам еще ! ;)

ЗЫЫ (после совещания с APAL'ом )
Параметры в рекурсивной процедуре передаются по ссылке а не по значению, так что следите заданными, параметр n после выполнения процедуры изменится.!!!