15 de mayo de 2001

Calcula el factorial de un número

Función recursiva para calcular el factorial de un número
*************************************
* Funcion recursiva para calcular el factorial de un numero
* para todo N en los naturales > 0
* Forma de Uso: ? Factorial(cb) 
*
* Autor: Ramón Rodriguez Martinez
* e-mail cesa@ases.net.mx
* URL http://www.empresavirtual.com.mx
************************************
Function Factorial(Numero)
if Numero
    return 1
Else
    Numero=Numero*Factorial(Numero-1)
Endif
Return Numero
EndFunc

No hay comentarios. :

Publicar un comentario