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