FOR-Schleifen Problem

[Aphton]

Ich habe einen einfacheren und leichter nachvollziehbaren Vorschlag für dich:
Zuerst - du benutzt Random(16) - dh es wird ein Zufallswert zwischen 0 und 15 zurückgeliefert. Nennen wir diese Zahl X um alles variabel zu halten. (X=16)
Übrigens muss X >= Länge von rZahl sein, damit keine Zahl doppelt vorkommt! (dh es müssen genug Zahlen vorhanden sein)

- Erstelle ein dynamisches Array der Länge X
- Fülle diese mit den Indexwerten (Also DynArr[0] := 0; DynArr[1] := 1, ..)
- Gehe alle Elemente von rZahl durch (i)
- ermittle ein Zufallsindexwert j := Random(Length(DynArr))
- führe folgende Zuweisung durch: rZahl[i] := DynArr[j]
- Lösche Element j aus DynArr