Simulation calculatrice deux lancers de dés

Prince78

Bonjour,
Pour faire rendre compte à mes élèves que la loi de prob de deux lancers de pièce n'est pas équirépartie (1/3, 1/3, 1/3), je voulais leur faire taper un programme sur calculatrice, le voici.

0->A
0->B
0->C
For(K,1,200)
entAléat(0,1)+entAléat(0,1)->M
If M=0
Then
A+1->A
Else
If M=1 
Then
B+1->B
Else 
C+1->C
End
End
End
Disp “A=”,A
Disp “B=”,B
Disp “C=”,C

Sans surprise en le testant, il me renvoie une erreur sur le deuxième if, car la commande "if then" implique uniquement deux alternatives a priori, or ici il y en a 3 (0 face, 1 face, 2 face sur les deux lancers)
Comment contourner cela ?

Merci d'avance !!

lourrran

A priori, la syntaxe aurait dû marcher, elle procède d'une certaine logique.
Mais puisqu'elle ne marche pas, on va organiser différement :

0->A 
0->B 
0->C 
For(K,1,200) 
  entAléat(0,1)+entAléat(0,1)->M 
  If M=0 
  Then 
    A+1->A 
  End
  If M=1 
  Then 
    B+1->B 
  End
  If M=2 
  Then 
    C+1->C 
  End  
End 
Disp “A=”,A 
Disp “B=”,B 
Disp “C=”,C