|
|
1 PRINT "半（奇数）か、丁（偶数）か？"
2 INPUT PROMPT "何回勝負しますか？半角で入力。":i
3 RANDOMIZE
4 FOR i=1 TO i
5 PRINT
6 INPUT PROMPT "２つのサイコロの和はどっち？半(奇数）か丁(偶数）か？「半」or「丁」を入力。":c$
7 LET t=INT(RND*6+1)
8 LET v=INT(RND*6+1)
9 LET u=MOD(t+v,2)
10 IF u=0 THEN
11 IF c$="丁" THEN
12 PRINT i;"回目は";t;"と";v;"の目がでました。合計" ;t+v;"になります。"
20 PRINT "あなたの勝ち"
25 LET s=s+1
30 ELSE
31 PRINT i;"回目は";t;"と";v;"の目がでました。合計" ;t+v;"になります。"
32 PRINT "あなたの負け"
33 END IF
35 ELSE
40 IF c$="半" THEN
41 PRINT i;"回目は";t;"と";v;"の目がでました。合計" ;t+v;"になります。"
50 PRINT "あなたの勝ち"
55 LET s=s+1
60 ELSE
61 PRINT i;"回目は";t;"と";v;"の目がでました。合計" ;t+v;"になります。"
65 PRINT "あなたの負け"
70 END IF
80 END IF
91 PRINT "今のは";i;"回目の勝負でした。"
100 NEXT i
101 IF 2*s>(i-1) THEN
102 PRINT
103 PRINT "あなたは勝ち越しました。"
104 ELSE
105 IF 2*s=i-1 THEN
106 PRINT
107 PRINT "あなたは引き分けました。"
108 ELSE
109 PRINT
110 PRINT "あなたは負け越しました。"
END IF
END IF
111 PRINT "あなたは";i-1;"回中";s;"回勝った勝負でした。"
120 END
http://www2.accsnet.ne.jp/~kosugi15833/original-program.html
|
|