XProfan

Español

RudiB.

¡Hola,

Yo steh gerade voll en el Schlauch. Yo versuche una fortlaufen Zahlenreihe en un Array zufällig a mischen. Hab como auch qué probiert, bloß haut el no wirklich hin.

Kompilieren Marca Separación

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

Mientras que 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 en 0 conjunto
    x%[3]=0
    x%[4]=0
    zaehler%=4

    Whileloop 0,4

        'Imprimir &loop

        Whileloop 300

            randomize
            y%=RND(&bucle)

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

                If x%[y%]=0

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

                EndIf

            Endif

        EndWhile

        dec zaehler%

    EndWhile

    whileloop 5

        imprimir x%[&bucle-1]

    EndWhile

    Imprimir
    waitinput

Endwhile

waitinput

Lo se en cada Fall no bien gemischt.....Yo seh wohl el Wald antes lauter Bäumen no....Un Shuffle-Función (willkürlich mischen gibst sí no en XProfan)...oder ???

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

21.04.2021 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RudiB.

Sombrero se hecho....tener qué en el Baby-Box gefunden y funktioniert prima.

Kompilieren Marca Separación

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

Whileloop 7' 7 Durchläufe para testen / anschauen

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

Endwhile

Waitinput

Proc Shuffle

    Let i%=1

    Mientras que i%<10'Liste füllen

        List% i%=i%
        Inc i%

    Wend

    Let i%=0
    Selección aleatoria

    Mientras que i%<9

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

        If zahl%

            imprimir zahl%,
            List% zahl%=0'Listenplatz ungültig hacer
            Inc i%'

        EndIf

    EndWhile

ENDPROC

Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

21.04.2021 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

RudiB.

Hab todos veces verfeinert y una Shuffle.inc gebastelt.
Hiermit puede fortlaufende Zahlenreihen zufällig gemischt voluntad.
Außerdem kann una Startpunkt y una Schrittweite eingestellt voluntad.

Aufruf:

Kompilieren Marca Separación

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

1.Parámetro = Anzahl el Zahlenelemente en el Array
2.Parámetro = Anzahl el Elemente el Zufällig de dieser Zahlenreihe ausgegeben voluntad.
3. Parámetro una leeres dynamisches INT-Array
4. Parámetro = Startpunkt el Zahlenelemente z.B. 0 (0-1-2-3....)
5. Parámetro = Schrittweite en el Zahlenelementreihe z.B. 5 (0-5-10-15...)

hier unos pocos Code-Zeilen para testen el INC

Kompilieren Marca Separación

 $I Shuffle.inc
CLS
window 100,200 -800,400
Declarar Test_Array%[],anzahl_elemente%,ausgabe_elemente%,Start_bereich%,Schrittweite%
' una Ejemplo para Lottozahlen
anzahl_elemente%=49'49 Pagar-Elemente
ausgabe_elemente%=6'6 Pagar de Zahlenfolge voluntad gemischt ausgegeben.
start_bereich%=1'Startbereich = 1
Schrittweite%=1'Schrittweite = 1
shuffle anzahl_elemente%,ausgabe_elemente%,Test_Array%[],start_bereich%,Schrittweite%
Imprimir "z.B: Lottozahlen 6 de 49"
Edición
Imprimir
' una Ejemplo para una komplette Zahlenreihe el gemischt se.
anzahl_elemente%=20'20 Pagar-Elemente
ausgabe_elemente%=20'20 Pagar de Zahlenfolge voluntad gemischt ausgegeben.
start_bereich%=0'Startbereich = 0
Schrittweite%=1'Schrittweite = 1
shuffle anzahl_elemente%,ausgabe_elemente%,Test_Array%[],start_bereich%,Schrittweite%
Imprimir "Ein Ejemplo para una komplette Zahlenreihe el gemischt se, con el Startpunkt 0"
Edición
Imprimir
' 15 Pagar-Elemente, 5 Pagar voluntad gemischt ausgegeben, Startpunkt = 2, Schrittweite = 5
shuffle 15,5,Test_Array%[],2,5
Imprimir "15 Pagar-Elemente, 5 Pagar voluntad gemischt ausgegeben, Startpunkt = 2, Schrittweite = 5"
Edición
Imprimir
' 15 Pagar-Elemente, 8 Pagar voluntad gemischt ausgegeben, Startpunkt = 0, Schrittweite = 2
shuffle 30,8,Test_Array%[],0,2
Imprimir "30 Pagar-Elemente, 8 Pagar voluntad gemischt ausgegeben, Startpunkt = 0, Schrittweite = 2"
Edición
waitinput
End

Proc Edición

    whileloop SizeOf(Test_Array%[])

        Imprimir Test_Array%[&bucle-1],

    EndWhile

    Imprimir
    ArrDel Test_Array%[],0,SizeOf(Test_Array%[])-1'Arraygrösse se en 1 gesetzt.

ENDPROC