Mélanger les éléments d’un tableau trié

rem ============================================================================
rem                         Shuffle.bas
rem              Mélanger les éléments d’un tableau trié
rem   ou comment générer un tableau dont les éléments sont tous différents
rem ============================================================================
dim i,n
n = 26
dim t(n),a$(n)
alpha 1 : top 1,10 : left 1,50 : font_bold 1 : font_size 1,14
caption 1,"Démonstration de la procédure SHUFFLE"
for i = 1 to n : t(i) = i : next i           : ' Création du tableau numérique trié
for i = 1 to n : a$(i) = chr$(64+i) : next i : ' Création du tableau alphabétique trié
' Déclarer les listes pour visualiser les résultats
list 10 : top 10,50 : left 10,010 : height 10,380 : font_bold 10
list 20 : top 20,50 : left 20,150 : height 20,380 : font_bold 20
list 30 : top 30,50 : left 30,290 : height 30,380 : font_bold 30
list 40 : top 40,50 : left 40,430 : height 40,380 : font_bold 40
' Afficher les listes triées
item_add 10,"Eléments triés" : item_add 10,""
for i = 1 to n : item_add 10,t(i) : next i
item_add 30,"Eléments triés" : item_add 30,""
for i = 1 to n : item_add 30,a$(i) : next i
' Mélanger et afficher
Shuffle_Numeric()
item_add 20,"Eléments melangés" : item_add 20,""
for i = 1 to n : item_add 20,t(i) : next i
' Mélanger et afficher
Shuffle_Alphanumeric()
item_add 40,"Eléments melangés" : item_add 40,""
for i = 1 to n : item_add 40,a$(i) : next i

end
rem ============================================================================
' Mélanger les éléments d'un tableau trié
SUB Shuffle_Numeric()
    dim_local pos,sauve,hasard
    for pos = n to 1 step -1
        hasard = int(rnd(1)*(pos+1)+1)
        sauve = t(pos)
        t(pos) = t(hasard)
        t(hasard) = sauve
    next pos
END_SUB
rem ============================================================================
SUB Shuffle_Alphanumeric()
    dim_local pos,sauve$,hasard
    for pos = n to 1 step -1
        hasard = int(rnd(1)*(pos+1)+1)
        sauve$ = a$(pos)
        a$(pos) = a$(hasard)
        a$(hasard) = sauve$
    next pos
END_SUB
rem ============================================================================

SUB Liste_Aleatoire(ch1%,ch2%)
    ' Bignono, modifier JC
    clear Dlist2% : clear Dlist3%
    dim_local i%
    for i% = ch1% to ch2% : item_add Dlist2%,str$(i%) : next i%
    while count(Dlist2%)>0
       i% = int(rnd(count(Dlist2%)))+1
       item_add Dlist3%,item_read$(Dlist2%,i%) : item_delete Dlist2%,i%
       caption 0,"Liste aléatoire: "+str$(count(Dlist3%))+" / "+str$(n2%)
    end_while
END_SUB