Написать рекурсивную функцию возведения числа а в ступень к (Pascal)

Написать рекурсивную функцию возведения числа а в ступень к (Pascal)

Задать свой вопрос
1 ответ

function myPower(a: real; n : integer) : real;

begin

   if n = 0 then result := 1 else if n lt; 0 then result := 1/myPower(a, -n) else result := myPower(a, n-1)*a;

end;

begin

   writeln(myPower(2.3, 2));

end.

Adelja Poznyreva
это не легкое решение
Макс Сеннов
к раскаяньи более обычного решения я не знаю :(
Makejchenko Vladimir
ничего)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт