D2:={};
SetSample(H1,D1);
SetFreq(H1,D2);
H1Type:=1;
STARTVIEW(6,1);
END;
VIEW "Roll Dice",ROLLMANY()
BEGIN
LOCAL k,roll;
D1:= MAKELIST(X+1,X,1,2*SIDES-1,1);
D2:= MAKELIST(0,X,1,2*SIDES-1,1);
FOR k FROM 1 TO ROLLS DO
roll:=ROLLDIE(SIDES)+ROLLDIE
(SIDES);
D2(roll-1):= D2(roll-1)+1;
END;
Xmin:= -0.1;
Xmax:= MAX(D1)+1;
Ymin:= −0.1;
Ymax:= MAX(D2)+1;
STARTVIEW(1,1);
END;
VIEW "Set Sides",SETSIDES()
BEGIN
REPEAT
INPUT(SIDES,"Die Sides","N=","Enter# of sides",2);
SIDES:= FLOOR(SIDES);
IF SIDES<2 THEN MSGBOX("# of sides must be >= 4");
END;
UNTIL SIDES >=4;
STARTVIEW(7,1);
END;
VIEW "Set Rolls",SETROLLS()
BEGIN
580 Chapter 28 Programming in HP PPL
Komentarze do niniejszej Instrukcji