Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Zufall: Mit Wahrscheinlichkeit 1:x generieren

**marabu**

Delphi-Quellcode:

			function Odds(x: double): boolean;

begin

  Result := Random < Frac(x);

end;

Grüße vom marabu

marabu Registriert seit: 6. Apr 2005 10.109 Beiträge	#2 Re: Zufall: Mit Wahrscheinlichkeit 1:x generieren 30. Jun 2005, 06:10 markieren Delphi-Quellcode: function Odds(x: double): boolean; begin Result := Random < Frac(x); end; Grüße vom marabu
	Zitat