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?
