misc/matem.bas

   1 ' Autor: Svjatoslav Agejenko\r
   2 ' aasta ~2000\r
   3 \r
   4 '                Matemaatika korrutus tabeli pohjal\r
   5 '                    teadmiste testimis programm\r
   6 '\r
   7 '               Vajuta F5 alustamiseks\r
   8 \r
   9 DECLARE SUB vastus ()\r
  10 DEFINT A-Y\r
  11 DECLARE SUB tere ()\r
  12 DIM SHARED nimi$\r
  13 DIM SHARED kus\r
  14 \r
  15 tere\r
  16 vastus\r
  17 \r
  18 DEFINT Z\r
  19 SUB tere\r
  20 \r
  21 CLS\r
  22 SCREEN 13\r
  23 LOCATE 2, 1\r
  24 PRINT "     Matemaatika \93petamis programm"\r
  25 FOR y = 3 TO 20\r
  26 FOR x = 0 TO 320\r
  27 \r
  28 IF POINT(x, y) > 0 THEN\r
  29 c = y + 56\r
  30 ELSE\r
  31 \r
  32 c = 31 - y / 2\r
  33 END IF\r
  34 PSET (x, y), c\r
  35 NEXT x\r
  36 NEXT y\r
  37 \r
  38 LOCATE 5, 1\r
  39 COLOR 7\r
  40 INPUT "Sisesta oma nimi ", nimi$\r
  41 LOCATE 5, 1\r
  42 COLOR 8\r
  43 PRINT "Sisesta oma nimi " + nimi$\r
  44 \r
  45 LOCATE 6, 1\r
  46 COLOR 7\r
  47 PRINT "Tere " + nimi$ + "."\r
  48 \r
  49 8\r
  50 LOCATE 7, 1\r
  51 COLOR 8\r
  52 PRINT SPACE$(35)\r
  53 COLOR 7\r
  54 LOCATE 7, 1\r
  55 INPUT "Mitu \81lesannet sa soovid ", kus\r
  56 LOCATE 7, 1\r
  57 COLOR 8\r
  58 PRINT SPACE$(35)\r
  59 LOCATE 7, 1\r
  60 COLOR 8\r
  61 PRINT "Mitu \81lesannet sa soovid " + STR$(kus)\r
  62 \r
  63 IF kus < 5 THEN\r
  64 PRINT "Nii kergelt ei p\84\84se !"\r
  65 GOTO 8\r
  66 END IF\r
  67 \r
  68 IF kus > 30 THEN\r
  69 PRINT "Liiga palju !"\r
  70 GOTO 8\r
  71 END IF\r
  72 \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
  76 \r
  77 FOR a = 200 TO 230\r
  78     OUT &H3C8, a\r
  79     OUT &H3C9, a - 200\r
  80     OUT &H3C9, 0\r
  81     OUT &H3C9, 0\r
  82 NEXT\r
  83 \r
  84 DIM varv(1 TO 32)\r
  85 \r
  86 c = 4\r
  87 d = 1\r
  88 \r
  89 2\r
  90 FOR a = 0 TO 31\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
  94 NEXT a\r
  95 \r
  96 c = c + d\r
  97 IF c > 30 OR c < 3 THEN d = -d\r
  98 varv(c) = 30\r
  99 SOUND 0, 1\r
 100 IF INKEY$ <> "" THEN GOTO 3\r
 101 GOTO 2\r
 102 3\r
 103 CLS\r
 104 END SUB\r
 105 \r
 106 DEFSNG Z\r
 107 SUB vastus\r
 108 RANDOMIZE TIMER\r
 109 \r
 110 mitmes = 0\r
 111 vale = 0\r
 112 oige = 0\r
 113 PRINT "Palju on:"\r
 114 4\r
 115 mitmes = mitmes + 1\r
 116 IF mitmes > kus THEN GOTO 6\r
 117 ar1 = RND * 9\r
 118 ar2 = RND * 9\r
 119 a$ = STR$(ar1) + " X" + STR$(ar2)\r
 120 PRINT "    "\r
 121 PRINT a$\r
 122 5\r
 123 INPUT vas$\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
 126 \r
 127 IF vas$ = "0" THEN vas = 0: GOTO 10\r
 128 vas = VAL(vas$)\r
 129 IF vas = 0 THEN vas = -1\r
 130 10\r
 131 \r
 132 IF ar1 * ar2 = vas THEN\r
 133 oige = oige + 1\r
 134 PRINT "\93ige !!"\r
 135 ELSE\r
 136 PRINT "vale"\r
 137 PRINT "\93ige on ", ar1 * ar2\r
 138 vale = vale + 1\r
 139 END IF\r
 140 \r
 141 GOTO 4\r
 142 \r
 143 6\r
 144 PRINT "-------------------------"\r
 145 COLOR 2\r
 146 PRINT "valesid on :", vale\r
 147 \r
 148 z = oige / kus * 100\r
 149 \r
 150 hinne = 1\r
 151 \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
 156 COLOR 14\r
 157 PRINT "Sinu hinne on "; hinne\r
 158 END SUB\r
 159 \r