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 :


(cliquer sur le bouton ci-dessus pour lancer ou relancer l'exécution de l'algorithme)

Résultats :

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