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       N EST_DU_TYPE NOMBRE
3       P EST_DU_TYPE NOMBRE
4       K EST_DU_TYPE NOMBRE
5       Frep EST_DU_TYPE NOMBRE
6       Binf EST_DU_TYPE NOMBRE
7       Bsup EST_DU_TYPE NOMBRE
8     DEBUT_ALGORITHME
9       //Nombre d'expériences de Bernoulli
10      LIRE N
11      //Probailité d'un succès
12      LIRE P
13      //Nombre de succès initialisé à 0
14      K PREND_LA_VALEUR 0
15      //Frep contiendra la fonction de répartition de la loi binomiale B(n,p)
16      //On fera un cumul, la fonction de répartition de la loi B(n,p) n'étant pas préprogrammée dans ma version d'ALgobox
17      Frep PREND_LA_VALEUR ALGOBOX_LOI_BINOMIALE(N,P,K)
18      TANT_QUE (Frep<=0.025) FAIRE
19        DEBUT_TANT_QUE
20        K PREND_LA_VALEUR K+1
21        Frep PREND_LA_VALEUR Frep+ALGOBOX_LOI_BINOMIALE(N,P,K)
22        FIN_TANT_QUE
23      Binf PREND_LA_VALEUR K/N
24      AFFICHER "Borne inférieure de l'IF exact au seuil de 0.95 pour la loi B(n,p)"
25      AFFICHER Binf
26      TANT_QUE (Frep<0.975) FAIRE
27        DEBUT_TANT_QUE
28        K PREND_LA_VALEUR K+1
29        Frep PREND_LA_VALEUR Frep+ALGOBOX_LOI_BINOMIALE(N,P,K)
30        FIN_TANT_QUE
31      Bsup PREND_LA_VALEUR K/N
32      AFFICHER "Borne supérieure de l'IF exact au seuil de 0.95 "
33      AFFICHER Bsup
34    FIN_ALGORITHME