Discussion :

[blackmage]

Salut a tous

j ai un ptit probleme de tri d'une liste chainée circulaire j aimerais faire un tri par bulles mais ca ne fonctionne pas ca trie qu en partie je ne sais pas pq

voici le code

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
procedure tri;
var i,j:integer;
    mem1,mem2:pointeur;
begin
p1:=debut;
for i:=1 to compteurmax do (*compteurmax= nbre d'éléments dans la liste chaînée*)
 for j:=1 to compteurmax-1 do
  begin
 
   if p1^.suivant^.info<p1^.info then
      begin
 
       mem1:=p1^.suivant^.suivant;
       mem2:=p1^.suivant;
       p1^.suivant^.precedent:=p1^.precedent;
       p1^.suivant^.suivant^.precedent:=p1;
       p1^.suivant^.suivant:=p1;
       p1^.precedent^.suivant:=p1^.suivant;
       p1^.suivant:=mem1;
       p1^.precedent:=mem2;
      end;
 
  p1:=p1^.suivant;
 
  end;
end;

si vous pouvez m aider ca serait cool pcq je rame la

[M.Dlb]

C'est quoi une liste circulaire ?? Désolé je ne connais pas ça !
Poste la déclaration des types que tu utilises, en particulier le type de P1...

a+

[blackmage]

ca va j ai résolu le problème lol apparament ca venait de la boucle pour bizar :/ (je l ai remplace par while p<> debut^.precedent)

en fait p1 etait de type pointeur ac

precedent:pointeur;
info:integer;
suivant:pointeur

(dans un liste circulaire le dernier élément^.suivant pointe vers le premier élément) y a pas de nil merci pour ta réponse qud mem

[macluvitch]

Une liste circulaire (comme tu dis) c'est une liste chaine linked list

En savoir plus

http://www.google.com/search?hl=en&lr=&ie=UTF-8&oe=UTF-8&q=linked+list+turbo+pascal

A+