Mélanger un tableau de valeur

[olivier]

La flemme est parmis moi ....

Je suis sur que quelqu'un a déjà fait une procedure pour mélanger un tableau de valeur de façon aléatoire : genre pour faire une playlist random.

Tableau du genre : Dim nom.s(100)

Hein oui y'en a un qui l'a fait dis tu peux me l'a donner

Merci d'avance et bonne prog à tous.

[scaraber]

ben je pence que au mommentde charger le tableau tu met des random
a=random(100)
charge tableau ligne (a)

[lionel_om]

prend une liste chainée et tu fais des swap

[Dr. Dri]

là c'est dans un tableau... pas une liste... mais bon fais des swap aussi lol... utilise random comme on te l'a suggéré...

Code : Tout sélectionner

n = 100
dim tab(n)
precision = 10000

randomize( elapsedmilliseconds() )

pour i de 1 à precision
  i1 = random(n)
  i2 = random(n)
  swap = tab(i1)
  tab(i1) = tab(i2)
  tab(i2) = swap
suivant

Dri

[Dr. Dri]

voila un code en PB...

Code : Tout sélectionner

n = 20
Dim tab(n)

For i = 0 To n
  tab(i) = i
Next i

;là on a un tableau d'entiers trié dans l'ordre croissant
;petite boucle pour le vérifier
For i = 0 To n
  Debug tab(i)
Next i

precision = 10000

RandomSeed( ElapsedMilliseconds() )

For i = 1 To precision
  i1 = Random(n)
  i2 = Random(n)
  swap = tab(i1)
  tab(i1) = tab(i2)
  tab(i2) = swap
Next i

Debug "---"

;là on a un tableau d'entiers mélangé
;petite boucle pour le vérifier
For i = 0 To n
  Debug tab(i)
Next i

Dri

[olivier]

Ma c'est SUPER !
Merci à vous