Fonction Optimiser(Invariant, NulAbsorbant) Soustraction(A : Nul Ou ArbreBinaire(Nul Ou TypeElement)) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Si le premier arbre binaire est nul ou si le second arbre binaire est nul, alors le résultat est l'arbre binaire.
/****************************************************************/
Fonction ComparerCaractere(C1 : Nul Ou Caractere, C2 : Nul Ou Caractere) Retourner ComparaisonObjet
/* Objet : Compare les caracteres. */
/****************************************************************/
Debut
Si C1==Nul Ou C2==Nul Alors
Retourner ComparaisonNul;
Fin Si
Si C1<C2 Alors
Retourner ComparaisonAvant;
Fin Si
Si C1>C2 Alors
Retourner ComparaisonApres;
Fin Si
Retourner ComparaisonEgal;
Fin Fonction
Principal
/*******/
Variable
/******/
A1 : ArbreBinaireDe Caractere;
A2 : ArbreBinaireDe Caractere;
A3 : ArbreBinaireDe Caractere;
Debut
/* Construction d'un arbre a trois éléments. */
A1=ArbreBinaire(ComparerCaractere, Faux);
A1+="A";
A1+="B";
A1+="C";
A2=ArbreBinaire(ComparerCaractere, Faux);
A2+="A";
A2+="C";
A2+="D";
A3=A1.Soustraction(A2);
/* A3 contient 'B'. */
Fin Principal
- | - | - | - | - | - | - | - | - |