Как описать рекурсивную функцию - Pascal

Формулировка задачи:

Как описать рекурсивную функцию pow(x, n) от вещественного x (x <> 0) и целого n, которая вычисляет величину x^n согласно формуле 1 при x = 0, xn = 1/x|n| при x < 0, x*xn-1 при x > 0. }

Решение задачи: «Как описать рекурсивную функцию»

Листинг программы

function pow(x:real;n:integer):real;
begin
if n=0 then pow:=1
else if n<0 then pow:=1/pow(x,abs(n))
else pow:=x*pow(x,n-1);
end;

Объяснение кода листинга программы

Задана рекурсивная функция pow(x:real;n:integer):real.
Если n=0, то pow присваивается значение 1.
Если n<0, то pow присваивается значение 1/pow(x,abs(n)).
Если n не равно 0 и не меньше нуля, то pow присваивается значение x*pow(x,n-1).
Функция используется для вычисления x в степени n.
Входные параметры функции: x - число, n - целое число.
Возвращаемое значение функции: real - число.
Пример использования функции: pow(2,3)=8.
В этом примере функция вызывается с аргументами 2 и 3.
По условию n не равно 0 и не меньше нуля, поэтому выполняется третий пункт.
pow(2,3-1)=pow(2,2)=4.
Функция вызывается рекурсивно с аргументами 2 и 2.
pow(2,2-1)=pow(2,1)=2.
Функция вызывается рекурсивно с аргументами 2 и 1.
pow(2,1-1)=pow(2,0)=1.
Функция вызывается рекурсивно с аргументами 2 и 0.
pow(2,0-1)=pow(2,-1)=1/2.
Функция вызывается рекурсивно с аргументами 2 и -1.
pow(2,-1-1)=pow(2,-2)=1/4.
Функция вызывается рекурсивно с аргументами 2 и -2.