random <> zufall (würfeln)

[Fluffy]

hi!

ich muss eine bestimmte anzahl würfel werfen und die augen zusammenzählen. danach nochmal eine andere anzahl würfel und nochmals zusammenzählen.
und zum schluss diese beiden zahlen zusammenrechnen - hier mein code bis jetzt:

Delphi-Quellcode:

procedure TForm1.FormActivate(Sender: TObject);
var
  i,z,v:Integer;
begin
  z:=0;
  v:=0;
  for i:=1 to max1 do begin
    z:=z+random(6)+1;
  end;
  for i:=1 to max2 do begin
    v:=v+random(6)+1;
  end;
  label1.Caption:=IntToStr(z+v);
end;

nur ist jetzt das problem, dass z und v genau dasselbe ergeben, wenn max1 und max2 identisch sind - soll heissen, random gibt mir keine zufällige zahl, auch nicht durch randomize, weil ja alles zur selben zeit passiert. es muss aber zufällig werden!
eigentlich will ich nicht unbedingt, dass ich zwei buttons klicken muss oder so was umständliches, aber wenn ihr nicht weiterwisst bleibt mir nichts anderes übrig :roll:

greetz
fluffy

[Dax]

Herzlich willkommen in der DP! :party:

Nutze doch nochmal Randomize() zwischen den Schleifen, vielleicht hilft das.

[Meflin]

öhm eigentlich sollte durch randomize doch zwei zufallszahlen rauskommen, es geschieht ja eh nicht genau zur gleichen zeit, das ist unmöglich!

[Fluffy]

wie ich bereits sagte, randomize funktioniert nicht, das hab ich schon versucht... vl ist es zu schnell als dass randomize einen anderen wert liefern könnte, keine ahnung - es geht einfach nicht :mrgreen:

[Dax]

Dann setzte RandSeed zwischen den Schleifen eben selbst.

[static_cast]

Hi,

pack mal in dein Create oder so

Delphi-Quellcode:

..
Randomize;
..

Zitat:

procedure Randomize;

Beschreibung

Randomize initialisiert den integrierten Zufallszahlengenerator mit einem zufälligen Wert (der aus der Systemzeit abgeleitet wird). Der Zufallszahlengenerator sollte initialisiert werden, indem die Prozedur Randomize aufgerufen oder der Variablen RandSeed ein Wert zugewiesen wird.

Kombinieren Sie in einer Schleife nicht den Aufruf von Randomize mit Aufrufen der Funktion Random. Normalerweise wird Randomize vor den Aufrufen von Random nur einmal aufgerufen.

Grüße
Daniel

[Treffnix]

wo genau haste denn randomize aufgerufen? Prinzipiell darf man Randomize nur einmal aufrufen und zwar, bevor man das erste mal random benutzt. Ausserdem solltest du dir dein random nochmal angucken. Wenn ich mich nicht irre, gibt dir random( 6 ) + 1 eine Zahl zwischen 1 und 7 zurück. Ich denke mal du willst aber 1-6...

[Fluffy]

@static: s. vorheriger post

@dax: :wall: das einfachste sieht man immer erst am schluss... ja, so gehts! vielen dank!

[xineohp]

moim,

:gruebel: also bei mir funz folgender Code perfekt ... ob mit oder ohne randomize.
bei identischem max1 und max2 sind v und z halt recht dicht beieinander, aber nur selten gleich.

Delphi-Quellcode:

var 
  i,z,v:Integer;
begin
  z:=0;
  v:=0;
  randomize;
  for i:=1 to 100 do begin
    z:=z+random(6)+1;
  end;
  randomize;
  for i:=1 to 100 do begin
    v:=v+random(6)+1;
  end;
  label1.Caption:=IntToStr(z+v);
  label2.Caption:=IntToStr(z);
  label3.Caption:=IntToStr(v);
end;

[Wheelie]

Dann machst du irgendwas falsch. Habe deine Prozedur mal ausprobiert und Randomize im OnFormCreate-Ereignis ergänzt -> funktioniert tadellos. Du hast Randomize wahrscheinlich mit in die Schleife genommen, was zu nichtzufälligen Ergebnissen führen dürfte.

[alcaeus]

Zitat:

Zitat von Treffnix

Wenn ich mich nicht irre, gibt dir random( 6 ) + 1 eine Zahl zwischen 1 und 7 zurück. Ich denke mal du willst aber 1-6...

Du irrst dich aber :mrgreen:
Random(6) gibt eine Zahl zwischen 0 und 5 zurück, nicht 0 und 6.

Greetz
alcaeus

[Fluffy]

also, 1. ihr seid viel zu schnell mit antworten :-D
2. wie gesagt, das einfachste sieht man am schluss - wheelie hat recht! :wall: :mrgreen:

[Treffnix]

Zitat:

Zitat von xineohp

moim,

:gruebel: also bei mir funz folgender Code perfekt ... ob mit oder ohne randomize.
bei identischem max1 und max2 sind v und z halt recht dicht beieinander, aber nur selten gleich.

Delphi-Quellcode:

var 
  i,z,v:Integer;
begin
  z:=0;
  v:=0;
  randomize;
  for i:=1 to 100 do begin
    z:=z+random(6)+1;
  end;
  randomize;
  for i:=1 to 100 do begin
    v:=v+random(6)+1;
  end;
  label1.Caption:=IntToStr(z+v);
  label2.Caption:=IntToStr(z);
  label3.Caption:=IntToStr(v);
end;

Und nochmal: Randomize ruft man nur einmal auf.

@alcaeus: :oops: Stimmt. Habs auch gerade nochmal nachgeschaut. Zählt als Ausrede, dass ichs schon ewig nicht mehr benutzt habe? :stupid:

[static_cast]

Zitat:

Zitat von Wheelie

Dann machst du irgendwas falsch. Habe deine Prozedur mal ausprobiert und Randomize im OnFormCreate-Ereignis ergänzt -> funktioniert tadellos. Du hast Randomize wahrscheinlich mit in die Schleife genommen, was zu nichtzufälligen Ergebnissen führen dürfte.

Jo genau wie ich in meinem Post schrieb, so hab ich es auch getestet und funzt.

[xineohp]

@Treffnix: IMHO dient Randomize zur Inizialisierung einer Reihe von Zufallszahlen. Wenn man also z und v als je eine Reihe auffasst, so ist der zweimalige Gebrauch von randomize meiner Meinung nach durchaus gerechtfertigt. Man darf randomize nur nicht vor jedem random aufrufen.

[nailor]

xineohp: der erste teil ist zwar von der logik her richtig, aber dennoch sollte randomize nur einmal aufgerufen werden. und einmal aufrufen ist beim laden des programms einfach am besten. danach hat randomize eigentlich nichts mehr verloren, da der nutzen gegen null geht und der mögliche schaden hoch ist.