Tri d'un tableau de valeur dans l'ordre croissant

Soyez le premier à donner votre avis sur cette source.

Snippet vu 37 435 fois - Téléchargée 27 fois

Commenter

Contenu du snippet

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.

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de cs_psycho
S'inscrire maintenant

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.

Du même auteur (cs_benbax)