structure Polynome
{
        degre : entier
        coeff : tableau de réel
}


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.degre
        {
                val <-- val + puissance(X0,i)*P.coeff[i]
        }
        
        retourne val
}

fonction Annulation(E f:fichier)
{
        variable P : Polynome
                 nb : entier
        
        nb <-- 0
        
        Decaler(f, DEBUT_FICHIER,0)
        
        Tantque (NON Fin(f))
        {
                Lire(f,P)
                Si (Valeur(P,0)=0) alors
                {
                        nb <-- nb +1
                }
        }
        
        retourne nb
}

fonction Maximum(E X: reel)
{
        variable f : Fichier
                 P : Polynome
                 max, val : reel
                 premier : booleen
                 
        premier <-- VRAI
        Designer("polynomes.dat",f)
        Ouvrir(f,"lecture")
                
        Decaler(f, DEBUT_FICHIER,0)
        
        Tantque (NON Fin(f))
        {
                Lire(f,P)
                Si (premier) alors
                {
                        max <-- Valeur(P,X)
                        premier <-- FAUX
                }
                sinon
                {
                        val <-- Valeur(P,X)
                        Si (val > max) alors
                        {
                                max <-- val
                        }
                }
        }
        
        retourne max
}