0 oder 1 ?

[Privateer3000]

Hi folks,

ich möchte eine funktion realisieren
bin aber über die zu verwendende arithmetik
noch nicht klar.
Die funktion soll zwischen 0 und 1 entscheiden.
Allerdings soll die häufigkeit zwischen beiden
beieinflussbar sein. So soll zB. 10mal für 0 aber
dann 1mal für 1 entschieden werden. Wann das geschiet
ist weitesgehend egal, ob zwischen 0....10 an zweiter,
fünfter oder achter stelle.
Ich hoffe es so beschrieben zu haben, das Ihr wißt
was ich meine

Gruß
Privateer

[Gausi]

Meinst du vielleicht sowas?

Delphi-Quellcode:

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

[shmia]

Delphi-Quellcode:

Function NullOderEins(Prozent:double):integer;
begin
   if prozent <= 0.0 then
      result := 0
   else if prozent >= 100.0 then
      result := 1
   else if Random > (prozent / 100.0) then
      result := 1
   else
      result := 0;
end;

PS: erstauntlich gleicher Funktionsname, aber ich hab nicht abgeschrieben

[Klaus01]

Hallo,

vielleicht ein Ansatz:

Delphi-Quellcode:

randomize;

zahl:=random(10);
if zahl > 9 then 
   zahl := 1
else
  zahl := 0;

Grüße
Klaus

[marabu]

Hier noch ein Link auf einen älteren thread zum Thema: Zufall mit Wahrscheinlichkeit 1:X generieren

Grüße vom marabu

[Privateer3000]

vielen Dank Leute
ich werde das ausprobieren!
Danke