random <> zufall (würfeln)

[Treffnix]

Zitat von xineohp:

moim,

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: Stimmt. Habs auch gerade nochmal nachgeschaut. Zählt als Ausrede, dass ichs schon ewig nicht mehr benutzt habe?