“争得零”取数游戏

Author: 安徽袁俊立 Date: 1995-05-26

        运行以下程序即可进行以上游戏，该程序在GWBASIC下运行通过。你不妨把它输入计算机并和计算机玩上几局，如果你不知道这个游戏的奥秘的话，你是很难赢过计算机的。
        10 REM 争得零取数游戏
        20 DEFINT A-X
        25 CLS
        30 INPUT “请输入起始数字(10-100)：”，N
        40 IF (N<10) OR (N >100) THEN PRINT“数值超界，请重新输入!”：GOTO 30
        50 INPUT “1.计算机先取数  2.人先取数   请选择：”，X
        60 IF (X< >1) AND (X< >2) THEN PRINT“选择错误，请重新选择!”： GOTO 50
        70 IF X=2 GOTO 130
        80 COMPUTER=N MOD 4
        90 IF COMPUTER=0 THEN COMPUTER=1
        100 N=N-COMPUTER
        110 PRINT “计算机取”；COMPUTER，“还剩”；N
        120 IF N=0 THEN PRINT “计算机赢了!” ：BEEP：GOTO 180
        130 INPUI “你取多少”；MAN
        140 IF (MAN<1) OR (MAN>3) THEN PRINT“取数非法，请重新取!”：GOTO 130
        150 N=N-MAN
        160 PRINT “你取”；MAN，“还剩”；N
        170 IF N=0 THEN PRINT “你赢了!”：BEEP ELSE GOTO 80
        180 INPUT “再玩一次?(y/n)”，YN$
        190 IF (YN$=“y”) OR (YN$=“Y”) GOTO 25
        200 END