Das ganz geht doch viel einfacher, wenn man immer auf 0 prüft. Und da die zahlenverteilung nahezu gleichmässig sein sollte, macht es auch nix, dass wir gegen 0 prüfen:
Delphi-Quellcode:
if random(20)=0 then DoSomethingwith_1_div_20_probability();
if random(5)=0 then DoSomethingwith_1_div_5_probability();
if random(100)=0 then DoSomethingwith_1_percent_probability();
...etc.
finde ich irgendwie die einfachste variante, da man nie irgendwelche teiler prüfen muss.
mâxîmôv.
{KDT}