X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=misc%2Fmatem.bas;fp=misc%2Fmatem.bas;h=e41efab1f1b2ac4073e7ff47117997f23030eccc;hp=0000000000000000000000000000000000000000;hb=56bc2db75aaf0e1bd556677914988b3a02775ecd;hpb=7cc7a0518d1489b33de83466008cccba1725ce52

diff --git a/misc/matem.bas b/misc/matem.bas
new file mode 100644
index 0000000..e41efab
--- /dev/null
+++ b/misc/matem.bas
@@ -0,0 +1,159 @@
+' Autor: Svjatoslav Agejenko
+' aasta ~2000
+
+'                Matemaatika korrutus tabeli pohjal
+'                    teadmiste testimis programm
+'
+'               Vajuta F5 alustamiseks
+
+DECLARE SUB vastus ()
+DEFINT A-Y
+DECLARE SUB tere ()
+DIM SHARED nimi$
+DIM SHARED kus
+
+tere
+vastus
+
+DEFINT Z
+SUB tere
+
+CLS
+SCREEN 13
+LOCATE 2, 1
+PRINT "     Matemaatika “petamis programm"
+FOR y = 3 TO 20
+FOR x = 0 TO 320
+
+IF POINT(x, y) > 0 THEN
+c = y + 56
+ELSE
+
+c = 31 - y / 2
+END IF
+PSET (x, y), c
+NEXT x
+NEXT y
+
+LOCATE 5, 1
+COLOR 7
+INPUT "Sisesta oma nimi ", nimi$
+LOCATE 5, 1
+COLOR 8
+PRINT "Sisesta oma nimi " + nimi$
+
+LOCATE 6, 1
+COLOR 7
+PRINT "Tere " + nimi$ + "."
+
+8
+LOCATE 7, 1
+COLOR 8
+PRINT SPACE$(35)
+COLOR 7
+LOCATE 7, 1
+INPUT "Mitu lesannet sa soovid ", kus
+LOCATE 7, 1
+COLOR 8
+PRINT SPACE$(35)
+LOCATE 7, 1
+COLOR 8
+PRINT "Mitu lesannet sa soovid " + STR$(kus)
+
+IF kus < 5 THEN
+PRINT "Nii kergelt ei p„„se !"
+GOTO 8
+END IF
+
+IF kus > 30 THEN
+PRINT "Liiga palju !"
+GOTO 8
+END IF
+
+PRINT "Nd ma ksin sinult m“ned matemaatika"
+PRINT "alased ksimused.Vajuta suvaline klahv,"
+PRINT "kui oled valmis..."
+
+FOR a = 200 TO 230
+    OUT &H3C8, a
+    OUT &H3C9, a - 200
+    OUT &H3C9, 0
+    OUT &H3C9, 0
+NEXT
+
+DIM varv(1 TO 32)
+
+c = 4
+d = 1
+
+2
+FOR a = 0 TO 31
+LINE (a * 10, 170)-(a * 10 + 10, 190), 200 + varv(a + 1), BF
+varv(a + 1) = varv(a + 1) - 1
+IF varv(a + 1) < 0 THEN varv(a + 1) = 0
+NEXT a
+
+c = c + d
+IF c > 30 OR c < 3 THEN d = -d
+varv(c) = 30
+SOUND 0, 1
+IF INKEY$ <> "" THEN GOTO 3
+GOTO 2
+3
+CLS
+END SUB
+
+DEFSNG Z
+SUB vastus
+RANDOMIZE TIMER
+
+mitmes = 0
+vale = 0
+oige = 0
+PRINT "Palju on:"
+4
+mitmes = mitmes + 1
+IF mitmes > kus THEN GOTO 6
+ar1 = RND * 9
+ar2 = RND * 9
+a$ = STR$(ar1) + " X" + STR$(ar2)
+PRINT "    "
+PRINT a$
+5
+INPUT vas$
+IF LEFT$(vas$, 6) = "ei tea" THEN PRINT "Proovi ikka !": GOTO 5
+IF LEFT$(vas$, 6) = "jama" THEN PRINT "Usu mind,ei ole !": GOTO 5
+
+IF vas$ = "0" THEN vas = 0: GOTO 10
+vas = VAL(vas$)
+IF vas = 0 THEN vas = -1
+10
+
+IF ar1 * ar2 = vas THEN
+oige = oige + 1
+PRINT "“ige !!"
+ELSE
+PRINT "vale"
+PRINT "“ige on ", ar1 * ar2
+vale = vale + 1
+END IF
+
+GOTO 4
+
+6
+PRINT "-------------------------"
+COLOR 2
+PRINT "valesid on :", vale
+
+z = oige / kus * 100
+
+hinne = 1
+
+IF z >= 25 THEN hinne = 2
+IF z >= 50 THEN hinne = 3
+IF z >= 70 THEN hinne = 4
+IF z >= 90 THEN hinne = 5
+COLOR 14
+PRINT "Sinu hinne on "; hinne
+END SUB
+