belibig oftes Würfeln

[ichbins]

Delphi-Quellcode:

procedure zufall;
var
  anzahl1,anzahl2,anzahl3,anzahl4,anzahl5,anzahl6:integer;
  i:integer;
begin
  for i:=1 to 42 do    //im Beispiel 42-mal würfeln
    case random(6)+1 of
      1: anzahl1:=anzahl1+1;
      2: anzahl2:=anzahl2+1;
      3: anzahl3:=anzahl3+1;
      4: anzahl4:=anzahl4+1;
      5: anzahl5:=anzahl5+1;
      6: anzahl6:=anzahl6+1;
    end;
end;

Das ganze ginge natürlich mit einem Array viel kompakter:

Delphi-Quellcode:

procedure zufall;
var
  anzahl:array[1..6] of integer;
  i:integer;
begin
  for i:=1 to 42 do
    inc(anzahl[random(6)+1]);
end;

@inherited: dein inc funktioniert nicht anzahl[random]:=anzahl[random]+1 du rufst random 2-mal auf
@Hawkeye219: ich würde eher sagen durch das zufällige Angleichen zweier Werte sind die Ergebnisse nicht mehr so weit auseinander, also nicht mehr so verstreut und der Zufallseffekt wird geringer...