Würfeln einer "6"

wurf6(n)
Func

Local k,z,s                  (Vokabeln vereinbaren)  F4 drücken für Local

0→s                         (s wird mit 0 belegt, STO-Taste drücken)

For k,1,n        (von k=1 bis n passiert alles bis EndFor) F2 drücken für For ... Endfor

rand(6) →z    (Zufallszahl von 1 bis 6 wird der Variablen z zugeordnet)

If z=6 then    (Bedingung: Wenn z=6 dann wird s um 1 erhöht) F2 für If ... Then

s+1→s

EndIf

EndFor

[[s,(s/n)]]        (Ausgabe der Ergebnisse als Liste)

EndFunc