Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Ejemplo del calculo recursivo de un numero factorial.
Procedure main is function nfact ( n : positive ) return positive begin if n = 1 then return 1; else return n * nfact( n -1); end if; end nfact; Begin Put( NFACT ( 5 ) ); End Main;