je n'arrive pas à créer un arbre binaire la procedure est la suivante
dites moi s'il y a des erreurs
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 procedure constr_arbre(var a:arbre;s:string;c:char); var sub:string; it:integer; begin it:=length(s); if a=nil then new(a); if (it>0) then begin sub:=copy(s,1,1); s:=copy(s,2,it); if (sub='0') then constr_arbre(a^.fg,s,c) else constr_arbre(a^.fd,s,c); end else begin if it=0 then a^.valeur:=c; end; end;
quand j'execute j'ai un runtime error 216
Partager