Zufals-Boolean erzeugen

[BlackJack]

warum nicht einfach so:

Delphi-Quellcode:

var Bool: Boolean;
begin
Bool := Random(2) = 1;
end;

?

oder noch besser mit ner Wahrscheinlichkeit:

Delphi-Quellcode:

var Bool: Boolean; 
    p: Double;
begin
p := 0.25; //nur ein Beispiel, aber p sollte  0 <= p < 1 sein.
Bool := Random < p;
end;

bei diesem Code wird mit einer Wahrscheinlichkeit von 25% "Bool" True enthalten. (beim ersten Code sinds 50%)

und wieso sollte der zufallsgenerator erst ab 100 würfen funktionieren? weil erst ab 100 würfen alle zahlen gleich oft vorkommen, aber bei meinetwegen bei 10 nicht? that's zufall, baby!