XProfan

CLS
Declare zaehler%,x%[],y%,wert%[]

While 0=0

    wert%[0]=1
    wert%[1]=2
    wert%[2]=3' Zahlenreihe 1-5
    wert%[3]=4
    wert%[4]=5
    y%=0
    x%[0]=0
    x%[1]=0
    x%[2]=0'Array-Werte auf 0 setzen
    x%[3]=0
    x%[4]=0
    zaehler%=4

    Whileloop 0,4

        'Print &loop

        Whileloop 300

            randomize
            y%=RND(&loop)

            If (y%>=0) and (y%<=4)

                If x%[y%]=0

                    x%[y%]=wert%[zaehler%]'neue Wertzuweisung
                    Break

                EndIf

            Endif

        EndWhile

        dec zaehler%

    EndWhile

    whileloop 5

        print x%[&loop-1]

    EndWhile

    Print
    waitinput

Endwhile

waitinput

Dim% 10
CLS
window 0,0-480,320
Declare i%,zahl%,x%
inc x%

Whileloop 7' 7 Durchläufe zum testen / anschauen

    clearlist
    Print
    Print "Durchgang..";x%
    inc x%
    Shuffle

Endwhile

Waitinput

Proc Shuffle

    Let i%=1

    While i%<10'Liste füllen

        List% i%=i%
        Inc i%

    Wend

    Let i%=0
    Randomize

    While i%<9

        Let zahl%=List%(Rnd(10))

        If zahl%

            print zahl%,
            List% zahl%=0'Listenplatz ungültig machen
            Inc i%'

        EndIf

    EndWhile

EndProc

shuffle 15,5,Test_Array%[],2,5

 $I Shuffle.inc
CLS
window 100,200 -800,400
Declare Test_Array%[],anzahl_elemente%,ausgabe_elemente%,Start_bereich%,Schrittweite%
' ein Beispiel per Lottozahlen
anzahl_elemente%=49'49 Zahlen-Elemente
ausgabe_elemente%=6'6 Zahlen aus Zahlenfolge werden gemischt ausgegeben.
start_bereich%=1'Startbereich = 1
Schrittweite%=1'Schrittweite = 1
shuffle anzahl_elemente%,ausgabe_elemente%,Test_Array%[],start_bereich%,Schrittweite%
Print "z.B: Lottozahlen 6 aus 49"
Ausgabe
Print
' ein Beispiel per eine komplette Zahlenreihe die gemischt wird.
anzahl_elemente%=20'20 Zahlen-Elemente
ausgabe_elemente%=20'20 Zahlen aus Zahlenfolge werden gemischt ausgegeben.
start_bereich%=0'Startbereich = 0
Schrittweite%=1'Schrittweite = 1
shuffle anzahl_elemente%,ausgabe_elemente%,Test_Array%[],start_bereich%,Schrittweite%
Print "Ein Beispiel per eine komplette Zahlenreihe die gemischt wird, mit dem Startpunkt 0"
Ausgabe
Print
' 15 Zahlen-Elemente, 5 Zahlen werden gemischt ausgegeben, Startpunkt = 2, Schrittweite = 5
shuffle 15,5,Test_Array%[],2,5
Print "15 Zahlen-Elemente, 5 Zahlen werden gemischt ausgegeben, Startpunkt = 2, Schrittweite = 5"
Ausgabe
Print
' 15 Zahlen-Elemente, 8 Zahlen werden gemischt ausgegeben, Startpunkt = 0, Schrittweite = 2
shuffle 30,8,Test_Array%[],0,2
Print "30 Zahlen-Elemente, 8 Zahlen werden gemischt ausgegeben, Startpunkt = 0, Schrittweite = 2"
Ausgabe
waitinput
End

Proc Ausgabe

    whileloop SizeOf(Test_Array%[])

        Print Test_Array%[&loop-1],

    EndWhile

    Print
    ArrDel Test_Array%[],0,SizeOf(Test_Array%[])-1'Arraygrösse wird auf 1 gesetzt.

EndProc