Question

Оформить рекурсию для вычисления числа в n степени

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

function Pow(x: real; n: integer): real :=

   (n = 0) and (x <> 0) ? 1.0 :

   (n <> 0) and (x = 0) ? 0.0 :

   n > 0 ? x * Pow(x, n - 1) :

   Pow(x, n + 1) / x;

begin

 Pow(-0.034, -6).Println

end.

Результат

647331137.613734