NbGroupes : Entier Lecture Public;
Le nombre de groupes de l'arbre binaire vide est 0.
/****************************************************************/
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;
Debut
A=ArbreBinaire(ComparerCaractere, Faux);
A+="A";
A+="B";
A+="C";
Ecran.Ecrire(A.NbGroupes);
/* Le nombre de groupes de A est 3. */
Fin Principal
- | - | - | - | - | - | - | - | - |