Je gooit 6 keer met een dobbelsteen (of één keer met 6 dobbelstenen). Wat is de kans op 6 verschillende worpen?
Uitwerking
We gaan nu een programma schrijven om deze kans te simuleren. Hoe gaat dat in z'n werk?
We gaan eerst het probleem analyseren... door een soort 'programma' in normale taal te schrijven. Daarna onderzoeken we hoe je zoiets op je GR zou kunnen programmeren.
Dit probleem komt dan neer op:
Gooi een aantal keren 6 keer met een dobbelsteen
Tel het aantal keren dat je dat doet (T)
Tel het aantal keren dat je 6 verschillende worpen gooit (I)
De gevraagde kans is bij benadering I/T
Klaar!
Programmeren
Vervolgens werk je dit uit in programmataal.
Hoe simuleer je het gooien met 6 dobbelstenen?
Dat kan met randInt(1,6,6)®L1
Ik heb nu in L1 een lijstje van 6 getallen variërend van 1 tot en met 6, de zes worpen.
Hoe controleer je of ze verschillend zijn?
Ik kan het lijstje in L1 op volgorde van klein naar groot zetten met SortA(L1). Als ze nu allemaal verschillend zijn dan staat er in L1(1) een 1, in L1(2) een 2,... Dus met de volgende 'test' kan ik dat nagaan:
:0$\to$A
:For(Y,1,6)
:If Y=L1(Y)
:A+1$\to$A
:End
:If A=6
:(dan zijn de 6 worpen verschillend) :End
Om te simuleren ga ik 100 keer met 6 dobbelstenen gooien. Dit kan met de volgende 'opzet':
