[TP 7] Problème avec les listes chaînées (error 202)

**thelinekioubeur** · 04/12/2006, 16h41

Bonjour,

d'abord
>J'utilise TP7
>Je débute ^^

Mon problème: ce code ne renvoie pas toujours la même chose:

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
25
26
27
28
29
30
type
  liste=^mots;
  mots=
  record
    contenu:string;
    suiv:liste;
  end;
 
procedure ajoutemot(i:string; var l:liste);
begin
  if l=nil then
  begin
    new(l);
    l^.contenu:=i;
  end
  else begin
    ajoutemot(i,l^.suiv)
  end
end;
 
var l:liste;
 
begin
  ajoutemot('yop',l);
  writeln(l=nil);
  writeln(l^.suiv=nil);
  ajoutemot('yep',l);
  writeln(l^.contenu);
  writeln(l^.suiv^.contenu);
end.

Ce code, comme vous le constatez, ne prend rien en entrée (j'ai fait ce programme juste pour tester la procédure).

Voici le problème: il n'écrit pas toujours la même chose, et je ne comprend pas pourquoi:
Première éxécution il écrit:
FALSE
TRUE
yop
yep
Deuxième éxécution:
FALSE
FALSE
yop
yep
Troisième éxécution: error 202:stack overflow error

La procédure, vous l'aurez compris, sert à ajouter un mot à la liste (chainée) de mots.

Pouvez vous me dire où est l'erreur?
Et tant qu'à faire, pouvez vous me donner une procédure qui marche?

Merci beaucoup

thelinekioubeur

**thewho** · 04/12/2006, 17h06

Bonjour,

Il serait bon d'utiliser la balise [code] pour rendre ton code plus lisible (en pensant à l'indenter, si ce n'est pas fait).

Sans aller très loin dans la lecture du code, et au vu des résultats aléatoires, je conclus : variable non initialisée.
Comme tu utilises des pointeurs, je précise mon idée : pointeur non initialisé (c'est un oubli encore plus fréquent que pour les variables "ordinaires").

Je jette donc un coup d'oeil rapide, et que vois-je ?

Va voir.