Algorithme Cosinus
{
        variable X, cos, epsilon, terme : réel
                 i : entier

         Afficher("Veuillez saisir l'angle en radian")
         Saisir(X)
         Afficher("Veuillez saisir la précision souhaitée")
         Saisir(epsilon)
                 
         cos <-- 0

//          Pour i de 0 à N-1 
//          {
//                 cos <-- cos + (-1)^i*(X^(2*i))/((2*i)!)
//          }

         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," avec ", N, " termes\n")
}