Algorithme Cosinus
{
        variable X, cos, epsilon, terme : reel
                 i : entier

        
        Afficher("Cet algorithme calcule cosinus d'un angle exprimé en radian\n")
        
        Afficher("Veuillez saisir l'angle (en radian)")
        Saisir(X)
        
        Afficher("Veuillez saisir la precision attendue")
        Saisir(epsilon)
        
        cos <-- 0
        i <-- 0
        
        terme <--(X^(2*i))/((2*i)!)
        
        Tant que (terme >= epsilon)
        {
                cos <-- cos + (-1)^i*terme
                i <-- i + 1
                terme <--(X^(2*i))/((2*i)!)
        }
        
        Afficher("cos(",X,")=", cos, " pour ", N, " termes.\n")
        
}