Inhoudsopgave
Advertenties
Het programma
DiceSimulation
Programmeren
START()
BEGIN
DICESIMVARS();
{} D1;
{} D2;
SETSAMPLE(H1,D1);
SETFREQ(H1,D2);
0 H1Type;
END;
VIEWS "Dobbelsteen werpen",ROLLMANY()
BEGIN
LOCAL k,worp;
MAKELIST(X+1,X,1,2*ZIJDEN-1,1) D1;
MAKELIST(0,X,1,2*ZIJDEN-1,1) D2;
FOR k FROM 1 TO WORPEN DO
Worp:=ROLLDIE(ZIJDEN)+ROLLDIES(ZIJDEN);
D2(worp-1)+1 D2(worp-1);
END;
-1 Xmin;
MAX(D1)+1 Xmax;
0 Ymin;
MAX(D2)+1 Ymax;
STARTVIEW(1,1);
END;
VIEWS "Zijden instellen", SETSIDES()
BEGIN
REPEAT
INPUT(ZIJDEN,"Zijden van een
dobbelsteen","N = ","Voer aantal zijden
in",2);;
FLOOR(ZIJDEN) ZIJDEN;
277
Advertenties
Inhoudsopgave
