0 oder 1 ?

[Gausi]

Meinst du vielleicht sowas?

Delphi-Quellcode:

function NullOderEins(WieOftNull: Integer): Boolean;
begin
  if Random(100) < WieOftNull then
    result := 0;
  else
    result := 1;
end;