HP Prime Handbuch Seite 629

Wurf:=ROLLDIE(SIDES)+ROLLDIE (SIDES);
(SIDES);
D2(Wurf-1):= D2(Wurf-1)+1;
END;
Xmin:= -0.1;
Xmax:= MAX(D1)+1;
Ymin:= −0.1;
Ymax:= MAX(D2)+1;
STARTVIEW(1,1);
END;
VIEW "Seiten festlegen",SETSIDES()
BEGIN
REPEAT
INPUT(SIDES,"Würfelseiten","N=","Eingabe Anz. Seiten",2);
SIDES:= FLOOR(SIDES);
IF SIDES < 2 THEN MSGBOX("# Seiten muss > = 4 sein");
END;
UNTIL SIDES >=4;
STARTVIEW(7,1);
END;
VIEW "Würfe festlegen",SETROLLS()
BEGIN
REPEAT
INPUT(ROLLS,"Anz. Würfe","N=","Eingabe Anz. Würfe",25);
ROLLS:= FLOOR(ROLLS);
IF ROLLS < 1 THEN MSGBOX ("Sie müssen eine Zahl > = 1 eingeben ");
END;
UNTIL ROLLS>=1;
STARTVIEW(7,1);
END;
PLOT()
BEGIN
Xmin:=-0.1;
Xmax:= MAX(D1)+1;
Die Benutzertastatur: Anpassen der Tasten 581