Fonction Optimiser DernierElementGroupe(NumeroIterateur : Entier=0) Retourner Nul Ou TypeElement;
Si l'arbre binaire est nul, il n'y a pas d'itérateur et le résultat est Nul.
Si NumeroIterateur est inférieure ou égale à zéro, ou supérieure ou égale à quatre, alors l'exception IterateurInvalide est envoyée.
/****************************************************************/
Fonction ComparerCaractere(C1 : Nul Ou Caractere, C2 : Nul Ou Caractere) Retourner ComparaisonObjet
/* Objet : Comparaison des 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
/******/
A : ArbreBinaireDe Caractere;
C : Caractere;
Debut
/* Construction d'un arbre a trois éléments. */
A=ArbreBinaire(ComparerCaractere, Faux);
C="A";
A+=C;
A+="B";
A+=C;
/* Parcours de cet arbre. */
Pour C=A.ParcoursAuDebut() JusquA A.DernierElement() Pas A.SuivantGroupe() Faire
Ecran.Ecrire("Groupe " + A.NumeroGroupe())
Pour C=A.PremierElementGroupe() JusquA A.DernierElementGroupe() Pas A.Suivant () Faire
Ecran.Ecrire(C());
Fin Pour
Fin Pour
Fin Principal
- | - | - | - | - | - | - | - | - |