Tri d'une liste optimisées
tilap
Messages postés
1
Date d'inscription
samedi 15 mars 2003
Statut
Membre
Dernière intervention
15 mars 2003
-
15 mars 2003 à 15:47
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 15 mars 2003 à 16:22
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 15 mars 2003 à 16:22
1 réponse
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
11
15 mars 2003 à 16:22
15 mars 2003 à 16:22
Une variante plus rapide de l'algorithme Shell-Metzner :
'Tri de Tableau(1 To nbre_elements)
Sub tri_optimisé(nbre_elements))
Dim i As Long, J As Long, k As Long, L As Long
k = 1
Do
k = k * 2
Loop While k <= nbre_elements)
Do
k = (k - 1) \ 2
If k = 0 Then Exit Do ' tri terminé
For L = 1 To nbre_elements) - k
i = L
Do
J = i + k
If Tableau(i) <= Tableau(J) Then Exit Do ' déjà trié Provi Tableau(i): Tableau(i) Tableau(J): Tableau(J) = Provi
i = i - k
Loop While i > 0
Next L
Loop
End Sub
'Tri de Tableau(1 To nbre_elements)
Sub tri_optimisé(nbre_elements))
Dim i As Long, J As Long, k As Long, L As Long
k = 1
Do
k = k * 2
Loop While k <= nbre_elements)
Do
k = (k - 1) \ 2
If k = 0 Then Exit Do ' tri terminé
For L = 1 To nbre_elements) - k
i = L
Do
J = i + k
If Tableau(i) <= Tableau(J) Then Exit Do ' déjà trié Provi Tableau(i): Tableau(i) Tableau(J): Tableau(J) = Provi
i = i - k
Loop While i > 0
Next L
Loop
End Sub
