Suppression d'éléments d'une liste chaînée simple

Version imprimable

20/07/2011, 21h07
gigimino

Suppression d'éléments d'une liste chaînée simple

Bonjour à tous;

Voilà j'ai un problème, je veux faire un algo qui supprime toutes les valeurs négatives d'une liste chaînée (simple) donnée; mon problème exact c'est comment on supprime deux valeurs négatives l'une après l'autre (Turbo Pascal).

Merci d'avance.
20/07/2011, 22h00
richard

La suppression d'un élément dans une liste chaînée se résume grosso modo à une redirection de pointeurs. Quand on sait supprimer un élément d'une telle liste, pour supprimer deux éléments ... il suffit de faire la même chose une fois de plus. :)

Un bout de code ?

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
program liste;
 
type
  lien =^objet;
  objet=record
      	  info :real;
	  suivant: lien;
        end;
 
var
  sommet, p, q : lien;
  i : integer;
 
begin
  write('entrer 6 nombre : ');
  sommet := Nil;
  for i := 1 to 6 do
    begin
      New(p); read(p^.info);
      p^.suivant:=sommet;
      sommet:=p;
    end;
 
  while  p <> nil do
    begin
      if (p^.info < 0) then
        begin
          q := p;
          p := p^.suivant;
          q^.suivant := p;
          dispose(q);
        end;
      if p^.info > 0 then
        begin
          write(p^.info);
          p:=p^.suivant;
        end;
    end;
end.

Bonjour,

Le problème est qu'au moment de la détection de l'élément négatif, tu as perdu l'adresse de l'élément qui lui précède.

Tu peux peut-être utiliser la variable q pour conserver cette adresse :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 q := p; while p <> nil do begin if (p^.info < 0) then begin q^.suivant := p^.suivant; dispose(p); p := q; end; if p^.info > 0 then begin write(p^.info); p := p^.suivant; end; q := p; p := p^.suivant; end;
J'ai rapidement testé sur papier mais il faut regarder si c'est valide avec un élément négatif en début de liste ou en fin de liste, ou si tous les éléments de la liste sont négatifs. ;)

22/07/2011, 14h28
droggo

Fao,

Certains diront que je me répète, mais ce genre de problème est typiquement de ceux qu'on résout avec

papier + crayon

:)