四则运算练习程序

四则运算练习程序

重庆南开中学初９３级四班 杨军
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级四班 杨军)