fonction puissance(E X: réel, E n: entier): réel
{
        variable i : entier
                 p : réel
        
        p <-- 1
        Si ((X=0) ET (n != 0)) alors
        {
                p <-- 0
        }
        sinon
        {
                Pour i de 1 à n par pas de 1
                        p <-- p * X
        }
        retourne p                
}

fonction factorielle(E n:entier) : entier
{
        variable i,f : entier
        
        f <-- 1
        Si (n != 0) alors
        {
                Pour i de 1 a n 
                {
                        f <-- f * i
                }
        }
        retourne f
}


Algorithme Utilisation
{
        variable n : entier
                 x : réel
                 reponse : caractere
         
         Afficher("Cet algo calcule x^n/n!\n")
         
         repeter
         {        
                 Afficher("Veuillez saisir le x :")
                 Saisir(x)
                 Afficher("Veuillez saisir le n :")
                 Saisir(n)
        
                 Afficher(x,"^",n,"/(",n,"!)=", puissance(x,n)/factorielle(n),"\n")
                 
                 Afficher("Voulez vous recommencer ? (O/N)")
                 Saisir(reponse)
         jusqu'à (reponse='N')
}