Week 5: Text 2
If I have 2 normal dice and throw them together to get a combined score, what proportion of the scores will be 2(double 1), 3, 4, 5, 6, 7, 8, 9, 10, 11 and 12 (double 6)?
Which is the most common total for the dice pair?
2018-02 – Maths Challenge
Write a program to calculate the probablility of getting a combined score of 7 when throwing two normal six sided dice.
Se ho 2 dadi comuni e li lancio insieme per avere un punteggio cumulato, quale percentuale dei risultati sarà 2, 3, …, 12?
Qual è il totale più frequente per una coppia di dadi?
Scrivi un programma per calcolare la probabilità di ottenere 7 come punteggio combinato lanciando 2 dadi.
Soluzione 1
Lancia i 2 dadi 10.000 volte conteggiando le uscite del 7.
Visualizza il conteggio trasformato in frequenza relativa.
|
1 2 3 4 5 6 7 8 9 10 11 12 |
CONTA=0 For i=1 To 10000 dado1=Math.GetRandomNumber(6) dado2=Math.GetRandomNumber(6) dadi =dado1+dado2 If(dadi = 7) Then CONTA=CONTA+1 EndIf EndFor perc=CONTA/10000 TextWindow.WriteLine(perc) |
Soluzione 2
Lancia i 2 dadi 10.000 volte conteggiando le uscite da 2 a 12.
Visualizza i conteggi trasformati in frequenze relative.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
For i=2 To 12 CONTA[i]=0 EndFor For i=1 To 10000 dado1=Math.GetRandomNumber(6) dado2=Math.GetRandomNumber(6) dadi =dado1+dado2 CONTA[dadi]=CONTA[dadi]+1 EndFor For i=2 To 12 perc=CONTA[i]/10000 TextWindow.WriteLine(i + ": " + perc) EndFor |
Soluzione 3
Lanciando i dadi 10, 100, 1000, 10000 volte si osserva come le frequenze relative tendono alle probabilità teoriche
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
NUM[1]= 10 NUM[2]= 100 NUM[3]= 1000 NUM[4]=10000 For esp=1 To 4 For lancio=1 To NUM[esp] dado1=Math.GetRandomNumber(6) dado2=Math.GetRandomNumber(6) dadi =dado1+dado2 CONTA[esp][dadi]=CONTA[esp][dadi]+1 EndFor EndFor For X=2 To 12 TextWindow.Write(X) For esp=1 To 4 perc=CONTA[esp][X]/NUM[esp] TextWindow.CursorLeft=8*esp TextWindow.Write(perc) EndFor TextWindow.WriteLine("") EndFor TextWindow.WriteLine("") |