Simulation du lancer de dé

Bonjour,

Je veux faire un prog. qui simule le lancer d'un dé à six faces[numérotées de 1..à 6].
Je souhaite observer sur ...x coups[10000..par exemple]....le nombre de sorties de chaque face[nombre de sorties du 1..du 2.....6]
Comment aborder ce problème?

Merci

Bonjour,

pour faire ceci, je ferais:

1. Tableau de 6 cases d'entiers:

Code:

---

MonTab: array[1..6] of Integer

---

2. Initialiser chaque case de ce tableau à 0

Code:

---

1 2	for i := 1 to 6 do MonTab[ i ] := 0

---

3. Faire X tour de simulation

Code:

---

1 2 3 4 5

for i := 1 to 10000 do begin De := Random( 6 ) + 1; Inc( MonTab[ De ] ); end;

---

4. Résultat dans Mon Tab

bon code !

sans oublier un (seul) Randomize, qui initialise le générateur pseudo-aléatoire ; sinon, la même suite est produite à chaque fois.

salut cher collègue.
j'ai fait un truc de ce genre là l'année dernière pour les ts ;) .
c'est pour les idées...
j'ai fait ce qu'ils te suggèrent.
mon idée a été de faire varier le nombre de dés de 10 à 1 million .
ajouter un timer qui génère les lancers et faire apparaître dans un stringgrid le nombre de six pour chaque lancer, ajouter un graphe pour observer l'exponentielle...et afin exporter les résultats dans excel pour exploitation.
c'est amusant.
bon prog. et bonne radioactivité.