Discussion :

[Adaprog]

Bonjour tt le monde ,

Je me demande si quelqu'un peut m'aider , j'ai un probleme pour afficher tous les éléments de cet arbre
---------------------------------------------------------------------------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure Afficher(a : IN  arbre_n) is 
temp : arbre_n;
begin
 
temp := a;
if (An_Vide(temp)) then
	return;
end if;
put(temp.all.val);
Afficher(temp.all.premier_fils);
Afficher(temp.all.frere_droit);
 
end An_Afficher;

---------------------------------------------------------------------------------------------

Le problème c'est que lorsque j'essaye d'afficher un sous arbre d'un arbre n aire il m'affiche tous ses frères .

Voici la structure utilisée

[Zerte]

Ton code a l'air bon dans le sens que tout l'arbre (ou tout le sous-arbre, selon ce que tu envoies à "Afficher") va être affiché, mais peut-être sous une forme à laquelle tu ne t'attends pas.

Essaie des permutations des lignes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
put(temp.all.val);
Afficher(temp.all.premier_fils);
Afficher(temp.all.frere_droit);

On ne sait pas ce que tu aimerais comme affichage.
Au fait, tu n'as pas besoin de la variable "temp", tu peux utiliser "a" directement.