Algorithme Exponentiel
{
        variable exp, X, epsilon, terme : réel
                 i : entier
                 
         Afficher("Cet algorithme calcule l'exponentielle de X.\n")
         Afficher("Veuillez saisir X")
         Saisir(X)
         Afficher("Veuillez saisir la precision souhaitée")
         Saisir(epsilon)
         
         exp <-- 0
         
         i <-- 0
         Repeter
         {
                terme <-- (x^i)/i!
                exp <-- exp + terme
                i <- i + 1
         } jusqu'à (terme < epsilon)
         

        Afficher("exponentielle(",X,")=",exp,"\n")

}