Petit bout de code sans aucune prétention, pour que le site possède des algorithmes types, au milieu des exemples. Ce petit bout de code pourra servir si vous cherchez un moyen rapide et efficace pour trier un tableau de valeur. Si vous utilisez un autre langage que le VB, l'algorithme est utilisable dans BEAUCOUP de language.
Plus communément appellé le tri a bulle.....
Petit problème connu : C'est vous qui me l'apprendrai =)
Source / Exemple :
Dim i, j, tmp, tmpMin, tmpMax, tableau(10)
Dim invert as Boolean
'Considérons que le tableau est plein de valeurs aléatoires....
tmpMin = 1
tmpMax = 0
invert = True
While invert = True
For i=0 to 10
If tableau(i)>tableau(i+1)
tmpMax = tableau(i)
tableau(i) = tableau(i+1)
invert = True
Else
invert = False
End If
If tableau(i)<tableau(i+1)
tmpMin = tableau(i+1)
tableau(i+1) = tableau(i)
invert = True
Else
invert = False
End If
Next
Wend
Conclusion :
IMPORTANT : Je connais bien cette alogorithme. Le seul problème, c'est que je l'ai tapée directement ici, sans la tester. Ce n'est pas pour autant qu'elle est fausse, je suis quasi-sur qu'elle fonctionne. Si quelqu'un la teste, merci de me dire si cela fonctionne bien, et si il y a un moyen pour l'optimiser.
A bientot Ben.
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.