HP Prime Guia Del Usuario página 582

Programa ROLLDIE
Programa
ROLLMANY
580
En primer lugar, crearemos un programa llamado
ROLLDIE. Este simula el lanzamiento de un solo dado
que devuelve un entero entre 1 y el número especificado
en la función.
En el catálogo de programas, cree un nuevo programa
denominado ROLLDIE. (Para obtener ayuda, consulte
página 565). A continuación, introduzca el código en el
editor de programas.
EXPORT ROLLDIE(N)
BEGIN
RETURN 1+FLOOR(RANDOM(N));
END;
La primera línea es el encabezado de la función. La
ejecución de la declaración RETURN hace que se calcule
un entero aleatorio de 1 a N y que se devuelva como
resultado de la función. Tenga en cuenta que la ejecución
de un comando RETURN provoca el fin de la ejecución de
la función. Por ello, se ignoran todas las declaraciones
entre el final de la declaración RETURN y END.
En la vista de Inicio (o en cualquier sección de la
calculadora en la que pueda utilizarse un número), puede
introducir ROLLDIE(6) y obtendrá un entero aleatorio
entre 1 y 6, ambos inclusive.
Otro programa podría utilizar la función ROLLDIE y
generar n lanzamientos de un dado con cualquier número
de caras. En el siguiente programa, la función ROLLDIE
se utiliza para generar n lanzamientos de dos dados,
cada uno con el número de caras que indican la variable
local caras. Los resultados se almacenan en la lista L2,
de forma que L2(1) muestra el número de veces que el
dado devuelve un valor total de 1, L2(2) muestra el
número de veces que el dado devuelve un valor total de
2, etc. L2(1) debería ser igual a 0 (dado que la suma de
los números del dado 2 debe ser al menos 2).
EXPORT ROLLMANY(n,sides)
BEGIN
LOCAL k,roll;
// inicializar la lista de frecuencias
MAKELIST(0,X,1,2*sides,1) L2;

Programación