Tri a bulle - shell mezner

Soyez le premier à donner votre avis sur cette source.

Vue 6 164 fois - Téléchargée 560 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
Messages postés
608
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
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
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
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
10
Correction ( l'antislash a disparu !!)
If Val1 2 Val1 / 2 Then k Val1 Else k = Val1 - 1
Messages postés
1858
Date d'inscription
samedi 29 juin 2002
Statut
Membre
Dernière intervention
17 octobre 2013
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
Messages postés
458
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.