Fonction PrecedentGroupe(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 Itérateur est inférieure ou égale à zéro ou supérieure ou égale à quatre, alors l'exception IterateurInvalide est envoyée.
S'il n'y a plus d'élément précédent, alors l'exception PrecedentImpossible est envoyée.
/****************************************************************/
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
/******/
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.ParcoursALaFin() JusquA A.PremierElement() Pas A.PrecedentGroupe() Faire
Ecran.Ecrire(C);
Fin Pour
Fin Principal
- | - | - | - | - | - | - | - | - |