Discussion :

[zbooon]

Bonjour a tous,

J'essaie de realiser une liste chainée de nom que l'on range par ordre alphabetique, malheuresement je n'arrive a rien, et a chaque fois que j'entre une valeur, elle ecrase la precedente ou alors mon programme quitte subitement lorsque j'entre un nom

Si vous trouvez l'erreur merci de m'aider

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
40
procedure ajout_alpha(var deb:ptr_famille);
var
   fam,famprec:ptr_famille;
   name:string[20];
   place:boolean;
 
begin
writeln('Entrez le nom');
readln(name);
famprec:=NIL;
fam:=deb;
place:=false;
while (fam<>NIL) AND (place=false) do
begin
if (fam^.nom>name) then
begin
place:=TRUE;
end
else
begin
famprec:=fam;
fam:=fam^.suivant;
end;
end;
 
if (fam=NIL) then
begin
new(fam);
fam^.suivant:=deb;
deb:=fam;
fam^.nom:=name;
end
else
begin
new(fam);
fam^.suivant:=famprec^.suivant;
fam^.nom:=name;
famprec^.suivant:=fam;
end;
end;[/quote][/quote]

[M.Dlb]

Première chose, indente ton code, ca sera plus lisible pour tout le monde... Ensuite plusieurs problèmes :

- ta boucle de parcours pour rechercher si un mot est déjà dans la liste n'est pas simple... Elle peut être simplifiée comme ça :

Code :

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

1
2
3
4
5
6
7
8
fam := deb;
place := false;
while ((fam<>nil) and (not place)) do
begin
  if (fam^.nom > name) then place := true;
  famprec := fam;
  fam := fam^.suivant;
end;

Tu peux même te passer du booléen place si tu veux, en plaçant le test dans la condition de continuation de la boucle.

- ensuite ton insertion n'est pas correcte. Si fam vaut nil, ca veut dire qu'il n'y a aucun nom qui est lexicographiquement avant le nom entré. Il faut donc faire une insertion en fin de liste, or toi tu la fais en début. Si fam est différent de nil, tu recrées une cellule fam, ce qui écrases la précédente fatalement...

Il faut que tu revois ces deux points

[zbooon]

Oui j'ai oublié de preciser le type du pointeur:

Code :

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

1
2
3
4
5
6
7
8
 
type
    ptr_famille = ^famille;
 
    famille = record
            nom:string;
            suivant:ptr_famille;
            end;

Merci pour cette reponse, le probléme est que je ne trouve pas la solution pour faire une insertion en fin de liste :'([/code]

[zbooon]

Arf ma procédure etait parfait en faite il s'agissait d'une erreur dans mon programme principale :s

Merci quand meme de m'avoir aider

[M.Dlb]

Euh... elle est loin d'être parfaite ta procédure...