Registriert seit: 30. Jul 2005
Ort: München
423 Beiträge
Delphi 2005 Professional
|
Re: Zufals-Boolean erzeugen
26. Sep 2005, 09:23
Eine andere Variante, wenn man das Array umgehen will (obwohl das ja auch eine gute Lösung ist) wäre auch folgendes:
ABool := random <= (f - n) / (s - m)
Dabei ist f die Anzahl an trues die man erreichen will, s die Spanne in der das erreicht werden soll (in eurem Beispiel 1000). n und m sind Zählervariablen, in denen die Anzahl an schon erreichten trues bzw. die schon verstrichene Spanne gespeichert wird.
Beispiel: Im 20. von 1000 Würfen, es ist schon 3 mal true gewürfelt worden und soll insgesamt 500 mal true geben:#
ABool := random <= (500 - 3) / (1000 - 19)
Christian Der Computer hilft mir, Probleme zu lösen, die ich ohne Computer nicht hätte.
|