trier par ordre

Question

N'y aurait y il pas une gentille personne qui
pourrai comment faire un alghoritme de tri rapide

frank19 · Answer

Salut ben ta le tri Quicksort que tu peux utiliser , tri sélectif, tri insertion, tri a bulle ,,, yen existe plein ... et sa dépend toujours de ce que tu veux trier et si tu veux trier sa dans un fichier par exemple ... tk jte donne sa, regarde si sa peux t'aider ... salut !

C'est un tri QUICKSORT RÉCURSIF utilisé dans le but de trier des données pour les mettre dans un fichier

Private Sub Quicksort(vect() As T_Indexe, Min As Integer, Max As Integer)

'Tri Quicksort. Permet de mettre en ordre les fichiers index.
Dim Ind1 As Integer
Dim Ind2 As Integer
Dim Pivot As String
Dim Tempo As T_Indexe
Dim Tempo2 As T_Indexe

Pivot = vect((Min + Max) \ 2).cle
Ind1 = Min
Ind2 = Max

Do
While vect(Ind1).cle < Pivot
Ind1 = Ind1 + 1
Wend
While vect(Ind2).cle > Pivot
Ind2 = Ind2 - 1
Wend
If Ind1 <= Ind2 Then
Tempo.cle = vect(Ind1).cle
vect(Ind1).cle = vect(Ind2).cle
vect(Ind2).cle = Tempo.cle
Tempo.Num = vect(Ind1).Num
vect(Ind1).Num = vect(Ind2).Num
vect(Ind2).Num = Tempo.Num
Ind1 = Ind1 + 1
Ind2 = Ind2 - 1
End If
Loop Until Ind2 < Ind1

If Min < Ind2 Then
Quicksort vect, Min, Ind2
End If

If Max > Ind1 Then
Quicksort vect, Ind1, Max
End If

End Sub

| - BLAFARD - | · Answer

grand merci

Trier par ordre

2 réponses

Discussions similaires