Discussion :

[gigimino]

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.

[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 ?

[gigimino]

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
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.

[Alcatîz]

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 :

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
  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.

[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