Här har ni ett nice program till er miniräknare om ni orkar skriva av eller har nått annat sätt att få in det:
PROGRAM biggrin ICE
:1->Y:1->Z:0->T:0->U
:Input "NRDICE:", J
:ClrHome
:For(X,1,J)
:randInt(1,6)->S
:If S=6
:X-2->X
:Output(Z,Y,"OB")
:Y+3->Y
:U+1->U
:Else
:Output(Z,Y,S)
:Y+2->Y
:S+T->T
:End
:If Y>=15
:Then
:Z+1->Z
:1->Y
:End
:If Z>8
:Then
:1->Z
:Pause
:ClrHome
:End
:End
:Pause
:ClrHome
:Output(1,2,"SÚM=")
:Output(1.7.T)
:Output(3,2,"NROB=")
:Output(3,8,U)
:Output(5,2,"AVG=")
:Output(5,7,round(T/J,2))
Ni som har läst programmering eller lekt med er miniräknare ser nog att det är ett program som kastar ObT6
surprised r. Have fun.