Structure polynome
{
        cm : tableau de réel                 // cm pour coefficient monome
        degré : entier

}

fonction nbAnnulation(E f : Fichier) : entier
{
        variable n : entier
                p : polynome
        
        n <-- 0
        
        Decaler(f, Debut_Fichier, 0)
        
        Tant que (NON(Fin(f))
        {
                Lire(f,p)
                Si (p.cm[0] = 0) alors
                        n <-- n + 1
        }
        
        retourne n
}

fonction Valeur ( E p: polynome, E x0 : réel) : réel
{
        variable i : entier
                val : réel
                
        val <-- 0
        
        Pour i allant de 0 à  p.degré
                val <-- val + puissance(x0, i)*p.cm[i]
        
        retourne val
}

fonction RetourMax (E x : réel) : réel
{
        constante chaine nom <-- "polynomes.dat"
        variable f : Fichier
                p : polynome
                max,v : réel
        
        Designer(nom , f)
        Ouvrir(f, Lecture)
        
        Lire(f,p)
        max <-- Valeur(p,x)
        
        Tant que (Non (Fin (f)))
        {
                Lire(f,p)
                v <-- Valeur(p,x)
                
                Si (v > max) alors
                        max <-- v
        }
        
        Fermer(f)
        
        retourne max
}