Tri rapide

Voir le sujet précédent Voir le sujet suivant Aller en bas

Tri rapide

Message par haiethem le Jeu 19 Avr - 13:55

Procedure Tri_Rapide(Var T:Tab;D,F:Integer);
Var
I,J:Integer;
Begin
If DBegin
I:=D+1;
J:=F;

While (I<=J) Do
Begin

While(T[I]<=T[D]) And(I<=F) Do {Chercher le premier élément}
Begin {supérieur au pivot}
I:=I+1; {à partir de i vers la droite}
End;

While(T[J]>T[D]) And(J>=D+1) Do {Chercher le premier élément}
Begin {inférieur ou égal au pivot}
J:=J-1; {à partir de j vers la gauche}
End;

If IBegin
Permute(T[I],T[J]);
I:=I+1;
J:=J-1;
End;

End;
Permute(T[D],T[J]); {Mettre le pivot à sa position finale}
Tri_Rapide(T,D,J-1);{Trier la partie à gauche du pivot}
Tri_Rapide(T,J+1,F);{Trier la partie à droite du pivot}
End;
End;

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14615
Réputation : 3
Date d'inscription : 08/11/2010
Age : 41

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum