Définition...
Opérateurs...
Exemple...
Voir aussi...
Traduction...
/****************************************************************/
Type ArbreBinaire(TypeElement : Nul Ou Type) Implemente Public : ICollection(Nul Ou TypeElement) Defaut Final
/* Objet : Definition du type ArbreBinaire. */
/****************************************************************/
Prive :
/*-------------------------------------------------------------*/
/* Heritage des proprietes de ICollection. */
/*-------------------------------------------------------------*/
NbElements : Entier Lecture Public;
/*-------------------------------------------------------------*/
/* Proprietes propres. */
/*-------------------------------------------------------------*/
Comparaison : Nul Ou Appel Lecture Public;
Unique : Booleen Lecture Public;
NbGroupes : Entier Lecture Public;
Public :
/*-------------------------------------------------------------*/
/* Heritage des methodes d'IIterateur. */
/*-------------------------------------------------------------*/
Fonction Optimiser(Invariant) ParcoursAuDebut(NumeroIterateur : Entier=0) Retourner Nul Ou TypeElement;
Fonction Optimiser(Invariant) ParcoursALaFin(NumeroIterateur : Entier=0) Retourner Nul Ou TypeElement;
Fonction Optimiser(Invariant) ParcoursAuMilieu(Position : Nul Ou Entier, NumeroIterateur : Entier=0) Retourner Nul Ou TypeElement;
Fonction Suivant(NumeroIterateur : Entier=0) Retourner Nul Ou TypeElement;
Fonction Precedent(NumeroIterateur : Entier=0) Retourner Nul Ou TypeElement;
Fonction Optimiser(Invariant) PremierElement() Retourner Nul Ou TypeElement;
Fonction Optimiser(Invariant) DernierElement() Retourner Nul Ou TypeElement;
Fonction(Invariant) NumeroElement(NumeroIterateur : Entier=0) Retourner Nul Ou Entier;
Fonction(Invariant) Element(NumeroIterateur : Entier=0) Retourner Nul Ou TypeElement;
Fonction AllouerIterateur() Retourner Entier;
Procedure LibererIterateur(NumeroIterateur : Entier);
/*-------------------------------------------------------------*/
/* Heritage des methodes de ICollection. */
/*-------------------------------------------------------------*/
Fonction Optimiser(Invariant, NulAbsorbant) Gauche(Taille : Nul Ou Entier) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Fonction Optimiser(Invariant, NulAbsorbant) Droite(Taille : Nul Ou Entier) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Fonction Optimiser(Invariant, NulAbsorbant) Milieu(Position : Nul Ou Entier, Taille : Nul Ou Entier) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Fonction Optimiser(Invariant, NulAbsorbant) Inserer(L : Nul Ou ArbreBinaire(Nul Ou TypeElement), Position : Nul Ou Entier) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Fonction Optimiser(Invariant) Compter(Modele : Nul Ou TypeElement, Position : Nul Ou Entier=Nul) Retourner Nul Ou Entier;
Fonction Optimiser(Invariant) Rechercher(Modele : Nul Ou TypeElement, Position : Nul Ou Entier=Nul) Retourner Nul Ou Entier;
Procedure HabilitationContextuelle Supprimer(NumeroIterateur : Entier=0);
Procedure HabilitationContextuelle Remplacer(Remplacant : Nul Ou TypeElement, NumeroIterateur : Entier=0);
Fonction Optimiser(Invariant) RemplacerTous(Modele : Nul Ou TypeElement, Remplacant : Nul Ou TypeElement, Position : Nul Ou Entier=Nul) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Fonction Optimiser(Invariant) SupprimerTous(Modele : Nul Ou TypeElement, Position : Nul Ou Entier=Nul) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Fonction HabilitationContextuelle AjouterAuDebut(O : Nul Ou TypeElement) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Fonction HabilitationContextuelle AjouterALaFin(O : Nul Ou TypeElement) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Operateur HabilitationContextuelle +(O : Nul Ou TypeElement) Retourner Nul Ou Liste(TypeElement);
Operateur Optimiser(Invariant, NulAbsorbant) [](Position : Nul Ou Entier) Retourner Nul Ou TypeElement;
Operateur [](Position : Nul Ou Entier, Valeur : Nul Ou TypeElement, MethodeAComposer : Nul Ou Fonction(P1 : Nul Ou TypeElement, P2 : Nul Ou TypeElement) Retourner Nul Ou TypeElement);
Operateur [](Position : Nul Ou Entier, Prefixe : Booleen, MethodeAComposer : Nul Ou Fonction(P1 : Nul Ou TypeElement, P2 : Booleen) Retourner Nul Ou TypeElement) Retourner Nul Ou TypeElement;
/*-------------------------------------------------------------*/
/* Methodes propres. */
/*-------------------------------------------------------------*/
Constructeur(T : Nul Ou Type, Critere : Nul Ou Fonction(O1 : Nul Ou TypeElement, O2 : Nul Ou TypeElement) Retourner ComparaisonObjet, U : Booleen);
Fonction Optimiser(Invariant, NulAbsorbant) Union(A : Nul Ou ArbreBinaire(Nul Ou TypeElement)) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Fonction Optimiser(Invariant, NulAbsorbant) Intersection(A : Nul Ou ArbreBinaire(Nul Ou TypeElement)) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Fonction Optimiser(Invariant, NulAbsorbant) Soustraction(A : Nul Ou ArbreBinaire(Nul Ou TypeElement)) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Fonction Optimiser(Invariant, NulAbsorbant) Exclusion(A : Nul Ou ArbreBinaire(Nul Ou TypeElement)) Retourner Nul Ou ArbreBinaire(Nul Ou TypeElement);
Fonction SuivantGroupe(IIterateur : Entier=0) Retourner Nul Ou TypeElement;
Fonction PrecedentGroupe(IIterateur : Entier=0) Retourner Nul Ou TypeElement;
Fonction NbElementsGroupe(NumeroIterateur : Entier=0) Retourner Entier;
Fonction PremierElementGroupe(NumeroIterateur : Entier=0) Retourner Nul Ou TypeElement;
Fonction DernierElementGroupe(NumeroIterateur : Entier=0) Retourner Nul Ou TypeElement;
Fin Type
Chaque objet du type ArbreBinaire possède quatre moteurs d'itérations permettant de parcourir ses éléments. Les itérateurs sont numérotés de 0 à 3. Les méthodes utilisant les itérateurs référencient l'itérateur 0 par défaut. Les itérateurs dont le numéro est supérieur ou égal à 1 doivent être alloués avant d'être utilisés. Une fois utilisés, ils doivent être libérés.
Le type ArbreBinaire possède un constructeur explicite permettant de construire un arbre binaire vide. L'arbre binaire comporte le critère Critere permettant de classer les objets qui y sont mémorisés. Si le critère est Nul, alors le critère retenu est la comparaison des adresses des objets par la méthode Identique du type Objet.
Le type ArbreBinaire est paramétré par le type TypeElement correspondant au type d'élément de l'arbre binaire.
Les noeuds de l'arbre correspondent à un groupe d'objets ayant même valeur de critère. L'arbre peut posséder un ou plusieurs objets associés à chaque noeud. Si l'arbre est Unique, un seul objet peut être associé à chaque noeud.
=
pour l'affectation d'un arbre dans un autre.
==
pour l'égalité entre deux arbres. Le résultat est un booléen.
!=
pour l'inégalité entre deux arbres. Le résultat est un booléen.
+
pour ajouter à l'arbre un objet en conservant l'ordre de tri.
+=
pour ajouter à l'arbre un objet en conservant l'ordre de tri et affecter le résultat à ce même arbre.
[]
pour retrouver un élément d'après son numéro dans l'arbre. Le premier élément à pour 0 et le dernier élément à pour numéro NbElements - 1. Un numéro d'index incorrect provoque l'exception CollectionIndexImpossible.
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;
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() Faire
Ecran.Ecrire(C);
Fin Pour
Fin Principal
BinarerBaum | BinaryTree | 二叉树 | ArbolBinario | - | - | - | - |