XProfan

Français

RudiB.

Salut,

je steh justement voll sur dem Schlauch. je versuche une fortlaufen Zahlenreihe dans einem Array zufällig trop mischen. Hab là aussi quoi probiert, bloß haut cela pas wirklich hin.

Kompilieren Marque Séparation

CLS
Déclarer zaehler%,x%[],y%,wert%[]

Tandis 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 sur 0 mettons
    x%[3]=0
    x%[4]=0
    zaehler%=4

    Whileloop 0,4

        'Imprimer &loop

        Whileloop 300

            randomize
            y%=RND(&loop)

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

                Si x%[Y%]=0

                    x%[Y%]=wert%[zaehler%]'neue Wertzuweisung
                    Pause

                EndIf

            Endif

        Endwhile

        dec zaehler%

    Endwhile

    whileloop 5

        imprimer x%[&loop-1]

    Endwhile

    Imprimer
    waitinput

Endwhile

waitinput

Es wird sur jeden le cas pas bien gemischt.....je seh wohl den forêt avant lauter Bäumen pas....une Shuffle-Funktion (willkürlich mischen gibst oui pas dans XProfan)...ou bien ???

XProfan X4
Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

21.04.2021 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RudiB.

Hat sich erledigt....hab quoi dans qui le bébé-Box trouvé et funktioniert prima.

Kompilieren Marque Séparation

Faible% 10
CLS
window 0,0-480,320
Déclarer i%,numéro%,x%
inc x%

Whileloop 7' 7 Durchläufe zum testen / anschauen

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

Endwhile

Waitinput

Proc Shuffle

    Laisser i%=1

    Tandis que i%<10'liste füllen

        List% i%=i%
        Inc i%

    Wend

    Laisser i%=0
    Randomiser

    Tandis que i%<9

        Laisser numéro%=List%(Tour(10))

        Si numéro%

            imprimer numéro%,
            List% numéro%=0'Listenplatz ungültig faire
            Inc i%'

        EndIf

    Endwhile

ENDPROC

Xprofan X4
Rudolf Beske / München

Hardware: NB Intel I9 - 16GByte RAM

21.04.2021 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

RudiB.

Hab cela ganze la fois verfeinert et une Shuffle.inc gebastelt.
Hiermit peut fortlaufende Zahlenreihen zufällig gemischt volonté.
Aussi peux un Startpunkt et une Schrittweite eingestellt volonté.

Aufruf:

Kompilieren Marque Séparation

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

1.paramètre = Nombre de Zahlenelemente im Array
2.paramètre = Nombre de Elemente qui Zufällig aus cette Zahlenreihe ausgegeben volonté.
3. paramètre un leeres dynamisches INT-Array
4. paramètre = Startpunkt qui Zahlenelemente z.B. 0 (0-1-2-3....)
5. paramètre = Schrittweite dans qui Zahlenelementreihe z.B. 5 (0-5-10-15...)

ici un paire Code-Zeilen zum testen qui INC

Kompilieren Marque Séparation

 $I Shuffle.inc
CLS
window 100,200 -800,400
Déclarer Test_Array%[],anzahl_elemente%,ausgabe_elemente%,Start_bereich%,Schrittweite%
' un Beispiel pour Lottozahlen
anzahl_elemente%=49'49 payons-Elemente
ausgabe_elemente%=6'6 payons aus Zahlenfolge volonté gemischt ausgegeben.
start_bereich%=1'Startbereich = 1
Schrittweite%=1'Schrittweite = 1
shuffle anzahl_elemente%,ausgabe_elemente%,Test_Array%[],start_bereich%,Schrittweite%
Imprimer "z.B: Lottozahlen 6 aus 49"
Ausgabe
Imprimer
' un Beispiel pour une komplette Zahlenreihe qui gemischt wird.
anzahl_elemente%=20'20 payons-Elemente
ausgabe_elemente%=20'20 payons aus Zahlenfolge volonté gemischt ausgegeben.
start_bereich%=0'Startbereich = 0
Schrittweite%=1'Schrittweite = 1
shuffle anzahl_elemente%,ausgabe_elemente%,Test_Array%[],start_bereich%,Schrittweite%
Imprimer "Ein Beispiel pour une komplette Zahlenreihe qui gemischt wird, avec dem Startpunkt 0"
Ausgabe
Imprimer
' 15 payons-Elemente, 5 payons volonté gemischt ausgegeben, Startpunkt = 2, Schrittweite = 5
shuffle 15,5,Test_Array%[],2,5
Imprimer "15 payons-Elemente, 5 payons volonté gemischt ausgegeben, Startpunkt = 2, Schrittweite = 5"
Ausgabe
Imprimer
' 15 payons-Elemente, 8 payons volonté gemischt ausgegeben, Startpunkt = 0, Schrittweite = 2
shuffle 30,8,Test_Array%[],0,2
Imprimer "30 payons-Elemente, 8 payons volonté gemischt ausgegeben, Startpunkt = 0, Schrittweite = 2"
Ausgabe
waitinput
Fin

Proc Ausgabe

    whileloop SizeOf(Test_Array%[])

        Imprimer Test_Array%[&loop-1],

    Endwhile

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

ENDPROC