四则运算练习程序

重庆南开中学初９３级四班  杨军
1993-07-16

        本程序在IBMPC/AT上，GWBASIC语言中运行成功。程序清单如下：
        3  KEY  OFF
        5  CLS
        10  P=0：Q=0：M=1：R=0：INPUTN
        15  FOR  I=1  TO  N：IF  I＞1  THEN  25
        20  M=M10：GOT0  30
        25  Q=0：R=0：P=0：GOT0  20
        30  PRINT  TAB(15)；＂第＂；I；＂轮练习：＂；M；＂以内的四则混和运算，每题1分，每轮共100题.＂
        40  A=INT(M*RND(1))：B=INT(M*RND(1))：C=INT(M*RND(1))：D=INT(MRND(1))：E=INT(M*RND(1))：  IF  E=0THEN  40
        45  R=R＋1
        50  PRINT＂(＂；R；＂)＂；＂＂；A；＂＋＂；B；＂＂；C；＂-＂；D；＂/＂；E；＂=＂；
        60  INPUT  X
        70  IF  X=A＋BC-INT((D/E＋.005)100)/100  THEN  100
        80  PRINT＂错误！＂：P=P＋1
        90  GOTO  115
        100  PRINT＂正确！＂
        110  Q=Q＋1
        115  IF  R＜=99  THEN  GOTO  40
        120  CLS：PRINT  TAB(14)＂总分：＂；Q，＂共错题：＂；P
        130  IF  Q＞90  OR  Q=90  THEN  145
        140  IF  Q＞80  OR  Q=80  THEN  150
        143  PRINT＂成绩很糟糕！＂：BEEP：GOTO  156
        145  PRINT＂成绩理想！！！＂：BEEP：GOTO  156
        150  PRINT＂成绩一般.＂：BEEP
        156  IF  I=INT(N)  THEN  160
        157  PRINT：PRINT  TAB(20)；＂请休息10分钟，键入CONT后继续…＂：STOP：CLS：NEXTI
        160  PRINT：PRINT  TAB(20)：＂练习到此结束！＂
        170  END
        (重庆南开中学初93级四班  杨军)
 
 