HP Prime Graphing Wireless Calculator Instrukcja Użytkownika Strona 628

  • Pobierz
  • Dodaj do moich podręczników
  • Drukuj
Przeglądanie stron 627
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
Przeglądanie stron 627
1 2 ... 623 624 625 626 627 628 629 630 631 632 633 ... 700 701

Komentarze do niniejszej Instrukcji

Brak uwag