Discussion :

[fermat]

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

[TicTacToe]

Bonjour,

pour faire ceci, je ferais:

1. Tableau de 6 cases d'entiers:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MonTab: array[1..6] of Integer

2. Initialiser chaque case de ce tableau à 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

3. Faire X tour de simulation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[tourlourou]

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

[Archimède]

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é.