Zufall: Mit Wahrscheinlichkeit 1:x generieren

[glkgereon]

ich hab grad den thread zufällig gefunden.

wäre folgendes nicht viel intuitiver?

Delphi-Quellcode:

function Wahrscheinlichkeit(W: Integer):Boolean;
begin
  Result:=not (Random(W+1)=0);
end;