Description...
Exemple...
Traduction...
Unique : Booleen Lecture Public;
Fonction ComparerCaractere(C1 : Nul Ou Caractere, C2 : Nul Ou Caractere) Retourner ComparaisonObjet
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.Unique);
/* Ecrit 'Vrai' si l'arbre est unique. */
Fin Principal
Einzigartig | Unique | 独特 | Unico | - | - | - | - |