Planete Casio - Forum Casio - Aide pour programme sur les probabilités

Planete-casio.fr

Bienvenue sur la nouvelle version de planete-casio! Laissez vos impressions sur le forum!

Forums Casio - Problèmes de programmation ou avec un programme

Index du Forum | Problèmes de programmation ou avec un programme | Aide pour programme sur les probabilités

Thomas52600
Hors ligne
Statut: Membre
Niveau: Aucun
Points: 24
Défis: 0
Email | Message

Posté le 18/02/2008 13:10

Aide pour programme sur les probabilités:

Voilà mon souci :

Pour un DM de math je dois faire un programme mais je n'y arrive pas. Voilà l'énoncé :

Ecrire un programme qui simule 100 tirages suivant la loi 52 chances sur 100 d'avoir 0 et 48 chances sur 100 d'avoir 1 et qui retourne les résultats sous forme de liste

Voilà mon programme le souci est de faire la boucle en effet le programme n'arrête pas de tourner en boucle

0

A
0

B
A+B

C
Seq(O,I,0,1,1)

list 1
For 1

C To 100
Int (1+100ran#)

N
if N<52
Then A+1=A
Else B+1=B
ifend
Next
A

list 1 [1]
B

list1 [2]
list1
Stop

Muelsaco
Hors ligne
Statut: Webmaster
Niveau: Elite
Points: 9229
Défis: 175
Email | Message

Posté le 18/02/2008 18:44 |

Tu as une classpad?

----------------------------------Calculatrices : Fx 92 Collège, Graph 25, Graph 65, Graph 85, Graph 100, Classpad 300.

Clem27
Hors ligne
Statut: Membre
Niveau: Confirmé
Points: 841
Défis: 6
Email | Message

Posté le 18/02/2008 20:31 |

c'est pas une double fleche pour affecter une valeur à une variable...

----------------------------------

Lbl

vous aimez débattre ??? cliquer ici

Samsamx
Hors ligne
Statut: Membre
Niveau: Vétéran
Points: 1419
Défis: 215
Email | Message

Posté le 18/02/2008 21:46 |

0A
0B
A+BC
Seq(O,I,0,1,1) list 1
For 1C To 100
Int (1+100ran#)N
if N<52
Then A+1=A
Else B+1=B
ifend
Next
Alist 1 [1]
Blist1 [2]
list1
Stop

Devient :

0A~C
100Dim list 1
For 1C To 100
Int (100ran#)+1N
If N<52
Then 0List[C]
Isz A
Else 1List[C]
Isz B
IfEnd
Next
"Nombre de 0 :"
A
"Nombre de 1 :"
B [DISP]
list1