sup

Fonction Supprimer(var Racine:pointeur(noeud),Val:entier):Booleen
variables p,precedentmin,min:noeuds;

Debut
    si(Racine=NULL)
        supprimer=faux;
    sinon
    {
        si(Valeur(Racine)=Val)
        {
            si((FG(Racine)=NULL)et(FD(Racine)=NULL))
            {
                Liberer(Racine);
            }
            sinon
        {
            si((FG(Racine)<>NULL)et(FD(Racine)=NULL))
                {
                    p=Racine;
                    Racine=FG(Racine);
                    Liberer(p);
                }
                sinon
        {
                si((FG(Racine)=NULL)et(FD(Racine)<>NULL))
                    {
                        p=Racine;
                        Racine=FD(Racine);
                        Liberer(p);
                    }
                    sinon
                    {
                        Min=min(FD(Racine),precedentMin);
                        Aff_Val(Racine,Valeur(Min));
                        Supprimer(precedentMin,Valeur(Min));
                    }
        }
       }
           Supprimer=vrai;
        }
        sinon
    {
        si(Valeur(Racine)<Val)
            {
                    Supprimer = Supprimer(FD(Racine),Val);
            }
            sinon
            {
                 Supprimer = SupprimerRecursive(FG(Racine),Val);
            }
        }
Fin