1   FONCTIONS_UTILISEES
2   VARIABLES
3     i EST_DU_TYPE NOMBRE
4     j EST_DU_TYPE NOMBRE
5     issue EST_DU_TYPE LISTE
6     nombre_de_lancers EST_DU_TYPE NOMBRE
7     res EST_DU_TYPE NOMBRE
8     proportion EST_DU_TYPE LISTE
9     propmax EST_DU_TYPE NOMBRE
10    des EST_DU_TYPE NOMBRE
11    faces EST_DU_TYPE NOMBRE
12  DEBUT_ALGORITHME
13    des PREND_LA_VALEUR 1
14    faces PREND_LA_VALEUR 6
15    LIRE nombre_de_lancers
16    AFFICHER "Sur "
17    AFFICHER nombre_de_lancers
18    AFFICHER " tirages, on a obtenu :"
19    POUR i ALLANT_DE des A faces*des
20      DEBUT_POUR
21      issue[i] PREND_LA_VALEUR 0
22      FIN_POUR
23    POUR i ALLANT_DE 1 A nombre_de_lancers
24      DEBUT_POUR
25      res PREND_LA_VALEUR 0
26      POUR j ALLANT_DE 1 A des
27        DEBUT_POUR
28        res PREND_LA_VALEUR res+ALGOBOX_ALEA_ENT(1,faces)
29        FIN_POUR
30      issue[res] PREND_LA_VALEUR issue[res]+1
31      FIN_POUR
32    POUR i ALLANT_DE des A faces*des
33      DEBUT_POUR
34      proportion[i] PREND_LA_VALEUR 100*issue[i]/nombre_de_lancers
35      FIN_POUR
36    propmax PREND_LA_VALEUR ALGOBOX_MAXIMUM(proportion,des,des*faces)
37    POUR i ALLANT_DE des A faces*des
38      DEBUT_POUR
39      AFFICHER "Le "
40      AFFICHER i
41      AFFICHER " est sorti "
42      AFFICHER issue[i]
43      AFFICHER " fois. Sa fréquence de tirage est "
44      AFFICHER proportion[i]
45      AFFICHER " %.\n"
46      TRACER_SEGMENT (i,0)->(i,proportion[i])
47      FIN_POUR
48  FIN_ALGORITHME