Inversion de liste chaînée

[timetheo]

Bonjour,
je travaille avec TP7 sous windows xp, j'ai un problème avec les listes chainées :
la partie remplissage et affichage de ma liste marche bien,
mais ensuite j'essaie d'inverser ma liste dans une autre liste, et là ça ne marche pas...
lors de l'exécution du programme une erreur se produit à cette étape :
erreur 203 : Heap overflow error (dépassement de tas)
Je pense que c'est parce que mon code n'est pas bon bien sur, car a priori la manipulation souhaitée n'a rien d'extraordinaire).
Quelqu'un pourrait-il corriger la partie où j'essaie d'inverser ma liste dans une deuxième liste ?

Par avance merci,

blm.

Voici mon code complet :

Code :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
program liste_chainee_entiers;
 
type  Tptr_cellule = ^Tcellule;
 
      Tcellule = record
                    valeur:integer;
                    suivant:Tptr_cellule;
                    end;
 
var debut, nouveau, debut2 : Tptr_cellule;
    reponse : char;
    n : integer;
    stop : boolean;
 
begin
reponse:='o';
new(debut);
writeln('Entrer un entier');
readln(debut^.valeur);
writeln('Voulez-vous continuer la saisie d''entiers ? o/n ');
readln(reponse);
 
while (reponse='o') do
      begin
      writeln('Entrer un entier');
      readln(n);
      new(nouveau);
      nouveau^.valeur:=n;
      nouveau^.suivant:=debut;
      debut:=nouveau; {de la sorte le nouvel ‚l‚ment est ajout‚ en d‚but de liste}
      writeln('Voulez-vous continuer la saisie d''entiers ? o/n ');
      readln(reponse);
      end;
 
n:=1;
stop:=false;
while (not stop)
      do
        begin
        if (debut^.suivant=nil) then stop:=true;
        writeln('L''entier n§',n,' de la liste est : ',debut^.valeur);
        debut:=debut^.suivant;
        n:=n+1;
        end;
readln;
{reecriture de la liste dans l'autre sens}
new(debut2);
 
stop:=false;
while (not stop)
      do
        begin
 
        new(nouveau);
        nouveau^.valeur:=debut^.valeur;
        nouveau^.suivant:=debut;
        debut2:=nouveau;
        if (debut^.suivant=nil) then stop:=true;
        end;
 
n:=1;
stop:=false;
while (not stop)
      do
        begin
        if (debut2^.suivant=nil) then stop:=true;
        writeln('L''entier n§',n,' de la liste est : ',debut2^.valeur);
        debut2:=debut2^.suivant;
        n:=n+1;
        end;
 
readln;
 
end.

[M.Dlb]

Attention avec tes variables début et début2. En général ces valeurs ne doivent plus changer une fois que ta liste est remplie de valeurs, car sinon tu perds justement le début.

Pour parcourir une liste chaînée, on utilise une variable temporaire plutôt que de modifier le début. De la même façon, il faut passer par des variables temporaires pour ajouter des cellules d'une nouvelle liste.

Aussi, tu alloues début2, mais ça n'a pas d'intérêt puisque juste après, tu alloues une cellule temporaire avec la variable nouveau.

Voila quelques pistes

[Dr.Who]

pourquoi ne gère tu pas une Liste chainée double sens :

Code :

1
2
3
4
5
PLCItem = ^TLCItem;
TLCItem = record
  data: pointer;
  previous, next: PLCItem;
end;

previous = nil = c'est le premier item
next = nil = c'est le dernier item

parcourir dans le bon sens :

Code :

1
2
3
4
5
6
7
 
ptr := item;
while ptr^.next <> nil do
begin
  ptr^.data^ ... quelque chose
  ptr := ptr^.next;
end;

parcourir dans le sens inverse

Code :

1
2
3
4
5
6
7
 
ptr := item;
while ptr^.previous <> nil do
begin
  ptr^.data^ ... quelque chose
  ptr := ptr^.previous;
end;

compter les items

Code :

1
2
3
4
5
6
7
while ptr^.previous <> nil do
  ptr := ptr^.previous;
while ptr^.next <> nil do
begin
  inc(counter);
  ptr := ptr^.next;
end;

tu peux aussi regarde ma vieille source dans ce Zip (l'unité ChainList.pas)