Algorithme probabilités (nombre aléatoire)
Posted: 13 Oct 2014, 21:36
Bonjour,
Je dois rentrer l'algorithme suivant dans ma calculatrice mais je recois une erreur false. Voici l'algorithme à rentrer :
Et voilà ce que j'ai codé :
Quand j'exécute le programme tout ce passe bien, ça me demande le nombre de simulations (n) et la proba. Par contre j'ai tout de suite le message "false" qui s'affiche par la suite. Donc je pense que le problème se situe au niveau du rand(), sachant que je dois générer un nombre aléatoire entre 0 et 1.
Merci de m'aider
Le fichier tns direct si ça interesse quelqun :
https://www.sendspace.com/file/0gbh97
Je dois rentrer l'algorithme suivant dans ma calculatrice mais je recois une erreur false. Voici l'algorithme à rentrer :
Et voilà ce que j'ai codé :
- Code: Select all
Define LibPub exoproba()=
Prgm
Local p,n,s,j,i,x
Request : "Entrer le nombre de simulation",n
Request : "Entrer la probabilité",p
s:=0
For i,1,n
x:=0
For j,1,4
If rand()<p Then
x:=x+1
Else
x:=x-1
EndIf
EndFor
EndFor
If x=0 Then
s:=s+1
EndIf
Disp "X=",x," et S=",s"
EndPrgm
Quand j'exécute le programme tout ce passe bien, ça me demande le nombre de simulations (n) et la proba. Par contre j'ai tout de suite le message "false" qui s'affiche par la suite. Donc je pense que le problème se situe au niveau du rand(), sachant que je dois générer un nombre aléatoire entre 0 et 1.
Merci de m'aider
Le fichier tns direct si ça interesse quelqun :
https://www.sendspace.com/file/0gbh97