TRI A BULLE - SHELL MEZNER

Commentaire de rene38 le 25/01/2003 01:53:10

1) Pourquoi catégorie API ?
2) Suggestion d'un autre algorithme (environ 3 fois plus rapide que Shell-Metzner :

Private Sub Command_Tri_rapide()
Dim k As Long, L As Long

Bar1.Min = 1
Bar1.Max = Val1
Bar1.Value = 1
If Val1  2 = Val1 / 2 Then k = Val1 Else k = Val1 - 1
   Do
     k = (k - 1)  2
     If k = 0 Then Exit Do  ' tri terminé
     For L = 1 To Val1 - k
         i = L
         Do
           j = i + k
           If Tableau(i) <= Tableau(j) Then Exit Do
           Temp = Tableau(i)
           Tableau(i) = Tableau(j)
           Tableau(j) = Temp
           i = i - k
         Loop While i > 0
     Next L
     Bar1.Value = Bar1.Value + k
     Form1.Caption = (Bar1.Value / Bar1.Max) * 100
   Loop
Bar1.Value = 1
Form1.Caption = "100 %"
Call Affichage_Liste
End Sub

Commentaire de rene38 le 25/01/2003 02:12:05

Re-correction
If Val1 antislash 2 = Val1 / 2 Then k = Val1 Else k = Val1 - 1
  Do
      k = (k - 1)  antislash 2

Les antislash ne passent pas