四则运算练习程序

Author: 重庆南开中学初93级四班 杨军 Date: 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级四班  杨军)