Tabla de contenido
Programa
ROLLMANY
250
EXPORT ROLLMANY(n,caras)
BEGIN
LOCAL k,roll;
// inicializar la lista de frecuencias
MAKELIST(0,X,1,2*caras,1)
FOR k FROM 1 TO n DO
ROLLDIE(caras) + ROLLDIE(caras)
L2(lanzamiento)+1 L2(lanzamiento);
END;
END;
Este programa utiliza un bucle FOR, que se explica en la
sección sobre bucles.
La visibilidad de una función puede restringirse al
programa donde está definida si se omite el comando
EXPORT al declarar la función. Por ejemplo, podría
definir la función ROLLDIE dentro del programa
ROLLMANY de la siguiente forma:
EXPORT ROLLMANY(n,caras)
BEGIN
LOCAL k,roll;
// inicializar la lista de frecuencias
MAKELIST(0,X,1,2*caras,1) L2;
FOR k FROM 1 TO n DO
ROLLDIE(caras)+ROLLDIE(caras) roll;
L2(lanzamiento)+1
L2(lanzamiento);
END;
END;
ROLLDIE(n)
BEGIN
RETURN 1 + FLOOR(n*RANDOM);
END;
L2;
roll;
Programación
Tabla de contenido
