Page 1 sur 1
Mélanger un tableau de valeur
Publié : ven. 19/août/2005 17:41
par 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.
Publié : ven. 19/août/2005 17:47
par scaraber
ben je pence que au mommentde charger le tableau tu met des random
a=random(100)
charge tableau ligne (a)
Publié : ven. 19/août/2005 18:08
par lionel_om
prend une liste chainée et tu fais des swap
Publié : ven. 19/août/2005 19:01
par 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
Publié : ven. 19/août/2005 19:05
par 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
Publié : sam. 20/août/2005 7:38
par olivier
Ma c'est SUPER !
Merci à vous
