Présentation de l'algorithme :
Simule le lancer de 2 dés N fois de suite (N entré par l'utilisateur) et compte le nombre de fois où la somme des deux dés est égale aux valeurs 2 ; 3 ; ... ; 12.
On a représenté le diagramme des fréquences.
On peut facilement afficher les fréquences.
Tester l'algorithme :
Graphique :
Code de l'algorithme :
1
VARIABLES
2
Dé1 EST_DU_TYPE NOMBRE
3
Dé2 EST_DU_TYPE NOMBRE
4
I EST_DU_TYPE NOMBRE
5
Somme EST_DU_TYPE NOMBRE
6
nbre_lancers EST_DU_TYPE NOMBRE
7
Resultats EST_DU_TYPE LISTE
8
DEBUT_ALGORITHME
9
AFFICHER "Nombre de lancers ?"
10
LIRE nbre_lancers
11
POUR I ALLANT_DE 1 A 12
12
DEBUT_POUR
13
Resultats[I] PREND_LA_VALEUR 0
14
FIN_POUR
15
POUR I ALLANT_DE 1 A nbre_lancers
16
DEBUT_POUR
17
Dé1 PREND_LA_VALEUR ALGOBOX_ALEA_ENT(1,6)
18
Dé2 PREND_LA_VALEUR ALGOBOX_ALEA_ENT(1,6)
19
Somme PREND_LA_VALEUR Dé1+Dé2
20
Resultats[Somme] PREND_LA_VALEUR Resultats[Somme]+1
21
FIN_POUR
22
AFFICHER "Nbre de lancers : "
23
AFFICHER nbre_lancers
24
POUR I ALLANT_DE 2 A 12
25
DEBUT_POUR
26
AFFICHER Resultats[I]
27
AFFICHER " ; "
28
SI (I<12) ALORS
29
DEBUT_SI
30
TRACER_SEGMENT (I,Resultats[I]/nbre_lancers)->(I+1,Resultats[I+1]/nbre_lancers)
31
FIN_SI
32
TRACER_SEGMENT (I,0)->(I,Resultats[I]/nbre_lancers)
33
FIN_POUR
34
FIN_ALGORITHME