Inversion de liste chaînée
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 lment est ajout en dbut 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. |