Вычислить значение выражения

Описать рекурсивную функцию pow(x, n) от вещественного x (x <> 0) и целого n, которая вычисляет величину x^n (x в степени n) по формуле: Нужно применить exp (с помощью функции) Помогите пожалуйста
1 ответ

Описать рекурсивную функцию pow(x, n
Нужно применить exp
Какая-то глупость, если делать рекурсивно, то для чего exp?
uses crt;
function Step(x:real;y:integer):real;
begin
if y=0 then Step:=1
else if y=1 then Step:=x
else if y=-1 then Step:=1/x
else if y>1 then Step:=Step(x,y-1)*x
else Step:=Step(x,y+1)/x;
end;
var a:real;
    b:integer;
begin
clrscr;
write('a=');readln(a);
write('b=');readln(b);
write('a^b=',Step(a,b):0:2);
readln
end.