标题四则运算练习程序

　　本程序在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级四班　杨军)