Funktion Münzwurf

mwurf(n)
Func
Local k,s1,s2
0 → s1
0 → s2
For k,1,n
  IF rand(2)=1 THEN
    s1+1 → s1
  ELSE
   s2+1 → s2
  ENDIF
ENDFOR
[s1,s2]
EndFunc

Funktion Wuerfeln

wuerfeln(n)
Func
Local k,s1,s2,s3,s4,s5,s6,z
0 → s1
0 → s2
0 → s3
0 → s4
0 → s5
0 → s6
For k,1,n
  rand(6) → z
  IF z=1 THEN
    s1+1  → s1
  ENDIF
  IF z=2 THEN
    s2+1  → s2
  ENDIF
  IF z=3 THEN
    s3+1  → s3
  ENDIF
  IF z=4 THEN
    s4+1  → s4
  ENDIF
  IF z=5 THEN
    s5+1  → s5
  ENDIF
  IF z=6 THEN
    s6+1  → s6
  ENDIF
ENDFOR
[s1,s2,s3,s4,s5,s6]
EndFunc