{ Calcul de n! par methode recursive           }
{  - 0! = 1                                    }
{  - n! = (n-1)!*n                             }

entier fonction factoriel(n)
  Données
    n : entier
  locales
    res : entier
  si n = 0 alors
    res <- 1
    sinon
    res <- factoriel(n-1)*n
  fsi
  retourner res
fin action