Entwickler-Ecke :: Thema anzeigen - Lottozahlen generieren

theevilworm - Do 11.02.10 18:55
Titel: Lottozahlen generieren - Struktogramm

Hallo zusammen,

zuerst einmal: natürlich habe ich die Suche verwendet, es gibt da ein paar Threads zu Lottozahlen, aber meine Frage ist etwas anders.
Wir haben in der Schule in Informatik heute mit Arrays angefangen und sollten zum Anfang einen Lottozahlen-generator-Konzept entwickeln, mit einem Struktogramm.

Hier mal mein Versuch:
Struktogramm_Lotto

EDIT: Ups, erst nach dem Uploaden gemerkt: Die Abfrage, ob die Zahl schon mal gezogen wurde, wird ja nur einmal ausgeführt. Wenn die neue Zufallszahl unwahrscheinlicherweise nochmal die gleiche sein sollte, wird das ja nicht nochmal abgefragt. Deswegen muss die Abfrage in die Prozedur "Ziehen" rein.

Ich habe jedoch ein paar Probleme:

1. Ich habe das auf zwei Prozeduren bzw. Struktogramme aufgeteilt, da ich nicht wusste, wie ich sonst nochmal beliebig oft eine neue Zufallszahl generieren lassen sollte, falls die aktuelle in den letzten gezogenen Zahlen schon enthalten sein sollte

2. Ich habe die Zähschleife erst bei 2 starten lassen und davor manuell Lottozahlen[1] eine Zufallszahl zugewiesen, da ich ja sonst bei in der Zählschleife kein Lottozahl[i-1] gehabt hätte, mit dem ich hätte vergleichen können.

3. Aus den zwei Prozedure entsteht ein Problem: Die Zählervariable i muss global sein, damit die Prozedur "Ziehen" weiß, welchem Index von Lottozahl die Zufallszahl gewiesen werden muss. Mein Informatiklehrer meinte aber glaube ich mal, Zählervariablen lässt Delphi nicht global zu?

Falls es trotzdem in Delphi realisirbar sein sollte, ist es trotzdem ziemlich unelegant, oder? Wie könnte ich das besser machen? Ich danke euch für alle Antworten ;)

Moderiert von Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Fr 12.02.2010 um 17:33
Moderiert von Narses: Bild als Anhang hochgeladen.

Flamefire - Do 11.02.10 19:07

also
1) Die 2. Prozedur ist nicht nötig. Schreibs einfach rein. Wegen einer Anweisung brauch man keine 2.Prozedur, der du das Array und die Variable übergeben musst.
2) Statt dem Wenn, muss ein SOLANGE verwendet werden sonst:
Lottozahl[1]<-5
Für...
Lottozahl[2]<-5
Dann...
Lottozahl[2]<-5
Für...
Lottozahl[3]<-44

-->Die 5 kann (im Extremfall) mehrfach auftreten, da du nur nach der ersten zuweisung prüfst.
Dann lieber eine Fußgesteuerte Schleife, dann brauchst du auch die Anweisung nur einmal (zweimal mit dem einen vor der Für...)

theevilworm - Do 11.02.10 19:45

Hm, ich bin nicht sicher, was du meinst... Vielleicht so:
Struktogramm_Lotto_3

Aber wie sollte ich die Endbedingung in Delphi realisieren?

Delphi-Quelltext

1:	Until Lottozahl[i] not in [Lottozahl[1]..Lottozahl[i-1]];

Ich glaube nicht, dass diese Zeile in Delphi durch den Debugger kommt.

Moderiert von Narses: Bild als Anhang hochgeladen.

Marc. - Fr 12.02.10 17:23

Boldar hat folgendes geschrieben :

Für zufällige, gleichverteilte Lottozahlen sollte man aber diesen Algorithmus benutzen:
http://www.delphi-library.de/topic_perfektes+Mischen+nach+FisherYates+perfect+shuffle_71713.html

Da möchte ich noch einmal einen ganz interessanten Blog-Eintrag in die Runde werfen: The Danger of Naïveté [http://www.codinghorror.com/blog/archives/001015.html]. :)

theevilworm - Mo 15.02.10 13:43

Hi Leute, habe das gerade mal versucht in Delphi zu realisieren, doch folgendes klappt so nicht:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

procedure TForm1.Button1Click(Sender: TObject);
var lottozahlen:array[0..6] of Integer;
    i:integer;
begin
lottozahlen[1]:=Random(49)+1;

For i:=2 to 6 do
  begin
  Repeat
  lottozahlen[i]:=Random(49)+1;
  Until
  lottozahlen[i] not in [Lottozahlen[1]..Lottozahlen[i-1]];
  end;

end;

Fehlermeldungen:

Zitat:

Operator oder Semikolon fehlt
Operator ist auf diesen Operandentyp nicht anwendbar

EDIT:
Habs nun wenigstens zum Laufen gebracht, indem ich statt "Repeat...Until" "While" eingesetzt habe:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

For i:=2 to 6 do
  begin
  Randomize;
  Lottozahlen[i]:=Random(49)+1;
  While Lottozahlen[i] in [Lottozahlen[1]..Lottozahlen[i-1]] do
    Lottozahlen[i]:=Random(49)+1;
  end;

Das startet ohne Fehlermeldungen, funktioniert aber nicht. Nach nur dreimal Generieren sind schon doppelte Zahlen erschienden, obwohl das doch eigentlich nicht passieren sollte!

martin300 - Mo 15.02.10 15:13

Delphi-Quelltext

1:
2:
3:
4:

  Lottozahlen[i]:=Random(49)+1;
  While Lottozahlen[i] in [Lottozahlen[1]..Lottozahlen[i-1]] do
    Lottozahlen[i]:=Random(49)+1; <-- hier wird wieder eine neue Zahl erzeugt
  end;

...es sollte jedoch die zuvor erzeugte verwendet werden und daher können sie doppelt sein.

martin300 - Mo 15.02.10 15:18

Wenn ich mir Lottozahlen erzeugen müsste würde ich so vorgehen:
+ Menge der möglichen Zahlen (1..49) erzeugen
+ Zufallszahl generieren
+ Befindet sich Zahl in der Menge --> ja: Lottozahl speichern und aus möglichen Zahlen entfernen
--> nein: nochmal eine Zahl erzeugen
+ das ganze so oft wiederholen bis gewünschte Anzahl von Zahlen erzeugt wurde.

SvenAbeln - Mo 15.02.10 16:25

Zu deinem Fehler:

Zitat:

Operator oder Semikolon fehlt
Operator ist auf diesen Operandentyp nicht anwendbar

In deiner Zeile muss das not an den Anfang:

Delphi-Quelltext

1:	not (lottozahlen[i] in [Lottozahlen[1]..Lottozahlen[i-1]])

Dein Vergleich macht aber nicht das was du erwartest.
(lottozahlen[i] in [Lottozahlen[1]..Lottozahlen[i-1]]
Prüft nicht gegen alle Einträge deines Array, sondern nur ob die neue Zahl zwischen der ersten und der letzten Zahl ist.
z.B:
1 Zahl = 8
2 zahl = 25
Dann darf die dritte Zahl bei dir nicht zwischen 8 und 25 sein.

Für Lottozahlen[1] > Lottozahlen[i-1] ist dann jede Zahl erlaubt.

COMMANDER86 - Do 18.02.10 00:14

Heyho,

ich habe sowas auch mal gebastelt:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TfrmLotto.btnGenerierenClick(Sender: TObject);
var
  I, ZAHL: integer;
label
  RETOUR;
begin
  Randomize;
  ZAHL := Random(49) + 1;

  for I := 1 to 6 do
  begin
    RETOUR:
    if ZahlenCheck(ZAHL) = True then
    begin
      ZAHL := Random(49) + 1;
      goto RETOUR;
    end else LOTTO[I] := ZAHL;
  end;
//...

Den Array (LOTTO) hab' ich da global deklariert, weil die Überprüfung, ob die Zahl im Array vorkommt (ZahlenCheck), ausgelagert ist:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

function ZahlenCheck(ZAHL: integer): boolean;
var I: integer;
begin
  RESULT := False;

  for I := 1 to 6 do
  begin
    if LOTTO[I] = ZAHL then
    begin
      RESULT := True;
      Exit;
    end;
  end;
end;

Der Rest ist noch eine Sortierung und die Ausgabe.

Ja, ich weiß... goto. ;) Ich bin der Meinung, dass man das an einer so übersichtlichen Stelle durchaus mal einsetzen darf.

LG
Fabian

martin300 - Do 18.02.10 11:21

hi,
hier eine andere Möglichkeit:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.btn1Click(Sender: TObject);
var
  lottozahlen : set of 1..49; //1,2,3..48,49
  lottozahl : array [1..6] of Integer;
  i: Integer;
begin
  i := 1;
  while i <= 6 do
  begin
    lottozahl[i] := Random(49)+1;
    if (lottozahl[i] in lottozahlen) then
    begin
      // Zahl ist das erste Mal in der Liste
      i := i + 1;
      // Entferne Zahl aus der Menge
      lottozahlen := lottozahlen - [lottozahl[i]];
    end else
    begin
      // Zahl kommt schon mal vor
      // else kann komplett wegfallen
    end;
  end;

  // Ausgabe
  for i := 1 to 6 do
  begin
    // Ausgabe in Memo Komponente
    mmo1.Lines.Add(IntToStr(lottozahl[i]));
  end;
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!