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

Programación 577
FOR k FROM 1 TO n DO
ROLLDIE(sides)+ROLLDIE(sides) roll;
L2(roll)+1 L2(roll);
END;
END;
Si se omite el comando EXPORT al declarar una función,
puede restringir su visibilidad al programa en el que se ha
definido. Por ejemplo, podría definir la función ROLLDIE
dentro del programa ROLLMANY de la siguiente forma:
ROLLDIE();
EXPORT ROLLMANY(n,sides)
BEGIN
LOCAL k,roll;
// inicializar la lista de frecuencias
MAKELIST(0,X,1,2*sides,1) L2;
FOR k FROM 1 TO n DO
ROLLDIE(sides)+ROLLDIE(sides) roll;
L2(roll)+1 L2(roll);
END;
END;
ROLLDIE(n)
BEGIN
RETURN 1+FLOOR(RANDOM (N));
END;
En este escenario, se asume que no se ha exportado
ninguna función ROLLDIE desde otro programa. En su
lugar, ROLLDIE solo es visible en el contexto de
ROLLMANY
. La función ROLLDIE debe declararse antes
de denominarse. La primera línea del programa anterior
contiene la declaración de la función ROLLDIE. La
definición de la función ROLLDIE se encuentra al final del
programa.
Por último, la lista de resultados podría devolverse como
resultado de llamar a ROLLMANY en lugar de
almacenarse directamente en la variable de lista global,
L2. De esta forma, si el usuario desea guardar los
resultados en otro lugar, puede hacerlo fácilmente.
EXPORT ROLLMANY(n,sides)
BEGIN