1 ' Autor: Svjatoslav Agejenko
\r
4 ' Matemaatika korrutus tabeli pohjal
\r
5 ' teadmiste testimis programm
\r
7 ' Vajuta F5 alustamiseks
\r
9 DECLARE SUB vastus ()
\r
24 PRINT " Matemaatika
\93petamis programm"
\r
28 IF POINT(x, y) > 0 THEN
\r
40 INPUT "Sisesta oma nimi ", nimi$
\r
43 PRINT "Sisesta oma nimi " + nimi$
\r
47 PRINT "Tere " + nimi$ + "."
\r
55 INPUT "Mitu
\81lesannet sa soovid ", kus
\r
61 PRINT "Mitu
\81lesannet sa soovid " + STR$(kus)
\r
64 PRINT "Nii kergelt ei p
\84\84se !"
\r
69 PRINT "Liiga palju !"
\r
73 PRINT "N
\81\81d ma k
\81sin sinult m
\93ned matemaatika"
\r
74 PRINT "alased k
\81simused.Vajuta suvaline klahv,"
\r
75 PRINT "kui oled valmis..."
\r
91 LINE (a * 10, 170)-(a * 10 + 10, 190), 200 + varv(a + 1), BF
\r
92 varv(a + 1) = varv(a + 1) - 1
\r
93 IF varv(a + 1) < 0 THEN varv(a + 1) = 0
\r
97 IF c > 30 OR c < 3 THEN d = -d
\r
100 IF INKEY$ <> "" THEN GOTO 3
\r
115 mitmes = mitmes + 1
\r
116 IF mitmes > kus THEN GOTO 6
\r
119 a$ = STR$(ar1) + " X" + STR$(ar2)
\r
124 IF LEFT$(vas$, 6) = "ei tea" THEN PRINT "Proovi ikka !": GOTO 5
\r
125 IF LEFT$(vas$, 6) = "jama" THEN PRINT "Usu mind,ei ole !": GOTO 5
\r
127 IF vas$ = "0" THEN vas = 0: GOTO 10
\r
129 IF vas = 0 THEN vas = -1
\r
132 IF ar1 * ar2 = vas THEN
\r
137 PRINT "
\93ige on ", ar1 * ar2
\r
144 PRINT "-------------------------"
\r
146 PRINT "valesid on :", vale
\r
148 z = oige / kus * 100
\r
152 IF z >= 25 THEN hinne = 2
\r
153 IF z >= 50 THEN hinne = 3
\r
154 IF z >= 70 THEN hinne = 4
\r
155 IF z >= 90 THEN hinne = 5
\r
157 PRINT "Sinu hinne on "; hinne
\r