Ejercicio 2 (Recursividad)

Plantee e implemente una función recursiva en PASCAL para calcular la N-
ésima potencia de un  número entero. Además de la función, implemente un
programa principal apropiado para probar su funcionamiento.


PROGRAM enesi(input,output);
(*Progama que incluya una funcion recursiva que calcule la potencia n de un numero*)
VAR
n,numero,a:integer;
(************************************************************)
PROCEDURE datos;
BEGIN
write('Introduzca un numero:');
read(numero);
write('Introduzca el numero al que hay que elevarlo:');
read(n);
END;
(*************************************************************)
FUNCTION enesima(numero,n:integer):integer;
BEGIN
IF n=0 THEN enesima:=1 ELSE
enesima:=numero*enesima(numero,n-1);
END;
(*************************************************************)
BEGIN
datos;
a:=enesima(numero,n);
writeln(a);
END.

Ejemplo de ejecución

Anterior                                                                                                                                       Siguiente