|
|
100 PRINT "ジャンケンゲーム!"
200 PRINT
300 PRINT "コンピュータとジャンケンをします。先に三回勝ちましょう。"
400 DO
500 DO
600 INPUT PROMPT "出す手を入力してください。(グー:1 チョキ:2 パー:3 )":p_te
700 IF p_te>=1 THEN
800 IF p_te<=3 THEN EXIT DO
900 END IF
1000 PRINT "※ この数字は入力できません"
1100 LOOP
1200 IF p_te=1 THEN
1300 PRINT "あなたは「 グー」を出しました。"
1400 END IF
1500 IF p_te=2 THEN
1600 PRINT "あなたは「 チョキ」を出しました。"
1700 END IF
1800 IF p_te=3 THEN
1900 PRINT "あなたは「 パー」を出しました。"
2000 END IF
2100 RANDOMIZE
2200 LET c_te=INT(RND*3+1)
2300 IF c_te=1 THEN
2400 PRINT "コンピュータは「 グー」を出しました。"
2500 END IF
2600 IF c_te=2 THEN
2700 PRINT "コンピュータは「 チョキ」を出しました。"
2800 END IF
2900 IF c_te=3 THEN
3000 PRINT "コンピュータは「 パー」を出しました。"
3100 END IF
3200 IF c_te-p_te=(-2) THEN
3300 PRINT "勝ち!"
3400 LET P_TEN=P_TEN+1
3500 GOTO 5600
3600 END IF
3700 IF c_te-p_te=2 THEN
3800 PRINT "負け..."
3900 LET C_TEN=C_TEN+1
3950 GOTO 5600
4000 END IF
4100 IF c_te>p_te THEN
4200 PRINT "勝ち!"
4300 LET P_TEN=P_TEN+1
4400 END IF
4500 IF c_te<p_te THEN
4600 PRINT "負け..."
4700 LET C_TEN=C_TEN+1
4800 END IF
4900 IF c_te-p_te=2 THEN
5000 PRINT "負け..."
5100 LET C_TEN=C_TEN+1
5200 END IF
5300 IF p_te=c_te THEN
5400 PRINT "あいこ"
5500 END IF
5600 PRINT "あなたの得点は";P_TEN;"点です"
5700 PRINT "コンピュータの得点は";C_TEN;"点です"
5800 IF P_TEN=3 THEN EXIT DO
5900 IF C_TEN=3 THEN EXIT DO
6000 LET p_te=p_te-p_te
6100 LET c_te=c_te-c_te
6200 LOOP
6300 IF P_TEN=3 THEN
6400 PRINT "you win!"
6500 ELSE
6600 IF C_TEN=3 THEN
6700 PRINT "you lost..."
6800 END IF
6900 END IF
7000 END
http://#yumachin
|
|