2012年9月9日日曜日

数当てゲーム1

数当てゲーム1



10 R=RAN#*10:R=ROUND(R,-1):B=1


20 INPUT "1ケタセイスウ";A


25 FOR I=1 TO 27:PRINT TAB(I);"エート";:NEXT I:PRINT "!!!!";


30 IF R=A THEN GOTO 60


40 PRINT R-A;"ズレテイマス ";B=B+1


50 GOTO 20


60 PRINT B;"カイデ セイカシマシタ";END




FX-840Pにて動作チェック

0 件のコメント:

コメントを投稿