prozentualer Anteil bei Zufallszahlen

[arbu man]

Delphi-Quellcode:

  zahl:=random(9)+1; // 1..10
  if zahl in 1..7 then result:=1 else result:=0;