Discussion :

[jsaviola]

je n'arrive pas à créer un arbre binaire la procedure est la suivante

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;

dites moi s'il y a des erreurs
quand j'execute j'ai un runtime error 216

[Alcatîz]

Bonjour !

Tu as fait New(a) mais tu n'as pas affecté la valeur Nil à a^.fg et a^.fd.
Donc, lorsque tu écris

Code :

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

constr_arbre(a^.fg,s,c)

a^.fg pointe n'importe où en mémoire, d'où l'erreur de protection générale.

Une manière propre d'initialiser une variable dynamique telle que celle-là est :

Code :

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

1
2
New(a);
FillChar(a^,SizeOf(a^),0);

Ainsi, tous les champs sont à zéro ou à Nil d'un seul coup.

[jsaviola]

merci beaucoup