Zufallszahl ziehen ohne wiederholung

[walli18]

Ich brauche dringend eure Hilfe!
Für ein Quiz was ich erstellt habe möchte ich eine zufallszahl bekommen wenn ich auf einen button klicke! Diese sollte von 1-40 gehen! Beim erneuten klicken auf den button sollte auch eine zufallszahl von 1-40 kommen, außer der, die ich vorher schon hatte! Das ganze will ich 15 mal ausführen, so dass jede frage nur einmal kommt! Jeder zahl von 1-40 ist eine Frage zugeordnet!
Doch wie mache ich das???
Ich bin ein echter anfänger und bräuchte deswegen ne einfache lösung oder nen kompletten Quelltext!
Für die antworten bedanke ich mich schonmal!!

[jfheins]

Wenns einfach sein soll:

1. Neue Zahl ziehen

2. Prüfen ob sie schon gezogen wurde
**2a) Wenn ja, eider zu 1
**2b) Wenn nicht zu Schritt 3

3. Zahl speichern und nächste Zahl ziehen (Schritt 1)

Hat leider den Nachteil einer nicht-deterministischen Laufzeit .... (= Wenn Ostern und Weihnachten auf einen Tag fallen rechnet sich das Programm unendlich lange tot)

Zuverlässiger, aber komplizierter geht es, wenn du eine Liste mit den möglichen Zahlen machst, daraus eine Zahl ziehst und diese dann aus der Liste entfernst ...

[Jens Hartmann]

Hallo,

Versuch mal sowas

Delphi-Quellcode:

 

procedure TForm1.Button1.Click(Sender: TObject);
var
z : integer; 
begin 
randomize; 
z := random(40)+1; //Zufallszahl im Bereich 1-40 
end;

Achso, du musst noch eine Schleife einbauen, die abfragt, welche Zahlen schon waren.

MFG

Jens

[walli18]

Danke für deine schnelle Antwort!
Ich hatte es schon so versucht, dass ich gesagt habe:
1. ziehe eine Zahl von 1 bis 40 (i:=1+random(40))
2. Wenn er eine zahl gezogen hat z.B. 2 dann wird in ner case of anweisung die variable zwei:=1 gesetzt, wenn er ne 3 gezogen hätte dann drei:=1;
davor hab ich :eins:=0; zwei:=0;.......
in form activate gesetzt!
Somit merkt er sich, was er schonmal hatte, da dann der wert dort 1 ist!
Jetzt ist nur meine Frage, wie ich das dann auswerte! Ich hatte schon an ne repeat until schleife gedacht, doch weis ich net genau, wie ich das verpacke!
Falls meine Idee net geht würde ich mich über einen weiteren hinweis zu deinem letzten vorschlag freuen!

[walli18]

Das wäre vielleicht auch ne Lösung!
[/quote]Zuverlässiger, aber komplizierter geht es, wenn du eine Liste mit den möglichen Zahlen machst, daraus eine Zahl ziehst und diese dann aus der Liste entfernst ...


Aber wie mache ich das??
so dass ich beim klicken auf nen Button jedes mal ne neue zahl gezogen wird( die routine ausgeführt wird) aber nach 15 versuchen von 40 zahlen keine doppelt vorkommt?????
Danke für eure Hilfe!!!
Ich bin echt verzweifelt

[Meflin]

1. Zuerst erstellst du ein array der Länge des Zahlenbereiches, aus dem die Zahlen kommen sollen

Delphi-Quellcode:

MyArray: array of integer;
...
SetLength(MyArray, 40);

2. Dann füllst du das array mit den Zahlen

Delphi-Quellcode:

for i := 0 to Length(MyArray) - 1 do
  MyArray[i] := i + 1;

3. Dann lässt du dir eine Zufallszahl generieren, die im Bereich der Länge des arrays liegt

Delphi-Quellcode:

rnd = random(Length(MyArray) - 1)

4. Die Zahl an MyArray[rnd] fügst du zum Ergebnis hinzu
5. Du kopierst das letzte Element deines arrays an die Stelle MyArray[rnd] und verkürzt das array um 1 (entspricht dem entfernen der gezogenen Zahl aus dem Zufallsraum)

Delphi-Quellcode:

MyArray[rnd] := MyArray[Length(MyArray) - 1];
SetLength(MyArray, Length(MyArray) - 1);

6. Widerhole 14 mal ab Punkt 3 ;)

hth.

[DP-Maintenance]

Dieses Thema wurde von "fkerber" von "Neuen Beitrag zur Code-Library hinzufügen" nach "Sonstige Fragen zu Delphi" verschoben.
Da es sich um eine Frage handelt, ist dieses Unterforum leider das falsche ;)
Es dient dem Vorschlagen neuer Code-Snippets für die Library.

[walli18]

Danke ich werds mal ausprobieren! zur Zeit habe ich das hier:
aber es treten die Zufallszahlen doppelt auf)
Das hier ist ne gekürze Fassung von meinem Quiz(nur mit 6 Fragen, sind aber bei mir 40!)
Schwierigkeitsgrad ist bei mir die Nummer, für die Frage

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
begin
  Schwierigkeitsgrad:=1+random(6);
  case Schwierigkeitsgrad of
      1: begin Frage:='Wie viele Jahre beträgt die Amtszeit des Bundeskanzlers';
                A:='4 Jahre';
                B:='6 Jahre';
                C:='5 Jahre';
                D:='3 Jahre';
                Loesung:=1;
                eins:=1;
                end;
      2: begin Frage:='Wann war der Bau der Berliner Mauer?';
                A:='13.August 1959.';
                B:='13.August 1961.';
                C:='13.August 1960.';
                D:='13.Juni 1960.';
                Loesung:=2;
                zwei:=1;
                end;
       3: begin Frage:='Wann war die russische Oktoberrevolution?';
                  A:='1919';
                  B:='1920';
                  C:='1917';
                  D:='1918';
                  Loesung:=3;
                  drei:=1
                end;
       4: begin Frage:='Wo ist der Sitz des Bundesverfassungsgerichts?';
                  A:='Berlin';
                  B:='Karlsruhe';
                  C:='Bonn';
                  D:='Kassel';
                  Loesung:=2;
                  vier:=1;

                end;
       5: begin Frage:='Wann wurde die Bundesrepublik Deutschland gegründet?';
                  A:='1945';
                  B:='1955';
                  C:='1951';
                  D:='1949';
                  Loesung:=4;
                  fuenf:=1;
                end;
        6: begin Frage:='Wie hieß der erste Präsident der Bundesrepublik Deutschland?';
                  A:='Theodor Heuss';
                  B:='Friedrich Ebert';
                  C:='Konrad Adenauer';
                  D:='Heinrich Lübke';
                  Loesung:=1;
                  sechs:=1;
                end;

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]

[fkerber]

Hi!

Bitte verwende Delphi-Tags, um den Code lesbarer zu machen.
Diese findest du über dem Eingebe-Feld (Button Delphi-Code)

Danke!

Ciao, Frederic

[walli18]

Sorry, ich werds in Zukunft versuchen!