AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Simulation 50:50

Ein Thema von verwirrt · begonnen am 12. Jun 2008 · letzter Beitrag vom 12. Jun 2008
Antwort Antwort
verwirrt

Registriert seit: 9. Jun 2006
59 Beiträge
 
Delphi 6 Professional
 
#1

Simulation 50:50

  Alt 12. Jun 2008, 09:06
Hallo,

ich simuliere 50:50 Chance, das klappt auch per Random(2) (0 oder 1).

Nun möchte ich eine Statistik, die wiederholte Serien gleichen Ergebnisses aufzeigt.

Also: 0 - verloren, 1 - gewonnen

Bsp: 010110100010011110100000111011

2 mal gewonnen: 2
3 mal gewonnen: 1
4 mal gewonnen: 1
5 mal gewonnen: 0
...

längste Serie am Stück gewonnen: 4

Hat jemand eine Idee, wie man das hier einbauen kann:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  i, Anzahl, Wert: Integer;
begin
  Anzahl:= StrToInt(Edit1.Text);
  for i:= 1 to Anzahl do
  begin
    Wert:= Rand;
    ...
  end;
end;
Danke schonmal...

Gruß
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)
Online

Registriert seit: 25. Jun 2002
Ort: Hausach
7.640 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
verwirrt

Registriert seit: 9. Jun 2006
59 Beiträge
 
Delphi 6 Professional
 
#3

Re: Simulation 50:50

  Alt 12. Jun 2008, 10:28
Danke, funktioniert. Hätte nicht gedacht, dass Serien von über 20 Länge so üblich sind...
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz