ou est l'erreur dans ce code (suppression d'un arbre triaire)

**caloucalou** · 18/05/2009, 17h06

Bonjour voila un bout de mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 psommet=^sommet;
      sommet =record   
 
      mi:integer;
      mo:integer;
      num:integer;
      pt_1:psommet;
      pt_2:psommet;
      pt_3:psommet;
      end;
 
procedure suppression(S:psommet);
      begin
      if  S<>nil then
        begin
        if S^.pt_1 <> nil then
        suppression(S^.pt_1);
        if S^.pt_2 <> nil then
        suppression(S^.pt_2);
        if S^.pt_3 <> nil then
        suppression(S^.pt_3);
      	dispose(S)
        end;
      end;