利用计算机进行口算训练

Author: 江苏省程斌 Date: 1992-06-12

        10 T=0
        15 FOR I=1 TO 10
        20 A=INT (RND (1)*100)
        30 B=INT (RND (2)*100)
        35 IF A<B THEN P=A: A=B:B=P
        40 C=INT (4*RND(1)):ON C GOTO 60,70,80
        50 D=A+B:A$="+":GOTO 100
        60 D=A-B:A$="-":GOTO 100
        70 D=A*B:A$="*":GOTO 100
        80 IF A/B<>INT (A/B) THEN20
        90 D=A/B:A$="/"
        100 PRINT A;A$;B;"=";:INPUT X
        110 IF X=D THEN T=T+1
        130 NEXT I
        140 PRINT "Dui:";T,"Cuo;";10-T
        150 PRINT"Defen:";10*T:END