mirror of
https://github.com/coding-horror/basic-computer-games.git
synced 2025-12-12 15:50:20 -08:00
d26dbf036a
Spaces tend to cause annoyances in a Unix-style shell environment. This change fixes that.
32 lines
768 B
QBasic
32 lines
768 B
QBasic
2 PRINT TAB(34);"DICE"
|
|
4 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
|
6 PRINT:PRINT:PRINT
|
|
10 DIM F(12)
|
|
20 REM DANNY FREIDUS
|
|
30 PRINT "THIS PROGRAM SIMULATES THE ROLLING OF A"
|
|
40 PRINT "PAIR OF DICE."
|
|
50 PRINT "YOU ENTER THE NUMBER OF TIMES YOU WANT THE COMPUTER TO"
|
|
60 PRINT "'ROLL' THE DICE. WATCH OUT, VERY LARGE NUMBERS TAKE"
|
|
70 PRINT "A LONG TIME. IN PARTICULAR, NUMBERS OVER 5000."
|
|
80 FOR Q=1 TO 12
|
|
90 F(Q)=0
|
|
100 NEXT Q
|
|
110 PRINT:PRINT "HOW MANY ROLLS";
|
|
120 INPUT X
|
|
130 FOR S=1 TO X
|
|
140 A=INT(6*RND(1)+1)
|
|
150 B=INT(6*RND(1)+1)
|
|
160 R=A+B
|
|
170 F(R)=F(R)+1
|
|
180 NEXT S
|
|
185 PRINT
|
|
190 PRINT "TOTAL SPOTS","NUMBER OF TIMES"
|
|
200 FOR V=2 TO 12
|
|
210 PRINT V,F(V)
|
|
220 NEXT V
|
|
221 PRINT
|
|
222 PRINT:PRINT "TRY AGAIN";
|
|
223 INPUT Z$
|
|
224 IF Z$="YES" THEN 80
|
|
240 END
|