===== PascalABC.NET =====
function Pow(m, n: integer): real;
begin
if n = 0 then
Result := 1
else if n > 0 then
Result := Pow(m, n - 1) * m
else
Result := Pow(m, n + 1) / m
end;
Println('Рекурсивная функция :', (Pow(5, 3) - Pow(3, 3)) / Pow(2, -1));
Println('Стандартная операция:', (5 ** 3 - 3 ** 3) / (2 ** (-1)))
end.
===== PascalABC.NET =====
function Pow(m, n: integer): real;
begin
if n = 0 then
Result := 1
else if n > 0 then
Result := Pow(m, n - 1) * m
else
Result := Pow(m, n + 1) / m
end;
begin
Println('Рекурсивная функция :', (Pow(5, 3) - Pow(3, 3)) / Pow(2, -1));
Println('Стандартная операция:', (5 ** 3 - 3 ** 3) / (2 ** (-1)))
end.