HP Calculadora gráfica HP Prime - Manual (Página 590)

588 Programación
REPEAT
INPUT(ROLLS,"Num of rolls","N=","Enter
numrolls",25);
FLOOR(ROLLS) ROLLS;
IF ROLLS<1 THEN
MSGBOX(" u must enter a num >=1");
END;
UNTIL ROLLS>=1;
END;
PLOT()
BEGIN
-1 Xmin;
MAX(D1)+1 Xmax;
0 Ymin;
MAX(D2)+1 Ymax;
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.
Programa
DICESIMVARS
EXPORT ROLLS,SIDES;
EXPORT DICESIMVARS()
BEGIN
10 ROLLS;
6 SIDES;
END;