Tri a bulle - shell mezner

Soyez le premier à donner votre avis sur cette source.

Vue 5 995 fois - Téléchargée 546 fois

Description

Juste un petit code qui montre les vitesses entre les tri a bulles et le shell mezner

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Afyn
Messages postés
613
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
22 décembre 2016
-
>
>
=

Y a pas que les antislash qu'on disparu !

Afyn
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
9 -
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
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
9 -
Correction ( l'antislash a disparu !!)
If Val1 2 Val1 / 2 Then k Val1 Else k = Val1 - 1
cs_rene38
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
9 -
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
tmcuh
Messages postés
463
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009
-
remarquables, rien à dire sinon que les commentaires manque cruellement

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.