1   VARIABLES
2     n EST_DU_TYPE NOMBRE
3     k EST_DU_TYPE NOMBRE
4     s EST_DU_TYPE NOMBRE
5     a EST_DU_TYPE NOMBRE
6     b EST_DU_TYPE NOMBRE
7     p EST_DU_TYPE NOMBRE
8     seuil EST_DU_TYPE NOMBRE
9   DEBUT_ALGORITHME
10    LIRE n
11    LIRE p
12    LIRE seuil
13    s PREND_LA_VALEUR 0
14    a PREND_LA_VALEUR 0
15    k PREND_LA_VALEUR 0
16    TANT_QUE (s<(1-(100-seuil)/200)) FAIRE
17      DEBUT_TANT_QUE
18      s PREND_LA_VALEUR s+ALGOBOX_LOI_BINOMIALE(n,p,k)
19      SI (s>(100-seuil)/200 et a==0) ALORS
20        DEBUT_SI
21        a PREND_LA_VALEUR k/n
22        FIN_SI
23      k PREND_LA_VALEUR k+1
24      FIN_TANT_QUE
25    b PREND_LA_VALEUR (k-1)/n
26    AFFICHER "l'intervalle de fluctuation à "
27    AFFICHER seuil
28    AFFICHER "% est ["
29    AFFICHER a
30    AFFICHER ";"
31    AFFICHER b
32    AFFICHER "]"
33  FIN_ALGORITHME