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);
FOR k FROM 1 TO ROLLS DO
580 Kapitel 28 Programmierung in HP PPL