|
|
1 RANDOMIZE
10 REM じゃんけんゲーム
20 INPUT PROMPT "メダルを何枚購入しますか？半角で入力":m
25 DO UNTIL m=<0
30 INPUT PROMPT "何枚賭けるの？半角入力。持ち数より多かったり、またマイナス入力時、再度入力。0入力でゲーム中止。":n
35 IF n=0 THEN 560
40 IF n>m OR n<0 THEN 30
70 INPUT PROMPT "じゃんけんします。「グー」「チョキ」「パー」を入力。":o$
80 LET p=INT(3*RND+1)
90 IF p=1 THEN
100 PRINT "コンピュータは「グー」です。"
110 IF o$="グー" THEN
120 PRINT "あいこです。"
130 END IF
140 IF o$="チョキ" THEN
150 PRINT "あなたの負けです"
160 LET m=m-n
170 END IF
180 IF o$="パー" THEN
190 PRINT "あなたの勝ちです。"
200 LET m=m+n
210 END IF
220 END IF
230 IF p=2 THEN
240 PRINT "コンピュータは「チョキ」です。"
250 IF o$="グー" THEN
260 PRINT "あなたの勝ちです。"
270 LET m=m+n
280 END IF
290 IF o$="チョキ" THEN
300 PRINT "あいこです。"
310 END IF
320 IF o$="パー" THEN
330 PRINT "あなたの負けです。"
340 LET m=m-n
350 END IF
360 END IF
370 IF p=3 THEN
380 PRINT "コンピュータは「パー」です。"
390 IF o$="グー" THEN
400 PRINT "あなたの負けです。"
410 LET m=m-n
420 END IF
430 IF o$="チョキ" THEN
440 PRINT "あなたの勝ちです。"
450 LET m=m+n
460 END IF
470 IF o$="パー" THEN
480 PRINT "あいこです。"
490 END IF
500 END IF
510 PRINT "あなたの持ちメダルは";m;"枚です。"
515
520 LOOP
530 IF m=<0 THEN
540 PRINT "すっからかん！"
550 END IF
560 IF n=0 THEN
570 PRINT "あなたの持ちメダルは";m;"枚です。"
580 END IF
END
http://www2.accsnet.ne.jp/~kosugi15833/original-program.html
|
|