würfeln mit 2 Würfeln (Gauss-Verteilung)

[Tormentor32]

Delphi-Quellcode:

  zufall:=(random(6)+1)+(random(6)+1);
  // Dein Array muss jetzt von 2 bis 12 gehen | Die Case Anweisung brauchst du nicht:
  Inc(Zahl[Zufall]); // Erhöht an der Stelle Zufall um 1
end;