ジャンケンゲーム ※下をコピーしてね♪

 投稿者:yumachin  投稿日:2016年 3月21日(月)18時31分18秒
  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

 

戻る