Возвести число в отрицательную степень - Turbo Pascal (29962)

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

Дано действительное положительное число a и целоe число n. Вычислите aⁿ. Решение оформите в виде функции power(a, n). Стандартной функцией возведения в степерь пользоваться нельзя. Входные данные Вводится действительное положительное число a и целоe число n. Выходные данные Выведите ответ на задачу. Примеры входные данные 2 1 выходные данные 2 входные данные 2 2 выходные данные 4 Спасибо.

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

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

function MyPower(const A: Real; const N: Integer): Real;
begin
  MyPower := Exp(Ln(A)*N);
end;

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

Создается функция MyPower с двумя константными параметрами: A и N.
Внутри функции создается переменная MyPower типа Real.
Вычисляется значение функции Exp(Ln(A)*N) и присваивается переменной MyPower.
Функция Exp(const A: Real) возвращает экспоненту от числа A.
Функция Ln(const A: Real) возвращает натуральный логарифм числа A.
Значение N умножается на логарифм числа A.
Результат умножения возводится в степень N.
Полученное значение экспоненты сохраняется в переменной MyPower.