Arbre binaire [Résolu/Fermé]

Signaler
Messages postés
214
Date d'inscription
samedi 23 janvier 2010
Statut
Membre
Dernière intervention
15 mai 2013
-
Messages postés
214
Date d'inscription
samedi 23 janvier 2010
Statut
Membre
Dernière intervention
15 mai 2013
-
Bonjour,j'aimerai bien que vous m'aidiez svp voici ma procédure:
procedure suprimer(var r:arbre);
begin
if r<>nil then
begin
dispose(r);
if r^.fg<> nil then
suprimer(r^.fg);
if r^.fd<>nil then
suprimer(r^.fd);
end;
end;
j'utilise le pascale ...je sais pas pour quoi ca marche pas correctement cette procédure elle vide l'arbre mais ils me reste toujours le dernier éléments
merci d'avance

2 réponses

Messages postés
3241
Date d'inscription
jeudi 23 août 2007
Statut
Membre
Dernière intervention
19 mai 2013
600
je ne connais pas le pascal, mais je crois avoir compris que tu ne supprimes pas la racine de l'arbre dans ta procédure, seulement la feuille gauche et droite ( r^.fd et r^.fg si j'ai bien compris)
Messages postés
214
Date d'inscription
samedi 23 janvier 2010
Statut
Membre
Dernière intervention
15 mai 2013
11
merci
mais c'est pas vraiment ca