Het eerder besproken programma voor het verkrijgen van het aantal zijden van een dobbelsteen wordt hier
uitgebreid zodat de mogelijke totalen van twee dergelijke dobbelstenen worden opgeslagen in gegevensset
D1. Voer in het programma de volgende subroutines in voor de app DiceSimulation.
Het programma DiceSimulation
DICESIMVARS();
ROLLDIE();
EXPORT SIDES,ROLLS;
EXPORT DiceSimulation()
BEGIN
END;
VIEW "Start",START()
BEGIN
D1:={};
D2:={};
H1:= {'D1','D2',1,0,#FF:24h}
STARTVIEW(6,1);
END;
VIEW "Roll Dice",ROLLMANY()
BEGIN
LOCAL k,roll;
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
roll:=ROLLDIE(SIDES)+ROLLDIE(SIDES);
D2(roll-1):= D2(roll-1)+1;
620 Hoofdstuk 29 Programmeren in HP PPL