|
Registriert seit: 10. Mär 2004
1.134 Beiträge
Lazarus
|
Re: Zufall: Mit Wahrscheinlichkeit 1:x generieren
30. Jun 2005, 19:32
Zitat von marabu:
Delphi-Quellcode:
function Odds(x: double): boolean;
begin
Result := (Random * (1 + x)) < 1;
end;
marabu Danke, dass funzt. 
Letzter Tipp: Drogen. Machen zwar nicht glücklich, geben einem aber wenigstens das Gefühl glücklich zu sein.
Have a lot of fun!
|