Tri a bulle - shell mezner

Soyez le premier à donner votre avis sur cette source.

Vue 6 265 fois - Téléchargée 568 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
608
Date d'inscription
samedi 3 août 2002
Statut
Membre
Dernière intervention
22 décembre 2016

26 févr. 2005 à 21:58
>
>
=

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
11
25 janv. 2003 à 02:12
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
11
25 janv. 2003 à 02:08
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
11
25 janv. 2003 à 01:53
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
458
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009

23 janv. 2003 à 13:22
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.