HP Prime-Grafenberechner - Handbuch (Seite 604)

602 Programmieren
FOR k FROM 1 TO ROLLS DO
Wurf:=ROLLDIE(SIDES)+ROLLDIE (SIDES);
D2(Wurf-1)+1 D2(Wurf-1);
END;
-1 Xmin;
MAX(D1)+1 Xmax;
0 Ymin;
MAX(D2)+1 Ymax;
STARTVIEW(1,1);
END;
VIEWS "Seiten festlegen",SETSIDES()
BEGIN
REPEAT
INPUT(SIDES,"Würfelseiten","N=","EING
ABE Anz. Seiten",2);
FLOOR(SIDES) SIDES;
IF SIDES<2 THEN
MSGBOX("Muss >= 2 sein");
END;
UNTIL SIDES>=2;
END;
VIEWS "Würfe festlegen",SETROLLS()
BEGIN
REPEAT
INPUT(ROLLS,"Anz.
Würfe","N=","Eingabe Anz. Würfe",25);
FLOOR(ROLLS) ROLLS;
IF ROLLS<1 THEN
MSGBOX("Sie müssen eine Zahl im Wert
von >= 1 eingeben");
END;
UNTIL ROLLS>=1;
END;
Plot()
BEGIN
-1 Xmin;
MAX(D1)+1 Xmax;
0 Ymin;