Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#2

Re: Zufall: Mit Wahrscheinlichkeit 1:x generieren

  Alt 30. Jun 2005, 07:10
Delphi-Quellcode:
function Odds(x: double): boolean;
begin
  Result := Random < Frac(x);
end;
Grüße vom marabu
  Mit Zitat antworten Zitat