HP 39gII Guia Del Usuario página 267

Programa
DiceSimulation
256
START()
BEGIN
DICESIMVARS();
// Vaciar columnas de datos D1 y D2
{} D1;
{} D2;
SETSAMPLE(H1,D1);
SETFREQ(H1,D2);
0 H1Type;
END;
VIEWS "Lanzar dado",ROLLMANY()
BEGIN
LOCAL k,roll;
MAKELIST(X+1,X,1,2*SIDES-1,1) D1;
MAKELIST(0,X,1,2*SIDES-1,1) D2;
FOR k FROM 1 TO ROLLS DO
roll:=ROLLDIE(SIDES)+ROLLDIES(SIDES);
D2(lanzamiento-1)+1 D2(lanzamiento-1);
END;
-1 Xmin;
MAX(D1)+1 Xmax;
0 Ymin;
MAX(D2)+1 Ymax;
STARTVIEW(1,1);
END;
VIEWS "Definir caras", SETSIDES()
BEGIN
REPEAT
INPUT(SIDES,"Caras del dado","N =
","Introduzca el número de caras",2);
Programación