Ejercicio 1(Recursividad)

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


PROGRAM recursiva(input,output);
(*Programa que mediante una funcion recursiba, calcule el factorial de un numero*)
VAR
numero,a:integer;

FUNCTION factorial(numero:integer):integer;
       BEGIN
       IF numero=0 THEN factorial:=1 ELSE
        factorial:=numero*factorial(numero-1);
END;

(***********************************************)
BEGIN
writeln('Escriba un numero');
read(numero);
a:=factorial(numero);
writeln('El factorial de ',numero:2,',es: ',a:2,'');
END.

Ejemplo de ejecución

                                                                                                                                                     Siguiente