Algorithme Terme_Exp
{
        variable x : réel
                 n,i : entier
                 terme : réel


        Afficher("Saisir x : ")
        Saisir(x)
        Afficher("Saisir n : ")
        Saisir(n)
        
        terme <-- 1
        
        Pour i de 1 à n
                terme <-- terme * x/i
        
        Afficher("Le terme ",x,"^",n,"/",n,"! = ", terme,".\n")
}