Arbre binaire

Résolu
joura. Messages postés 214 Date d'inscription   Statut Membre Dernière intervention   -  
joura. Messages postés 214 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

2 réponses

Pacorabanix Messages postés 3248 Date d'inscription   Statut Membre Dernière intervention   663
 
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)
0
joura. Messages postés 214 Date d'inscription   Statut Membre Dernière intervention   11
 
merci
mais c'est pas vraiment ca
0