Reorganized files. Modernized documentation.

[qbasicapps.git] / misc / matem.bas

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