HP Calculadora gráfica HP Prime Manual del usuario

Página 590

Advertising
background image

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;

Advertising