Bernouilli |
Auteur |
Message |
maxou87
Invité
|
Posté le : Sam 23 Mai 2009, 13:55
|
|
|
Bonjour j'ai crée un programme qui permet de résoudre la loi de Bernouilli
!:c'est l'intégral
ù:c'est la flèche qui permet de stocker
^:c'est la puissance
Code | EffEcr
Input "P: [0,1] = ",P
Input "N = ",N
Input "X inférieur ou égal N = ",K
K!(N-K)!ùB
N!/BùC
P^NùD
(1-P)^(N-K)ùE
C*D*EùF
EffEcr
Disp "LE RESULTAT EST:",F |
|
|
|
|
Sangohan38
Autorisation : Membre
Nb de messages : 3370
Inscrit le : Sam 31 Déc 2005, 19:48
|
Posté le : Sam 23 Mai 2009, 15:23
|
|
|
Tu devrait utiliser les balises pour rendre ton message plus lisible...
Sinon, ton programme est raccourcissable:
Code | ClrHome
Input "P:[0,1])",P
Input "N=",N
Input "X [inférieur où égal à] N=,K
Disp "LE RESULTAT EST:",N!/B*P^N*(1-P)^(N-K)
Pause
ClrHome
Output(1,1," " |
|
|
|
|
|
|
|
|