Напишите рекурсивную функцию, возводящую число a в степень n. Гарантируется, что все числа "помещаются" в стандартные вещественные (a и ответ) и целые (n) типы. Входные данные Вводится 2 числа - a и n (число n может быть отрицательным). Выходные данные Необходимо вывести значение an Примеры входные данные 2 -1 выходные данные 0.5
Язык и версия компилятора? Надо ли проверять исключения (a<0, a=0) ?
И еще: если a=0, какой результат типа вещественного типа должна вернуть функция для отрицательного n?
Исправляю описку: Если a=0, какой результат вещественного типа должна вернуть функция для отрицательного n?
Понятно... задачу бросили, а дальше - наплевать
Var a,f: real; n,i,g: integer;begin read(a,n); if n<0 then begin</span> g:=n; n:=-n; end; f:=1; for i:=1 to n do f:=a*f; if g<0 then write(1/f)</span> else write(f); readln; readlnend.
А где тут, пардон, рекурсия?
Да и функции, собственно, тоже не вижу