四则运算练习程序
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=M10: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(MRND(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+BC-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级四班 杨军)