WisFaq!

Verjaardagen simuleren

Ik heb een opgave waarbij je een programma moet maken om het te simuleren: in een zaal bevinden zich K personen. Hoe groot is de kans dat minstens twee personen tegelijk jarig zijn?
Zelf heb ik dit, maar het programma doet de simulatie maar 1x. En als ik bij For(V,1,1) 1,20 bijv. invul, vraagt ie 20X K. Wat doe ik fout?
0(sto)U
For(W,1,100)
For(V,1,1)
Disp "geef K"
Prompt K
randint(1,365,k)(sto)L5
SortA(L5)
Deltalist(L5)(sto)L6
IF sum(L6=0)
U+1(sto)U
End
Disp U

Groetjes, Danielle

Danielle
7-9-2003

Antwoord

Hallo Danielle,

Je geeft zelf al aan waar het fout gaat.
De variabele K moet 1 keer gevuld worden. Dit moet je niet doen een For lus.

0®U
Disp "GEEF K"
Promt K
For(W,1,100)
randint(1,365,K)®L₅
SortA(L₅)
DList(L₅)®L₆
IF sum(L₆=0)
U+1®U
End
Disp U

Inplaats van de opdrachten
Disp "GEEF K"
Promt K
Kun je ook de opdracht
Input "GEEF K ",K
gebruiken

Bij het gebruik van de For lus moet je er aan denken dat bij iedere For ook een END hoort. In jouw programma staat maar een keer END terwijl je twee keer de For lus gebruikt.

Verder moet je er rekening mee houden dat als K klein is dat je dan meer dan 100 simulaties nodig hebt.

wl
7-9-2003