1   FONCTIONS_UTILISEES
2   VARIABLES
3     probabilite EST_DU_TYPE NOMBRE
4     nombre_de_tirages EST_DU_TYPE NOMBRE
5     issue EST_DU_TYPE NOMBRE
6     i EST_DU_TYPE NOMBRE
7     tirage EST_DU_TYPE NOMBRE
8     issue_temp EST_DU_TYPE NOMBRE
9   DEBUT_ALGORITHME
10    probabilite PREND_LA_VALEUR 2
11    issue PREND_LA_VALEUR 0
12    TANT_QUE (probabilite<0 OU probabilite>1) FAIRE
13      DEBUT_TANT_QUE
14      LIRE probabilite
15      FIN_TANT_QUE
16    nombre_de_tirages PREND_LA_VALEUR 0
17    TANT_QUE (nombre_de_tirages<1) FAIRE
18      DEBUT_TANT_QUE
19      LIRE nombre_de_tirages
20      FIN_TANT_QUE
21    POUR i ALLANT_DE 1 A nombre_de_tirages
22      DEBUT_POUR
23      issue_temp PREND_LA_VALEUR issue
24      tirage PREND_LA_VALEUR random()
25      SI (tirage<=probabilite) ALORS
26        DEBUT_SI
27        issue PREND_LA_VALEUR issue+1
28        FIN_SI
29      SI (i>1) ALORS
30        DEBUT_SI
31        TRACER_SEGMENT (i-1,probabilite)->(i,probabilite)
32        TRACER_SEGMENT (i-1,issue_temp/(i-1))->(i,issue/i)
33        FIN_SI
34      FIN_POUR
35    AFFICHER "La fréquence obtenue de l'évènement de probabilité "
36    AFFICHER probabilite
37    AFFICHER " sur "
38    AFFICHER nombre_de_tirages
39    AFFICHER " tirages est "
40    AFFICHERCALCUL 100*issue/nombre_de_tirages
41    AFFICHER " %."
42  FIN_ALGORITHME