HP Prime Guia Del Usuario página 594

Programa
DICESIMVARS
592
REPEAT
INPUT(ROLLS,"Num of rolls","N=","Enter
numrolls",25);
FLOOR(ROLLS)
IF ROLLS<1 THEN
MSGBOX(" u must enter a num >=1");
END;
UNTIL ROLLS>=1;
END;
PLOT()
BEGIN
-1 Xmin;

MAX(D1)+1

0 Ymin;

MAX(D2)+1

STARTVIEW(1,1);
END;
La rutina ROLLMANY() es una adaptación de un
programa presentado con anterioridad en este capítulo.
Como no puede transferir los parámetros a un programa
llamado mediante una selección de un menú Vistas
personalizado, las variables exportadas SIDES y ROLLS
se utilizan en lugar de los parámetros que se utilizaban en
las versiones anteriores.
El programa anterior llama a otros dos programas de
usuario: ROLLDIE() y DICESIMVARS(). ROLLDIE(n)
aparece con anterioridad en este capítulo. A
continuación se presenta DICESIMVARS. Cree un
programa con ese nombre e introduzca el siguiente
código.
EXPORT ROLLS,SIDES;
EXPORT DICESIMVARS()
BEGIN
10 ROLLS;

6 SIDES;

END;
ROLLS;

Xmax;
Ymax;
Programación