Inhoudsopgave
Advertenties
Programmeren
// lijst met frequenties initialiseren
MAKELIST(0,X,1,2*zijden,1)
FOR k FROM 1 TO n DO
ROLLDIE(zijden) + ROLLDIE(zijden)
L2(worp)+1 L2(worp);
END;
END;
ROLLDIE(n)
BEGIN
RETURN 1 + FLOOR(N*RANDOM);
END;
In dit scenario gaan we ervan uit dat er geen functie
ROLLDIE vanuit een ander programma wordt
geëxporteerd. In plaats daarvan is ROLLDIE alleen
zichtbaar in de context van ROLLMANY.
Tot slot kan de lijst met resultaten worden geretourneerd
als het resultaat van het aanroepen van ROLLMANY in
plaats van direct te worden opgeslagen in de globale
lijstvariabele L2. Op die manier kan de gebruiker
desgewenst de resultaten op eenvoudige wijze ergens
anders opslaan.
EXPORT ROLLMANY(n,zijden)
BEGIN
LOCAL k,worp,resultaten;
MAKELIST(0,X,1,2*zijden,1) resultaten;
FOR k FROM 1 TO n DO
ROLLDIE(zijden) + ROLLDIE(zijden)
resultaten(worp)+1
resultaten(worp);
END;
RETURN resultaten;
END;
L2;
worp;
worp;
271
Advertenties
Inhoudsopgave
