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ß