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_tirages EST_DU_TYPE NOMBRE
7     res EST_DU_TYPE NOMBRE
8     proportion EST_DU_TYPE LISTE
9     propmax EST_DU_TYPE NOMBRE
10    nombre_de_des EST_DU_TYPE NOMBRE
11    nombre_de_faces EST_DU_TYPE NOMBRE
12  DEBUT_ALGORITHME
13    LIRE nombre_de_des
14    LIRE nombre_de_faces
15    LIRE nombre_de_tirages
16    AFFICHER "Sur "
17    AFFICHER nombre_de_tirages
18    AFFICHER " tirages de "
19    AFFICHER nombre_de_des
20    AFFICHER " dés à "
21    AFFICHER nombre_de_faces
22    AFFICHER " faces, on a ontenu :"
23    POUR i ALLANT_DE nombre_de_des A nombre_de_faces*nombre_de_des
24      DEBUT_POUR
25      issue[i] PREND_LA_VALEUR 0
26      proportion[i] PREND_LA_VALEUR 0
27      FIN_POUR
28    POUR i ALLANT_DE 1 A nombre_de_tirages
29      DEBUT_POUR
30      res PREND_LA_VALEUR 0
31      POUR j ALLANT_DE 1 A nombre_de_des
32        DEBUT_POUR
33        res PREND_LA_VALEUR res+ALGOBOX_ALEA_ENT(1,nombre_de_faces)
34        FIN_POUR
35      issue[res] PREND_LA_VALEUR issue[res]+1
36      FIN_POUR
37    POUR i ALLANT_DE nombre_de_des A nombre_de_faces*nombre_de_des
38      DEBUT_POUR
39      proportion[i] PREND_LA_VALEUR 100*issue[i]/nombre_de_tirages
40      FIN_POUR
41    propmax PREND_LA_VALEUR ALGOBOX_MAXIMUM(proportion,nombre_de_des,nombre_de_des*nombre_de_faces)
42    POUR i ALLANT_DE nombre_de_des A nombre_de_faces*nombre_de_des
43      DEBUT_POUR
44      AFFICHER "Le "
45      AFFICHER i
46      AFFICHER " est sorti "
47      AFFICHER issue[i]
48      AFFICHER " fois. Sa fréquence de tirage est "
49      AFFICHER proportion[i]
50      AFFICHER " %.\n"
51      TRACER_SEGMENT (i,0)->(i,proportion[i])
52      FIN_POUR
53  FIN_ALGORITHME