Simulation calculatrice deux lancers de dés

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 !!

Réponses

  • 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
    
    Tu me dis, j'oublie. Tu m'enseignes, je me souviens. Tu m'impliques, j'apprends. Benjamin Franklin
Connectez-vous ou Inscrivez-vous pour répondre.