Discussion :

[uncline]

Bonjour,
je viens de réaliser une procédure qui a pour but de retirer une cellule d'une liste chaînée ; pour cela l'adresse de celle-ci est indiquée au programme (ici a : Liste).
Le sous-programme remplit bien sa fonction de base en retirant la cellule demandée, mais dans certains cas il retire également des cellules non désirées.
Voici la procédure :

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
procedure SupprCellule(var a : Liste;var L : Liste);
      var flag : integer;
      begin 
      flag := 0;
      if L = a then  {pour gérer le cas où la première cellule serait à supprimer}
            begin
            L := a^.suivant;
            dispose(a);
            flag := 1;
      end;
      while (flag <> 1) and (L <> nil) do {pour gérer tout les autres cas}
            begin 
            L^.suivant := a^.suivant;
            dispose(a);
            flag := 1;
      end;
      if flag <> 1 then 
            L := L^.suivant;
      end;
      end;

Voyez-vous une erreur flagrante ? (je débute les listes chaînées)

[e-ric]

Salut

Avant d'approfondir ton problème:
- passes ton code dans des balises -> bouton #
- donnes la description du type Liste.
- décrit aussi les paramètres de ta procédure.
- avec quel compilo travailles-tu ? (FreePascal, TurboPascal... il y ades différences).


Nous ne sommes pas des devins, j'aimerais bien, j'aurais une bonne raison de jouer au loto...

[e-ric]

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 SupprCellule(var a : Liste;var L : Liste);
var
  flag : integer;
begin 
  flag := 0;
  if L = a then {pour gérer le cas où la première cellule serait à supprimer}
  begin // ouais
    L := a^.suivant;
    dispose(a);
    flag := 1;
  end;
  while (flag <> 1) and (L <> nil) do {pour gérer tout les autres cas}
  begin 
    // >>> A quoi sert le while ? puisque tu agis directement sur a
    L^.suivant := a^.suivant; // >>> ici tu perds (voir) les cellules qui précèdent a
    dispose(a);
    flag := 1;
  end;
  if flag <> 1 then 
    L := L^.suivant; // ici tu perds le premier élément de ta liste et la mémoire avec !!!
//  end; end de trop !!! >>> ça compile pas !!
end;

Pose sur une feuille de papier les différents cas et éclaircis-toi les idées à l'aide de mes commentaires, c'est pas sorcier...

[uncline]

Salut en ce qui concerne le while, j'ai oublié une condition :

Code :

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

1
2
3
4
5
6
7
8
while (flag <> 1) and (L <> nil) do {pour gérer tout les autres cas}
  begin 
  if a = L^suivant then 
        begin
          L^.suivant := a^.suivant; 
          dispose(a);
          flag := 1;
        end; ....

La ligne :

Code :

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

1
2
if flag <> 1 then 
    L := L^.suivant;

permet de passer à la cellule suivante. (car je vérifie toute la liste pour changer la cellule qui pointe sur l'élément à supprimer)

Ma liste chaînée :

Code :

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

1
2
3
4
5
6
type  
    Liste = ^Cellule;
    Cellule = record
        contenu: voiture; 
        suivant: Liste;   
        end;

Les 2 paramètres sont de type liste : a,b : Liste
avec comme appel dans le programme principal : supprVehicule(b,a) le a est l'adresse de la cellule à supprimer.

[e-ric]

en ce qui concerne le while, j'ai oublié une condition

Ouais mais elle apporte pas grand chose. Comment fais-tu pour progresser dans la liste ???
Le passage de à la ligne suivante est en dehors de la boucle , problème ?

Pour les types, préfixe-les avec T, en Pascal, ça devient une tradition, ainsi
Liste -> TListe.

[uncline]

Encore désolé, j'ai mal recopié mon programme qui est sur mon PC portable.
La ligne L := L^.suivant était bien dans la boucle while.
Je viens de régler le problème : ne pas remettre le pointeur L à sa valeur de départ après être passé dans le while. (je n'avais jamais passé le pointeur de tête en paramètre par adresse)
Donc voila ^^, merci beaucoup pour ton aide !