DICE.BAS
Jeux en GW-Basic (PC-Basic)
Pas exactement un jeu, ce programme simule un lancer d'une paire de dés un grand nombre de fois et imprime la fréquence de distribution. Vous entrez simplement le nombre de lancer. Il est intéressant de voir combien de lancer sont nécessaires pour approcher la distribution théorique :
2 1/36 2.7777 . . .%
3 2/36 5.5555 . . .%
4 3/36 8.3333 . . .% etc.
Daniel Freidus a écrit ce programme alors qu'il était en septième année à Harrison Jr-Sr High School, Harrison, New York.
2 PRINT TAB(34);"DICE"
4 PRINT TAB(5) ;"CREATIVE COMPUTING MORRISTOWN, NEW
JERSEY"
6 PRINT:PRINT:PRINT
10 DIM F(12)
20 REM DANNY FREIDUS
30
PRINT "THIS PROGRAM SIMULATES THE ROLLINS OF A"
40 PRINT "PAIR OF DICE."
30 PRINT "YOU ENTER THE NUHBER 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.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","NUHBER OF TIMES"
200 FOR
V=2 TO 12
210 PRINT V,F(V)
220 NEXT V
222 PRINT:PRINT "TRY AGAIN";
223 INPUT Z$
224 IF Z$="YES" THEN 80
240 END
