サイコロあげるよ #27

27以下、名無しにかわりましてVIPがお送りします:2016/03/05(土) 21:44:13.82 ID:ipRWPJm9

10 CLS
20 A= INT(RND(1)*3)+1
30 INPUT ゛1=パー 2=チョキ 3=グー゛,GUESS
40 IF GUESS>A THEN 70 ELSE 50
50 IF GUESS<A THEN 80 ELSE 60
60 PRINT ゛アイコ゛:GOTO 20
70 IF GUESS=3 THEN 75 ELSE 90
75 IF A=1 THEN 100 ELSE 90
80 IF GUESS=1 THEN 85 ELSE 100
85 IF A=3 THEN 90 ELSE 100
90 PRINT゛カチ!゛
95 GOTO 110
100 PRINT゛マケ・・・゛
110 INPUT ゛モウイチド=1 オワル=2゛,GUESS
120 IF GUESS=1 THEN 130 ELSE 150
130 CLS
140 GOTO 20
150 END

このスレッドを全て表示


このスレッドは過去ログです。