|
Программа для обучения сложению
|
Геннадий Шахов
20 PRINT "Level: ";
30 INPUT a: PRINT a: RANDOMIZE 0
40 LET b=1+INT (a*RND)
50 LET c=1+INT (a*RND)
60 PRINT b;"+";c;"=";
70 INPUT d
80 IF d=c+b THEN GO TO 1000
90 BEEP 1,0: BEEP 1,2: BEEP .5,3: BEEP .5,2
300 BEEP 1,0: BEEP 1,2: BEEP .5,3
330 BEEP .5,2: BEEP 1,0: BEEP 1,3: BEEP 1,5
340 BEEP 2,7: BEEP 1,3: BEEP 1,5: BEEP 2,7
430 GO TO 70
1000 BEEP .5,16: BEEP .5,12: BEEP .5,16: BEEP .5,12
3000 BEEP .5,17: BEEP .5,16: BEEP 1,14
3030 BEEP .5,7: BEEP .5,7: BEEP .5,9: BEEP .5,11
3040 BEEP .5,12: BEEP .5,12: BEEP 1,12
3050 PRINT d
3060 GO TO 40
|