Table of Contents
Advertisement
Programming
-1
Xmin;
MAX(D1)+1
Xmax;
0
Ymin;
MAX(D2)+1
Ymax;
STARTVIEW(1,1);
END;
VIEWS "Set Sides",SETSIDES()
BEGIN
REPEAT
INPUT(SIDES,"Die Sides","N=","ENTER
num sides",2);
FLOOR(SIDES)
IF SIDES<2 THEN
MSGBOX("Must be >= 2");
END;
UNTIL SIDES >=2;
END;
VIEWS "Set Rolls",SETROLLS()
BEGIN
REPEAT
INPUT(ROLLS,"Num of rolls","N=","Enter
numrolls",25);
FLOOR(ROLLS)
IF ROLLS<1 THEN
MSGBOX(" u must enter a num >=1");
END;
UNTIL ROLLS>=1;
END;
PLOT()
BEGIN
-1
Xmin;
MAX(D1)+1
Xmax;
0
Ymin;
MAX(D2)+1
Ymax;
STARTVIEW(1,1);
END;
SIDES;
ROLLS;
463
Advertisement
Table of Contents
