TRI A BULLE - SHELL MEZNER
tmcuh
Messages postés
458
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009
-
23 janv. 2003 à 13:22
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016 - 26 févr. 2005 à 21:58
Afyn Messages postés 608 Date d'inscription samedi 3 août 2002 Statut Membre Dernière intervention 22 décembre 2016 - 26 févr. 2005 à 21:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5737-tri-a-bulle-shell-mezner
https://codes-sources.commentcamarche.net/source/5737-tri-a-bulle-shell-mezner
26 févr. 2005 à 21:58
>
=
Y a pas que les antislash qu'on disparu !
Afyn
25 janv. 2003 à 02:12
If Val1 antislash 2 Val1 / 2 Then k Val1 Else k = Val1 - 1
Do
k = (k - 1) antislash 2
Les antislash ne passent pas
25 janv. 2003 à 02:08
If Val1 2 Val1 / 2 Then k Val1 Else k = Val1 - 1
25 janv. 2003 à 01:53
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
23 janv. 2003 à 13:22