Boolean-Wert mit Wahrscheinlichkeit zufällig wählen

[CalganX]

marabu hat hier einen Source gepostet, wie man einen Boolean-Wert zufällig wählen kann mit einer vorgegebenen Wahrscheinlichkeit 1:x:

Delphi-Quellcode:

function Odds(x: double): boolean;
begin
  Result := (Random * (1 + x)) < 1;
end;

[edit=flomei]Smilies deaktiviert, verschoben... Mfg, flomei[/edit]