3 Zufallszahlen ohne Wiederholung

[markusj]

Kennst du Arrays?
Wenn ja, gut, wenn nein, Informieren!
Genauer gesagt, brauchst du dynamische Arrays. Die Sucher hilft dir gerne weiter ...
Dann speicherst du bei jedem Klick auf den Generieren-Knopf die Zahlen in dem Array.
Bei einer weiteren Generierung wird dann zuerst gecheckt, ob die Zahl/-en bereits vorhanden sind ... wenn nein werden sie ins Array übernommen und ausgegeben, wenn ja wird eine neue Zahl erzeugt.

Als Ablaufdiagramm

Code:

         Programmstart
               |
Es wird ein dynamisches Array der Länge 0 definiert
               |
    Benutzer klickt auf Button
               |
  Es wird eine Zufallszahl erzeugt <----------------------------------------------------------
               |                                                                              |
        Entscheidungsvaribale := false;                                                       |
               |                                                                              |
<Kontrolle: ist die Zahl im Array? Am besten per for i := low(array) to high(array)>          | 
Wenn ja, dann break und Entscheidungsvariable auf OK setzen                                   |
               |                                                                              |
Wenn die Entscheidungsvariable auf true steht, setlength(array,lenght(array)+1);              |
und dann array[high(array)] := zahl;                                                          |
Ansonsten wieder zurück zur Generierung -------------------------------------------------------
//Diese Operation wird 3x durchgeführt, einmal für jedes Label

mfG

Markus

EDIT: Heureka, er hat mir nur den Start verschoben ... und gar kein Roter Kasten?