|
|
私もジャンケンゲーム作ってみました
DIM A$(0 TO 2)
RANDOMIZE
MAT READ A$
DATA "「グー」","「チョキ」","「パー」"
DO
DO
INPUT PROMPT "グー(0) チョキ(1) パー(2) ":P_TE
LOOP UNTIL P_TE>=0 AND P_TE<=2
PRINT "あなたは ";A$(P_TE)
LET C_TE=INT(RND*3)
PRINT "コンピュータは ";A$(C_TE)
LET K=MOD(C_TE-P_TE+3,3)
SELECT CASE K
CASE 0
PRINT "引き分け"
CASE 1
PRINT "貴方の勝ち"
LET P_TEN=P_TEN+1
CASE 2
PRINT "コンピュータの勝ち"
LET C_TEN=C_TEN+1
END SELECT
PRINT
PRINT "あなたの得点は";P_TEN
PRINT "コンピュータの得点は";C_TEN
PRINT
LOOP UNTIL C_TEN=3 OR P_TEN=3
IF P_TEN=3 THEN
PRINT "あなたの勝ちです"
ELSE
PRINT "あなたの負けです"
END IF
END
|
|