© h.hofstede (h.hofstede@hogeland.nl)

 
1.
PROGRAM DOBBEL3
1  : ClrHome
2   : ClrAllLists
3   : seq(X, X, 1, 18) → L1
4   : 18 → dim(L2)
5   : Input"Hoeveel keer?", N
6   : For (I, 1, N)
7   :     Randint(1,6) + Randint(1,6) + Randint(1,6)  → X
8   :     L2(X) + 1 →  L2(X)
9   : end
       
2.
PROGRAM  HOGER
:  ClrHome : ClrAllLists
:  seq(X, X, 1, 6) → L1
:  6 → dim(L2)
:  Input"hoeveel keer?", N
:  For (I, 1, N)
:      0 → A  :  0 → L
:      randint(1,6) → X 
:      While X > L
:            1 + A →  A
:            X → L
:            randint(1,6) → X
:       End 
:       L2(A) + 1 → L2(A) 
:  End
:  Disp "gemiddelde:", mean(L1, L2)
  Toelichting:
A = aantal keer dat gegooid is in de huidige serie
L = laagte getal van de huidige serie
X = nieuw gegooid getal		    
       
3.
PROGRAM VERZAMEL
:  ClrHome : ClrAllLists
:  6 → dim(L1)
:  0 → T
:  Input"hoe vaak?", N
:  For (I, 1, N)
:       seq(0, X,`1, 6) → L1
:       While  sum(L1) < 6
:              randint(1,6) → X
:              1 → L1(X)
:              T + 1 → T
:       End
:  End
:  Disp "gemiddeld:", T/N
  Toelichting
T is het totaal aantal worpen in N pogingen.
In L1 komt een 1 of een 0 te staan al naar gelang of dat aantal ogen wel of niet gegooid is. Als er 6 enen staan zijn we klaar met de serie.
(De blauwe regel is nodig omdat van een lege lijst geen sum kan worden bepaald).

Met N = 100 doet ķe er wel een paar minuten over!!!
       

© h.hofstede (h.hofstede@hogeland.nl)