Thema: Delphi Simulation 50:50

Einzelnen Beitrag anzeigen

Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.641 Beiträge
 
#2

Re: Simulation 50:50

  Alt 12. Jun 2008, 09:54
Du brauchst ausserhalb der Schleife 3 weitere Variablen.
Die eine ist ein Array der Ergebnisse (Länge: Anzahl). Die Ergebnisse musst Du Dir ja irgendwo merken.

Die zweite ist ein Counter der aktuellen Serie. Den zählst Du um 1 hoch, wenn die gerade gezogene Zahl mit der letzten übereinstimmt, bzw. setzt ihn auf 0, wenn die gezogene Zahl nicht mit der vorherigen übereinstimmt.

Die dritte ist der Counter der längsten Serie. Immer, wenn Du den Counter der aktuellen Serie hochgezählt hast guckst Du, ob 2. größer ist als 3. Wenn ja, dann schreibst Du 2 in 3. Wenn nein halt nicht.

Somit hast Du in 3 immer die längste Serie abgelegt.
Sebastian Gingter
Phoenix - 不死鳥, Microsoft MVP, Rettungshundeführer
Über mich: Sebastian Gingter @ Thinktecture Mein Blog: https://gingter.org
  Mit Zitat antworten Zitat