Algo

Construire un arbre binaire équilibré à partir d'une table en récursif

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Construire un arbre binaire équilibré à partir d'une table en récursif

Profil supprimé

Bonjour,
Je suis à la recherche d'un algorithme de remplissage d'un arbre binaire équilibré à partir d'une table d'élément ordonnés.

C'est une procédure ou fonction récursive qui avec Ada s'écrit en partie, me semble t'il de mémoire :

Code :

procedure Tree_Loader(Table : in out T_Table;
                            B_Inf, B_Sup : in out Positive) is
         midle : positive := (b_sup - b_inf) / 2;
      begin
         ---
         ajout_dans_l_arbre();
         ---
         ajout_dans_l_arbre();
      end Tree_Loader;

Il me semble que les deux appel à ajout sont dans un if et son else, mais pas certain.

Ca dit quelque chose à quelqu'un ?
Merci.

Publicité

Profil supprimé

Yep!

Je cherche.... J'y suis presque....
Voilà çe à quoi ça ressemble... Mais ça n'a pas l'air d'être ça encore...

Code :

procedure Tree_Loader(Table : in table_access;
                            B_Inf, B_Sup : in out Natural) is
 
         Coded_Word : T_Coded_Word;
         Midle : Natural := B_Inf + ((B_Sup - B_Inf)/ 2);
         New_B_Inf : Natural;
         New_B_Sup : Natural;
 
      begin
         if Midle+1 < B_sup then
            New_B_inf := Midle+1;
            Tree_Loader(Table => Table,
                        B_Inf => New_B_Inf,
                        B_Sup => B_sup);
         end if;
         Coded_Word := Table(Midle);
         Put_Line(To_String(Coded_Word.Word));
         Code_To_Word.Add(Coded_Word, Univers(Number_Of_Dictionary).To_Word);
         Word_To_Code.Add(Coded_Word, Univers(Number_Of_Dictionary).To_Code);
         if B_inf < Midle-1 then
            New_B_sup := Midle-1;
            Tree_Loader(Table => Table,
                        B_Inf => B_inf,
                        B_Sup => New_B_sup);
         end if;
      end Tree_Loader;

J'ai deux Add, parce que je remplie deux arbre en fait.

Profil supprimé

Ca, ça n'a pas l'air mal non plus... Peut-être que je le tiens.

Code :

procedure Tree_Loader(Table : in table_access;
                            B_Inf, B_Sup : in out Natural) is
 
         Coded_Word : T_Coded_Word;
         Midle : Natural := B_Inf + ((B_Sup - B_Inf)/ 2);
         New_B_Inf : Natural := b_inf+1;
         New_B_Sup : Natural := b_sup-1;
 
      begin
         
         if Midle < new_B_sup then
            
            Tree_Loader(Table => Table,
                        B_Inf => midle,
                        B_Sup => new_B_sup);
         end if;
         
         Coded_Word := Table(Midle);
         Put_Line(To_String(Coded_Word.Word));
         Code_To_Word.Add(Coded_Word, Univers(Number_Of_Dictionary).To_Word);
         Word_To_Code.Add(Coded_Word, Univers(Number_Of_Dictionary).To_Code);
         if new_B_inf < Midle then
            
            Tree_Loader(Table => Table,
                        B_Inf => new_B_inf,
                        B_Sup => midle);
         end if;
         
      end Tree_Loader;

Profil supprimé

Voila la soluce que je cherchais...

Code :

procedure Tree_Loader(Table : in table_access;
                            B_Inf, B_Sup : in Natural) is
         Coded_Word : T_Coded_Word;
         Middle : Natural := b_inf + (b_sup-b_inf) / 2;
         New_B_Inf : Natural;
         New_B_Sup : Natural;
      begin
         Coded_Word := Table(Middle);
         Code_To_Word.Add(Coded_Word, Univers(Number_Of_Dictionary).To_Word);
         Word_To_Code.Add(Coded_Word, Univers(Number_Of_Dictionary).To_Code);
         if Middle-1 >= B_Inf then
            new_b_sup := middle-1;
            Tree_Loader(Table => Table,
                        B_Inf => b_inf,
                        B_Sup => new_b_sup);
         end if;
         if  middle+1 <= B_sup then
            new_b_inf := middle+1;
            Tree_Loader(Table => Table,
                        B_Inf => new_b_inf,
                        B_Sup => b_sup);
         end if;      
      
      end Tree_Loader;

Merci bien

FORUM HardWare.fr

Programmation

Algo

Construire un arbre binaire équilibré à partir d'une table en récursif

Sujets relatifs
vb6 selection d'une table access liée à as400	générer des figures en metapost à partir de java
avoir le code binaire du bios	Récupérer nom auteur d'une table news
arbre binaire/fonction recursif/lecture fichier	differencier les table dans un site
Scan d'un répertoire ou table en base de données ?	[SQL] Design table "réseau social"
Plus de sujets relatifs à : Construire un arbre binaire équilibré à partir d'une table en récursif

Page générée en 0.042 secondes