HP Prime Handbuch Seite 611

Das zuvor in diesem Kapitel behandelte Programm zur Ermittlung der Anzahl der Seiten für einen
Würfel wird hier erweitert, damit die zwei möglichen Summen zweier solcher Würfel in Datensatz D1
gespeichert werden können. Geben Sie die folgenden Subroutinen in das Programm für die App
DiceSimulation ein.
Programm DiceSimulation
DICESIMVARS();
ROLLDIE();
EXPORT SIDES,ROLLS;
EXPORT DiceSimulation()
BEGIN
END;
View "Start",START()
BEGIN
D1:={};
D2:={};
SetSample(H1,D1);
SetFreq(H1,D2);
H1Type:=1;
STARTVIEW(6,1);
END;
VIEW "Würfel werfen",ROLLMANY()
BEGIN
LOCAL k,Wurf;
D1:= MAKELIST(X+1,X,1,2*SIDES-1,1);
D2:= MAKELIST(0,X,1,2*SIDES-1,1);
Die Benutzertastatur: Anpassen der Tasten 561