[LG]Tri par insertion dans une liste chainée

Version imprimable

voila j'essaie de faire un tri par insertion dans une liste chainée seulement je n'arrive pas a trouver ce qui ne va pas dans mon code, si quelqu'un pouvait eventuellement m'aider
merci d'avance

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
 
procedure trier_liste(var TDL:ptliste;nbelem:integer);
var ptint,ptRes,ptPrec:ptliste;
begin
     ptPrec:=nil;
     ptint:=TDL;
     ptRes:=nil;
     for i:=1 to nbelem do
       begin
         while (ptint<>nil) do
           begin
             if (ptPrec^.elem<=ptint^.elem)
                then begin
                       ptRes:=ptPrec;
                       ptPrec:=ptint;
                       ptint:=ptint^.suiv;
                     end
                else begin
                       ptRes:=ptPrec^.suiv;
                       ptPrec:=ptint;
                       ptint:=ptint^.suiv;
                     end;
           end;
       end;
end;

@+
mister_dsg

18/12/2003, 17h41
Giovanny Temgoua

Est-ce que tu as remarqué que tu est entrain de vouloir déréférencer un pointeur valant nil?

Citation:

ptPrec:=nil;
...
...
...
if (ptPrec^.elem<=ptint^.elem)

ptPrec est une variable locale et forcément l'instruction ptPrec^.elem est fausse.

et en plus plus loin tu as même :

Citation:

ptRes:=ptPrec^.suiv;
18/12/2003, 19h48
mister_dsg

le probleme est que meme si j'affecte une valeur a ptPrec (par exemple TDL) est bien ça ne marche pas quand meme
donc j'aimerai savoir a quel niveau ça plante
merci d'avance
@+
mister dsg
18/12/2003, 20h24
Giovanny Temgoua

Voici un lien assez intéressant!

Lors du triage, tu compares successivement la valeur sur laquelle tu te trouves, tu le compares aux précédent jusqu'en début de chaine et à chaque fois tu fais des substitutions de VALEUR.

En pseudo code, tu auras:

Citation:

PROCEDURE Tri_Insertion (Tableau a[1:n])
POUR i VARIANT DE 2 A n FAIRE
INSERER a[i] à sa place dans a[1:i-1];
FIN PROCEDURE

Et lorsque je lis ton algo, nulle part tu ne permutes (à moins que je me trompe)

merci pour cette info mais elle ne m'a pas trop servi(enfin si un petit peu quand meme)
en revanche j'ai pu corriger mon erreur et finir mon tri dans ma liste chainé et ça marche plutot bien
pour ceux qui seraient interessés par le code le voici

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
 
procedure trier_liste(var TDL:ptliste;nbelem:integer);
var ptint,ptPrec:ptliste;
    i:integer;
    stock:integer;{stock variable de stockage temporaire}
begin
     for i:=1 to nbelem do
       begin
         ptint:=TDL;
         ptPrec:=ptint;
         ptint:=ptint^.suiv;
         while (ptint<>nil) do
           begin
             if (ptPrec^.elem>ptint^.elem) then
                begin
                  stock:=ptPrec^.elem;
                  ptPrec^.elem:=ptint^.elem;
                  ptint^.elem:=stock;
                end;
             ptPrec:=ptint;
             ptint:=ptint^.suiv;
           end;
       end;
end;

encore merci pour l'aide
@+
mister_dsg