turbobasic/1998/NASOBIT.BAS

   1 SCREEN 0
   2 COLOR 7,9
   3 N=0
   4 S=0
   5 V=0
   6
   7 OPET:
   8 N=N+1
   9 CLS
  10 LOCATE 4,23
  11 PRINT "PROGRAM PRO ZKOUSENI MALE NASOBILKY"
  12 A=INT(RND(5)*10+1)
  13 B=INT(RND(4)*10+1)
  14 LOCATE 10,5
  15 PRINT "NAPIS VYSLEDEK" A "x" B "="
  16 INPUT "    A STISKNI ENTER ";C
  17 D=A*B
  18 IF D=C THEN ANO
  19 PRINT "    SPATNY VYSLEDEK"
  20 S=S+1
  21 GOTO VOLBA
  22
  23 ANO:
  24 PRINT "    SPRAVNE"
  25 V=V+1
  26
  27 VOLBA:
  28 LOCATE 18,10
  29 PRINT "Z" N "POKUSU MAS" S "SPATNYCH A" V "DOBRYCH"
  30 LOCATE 20,10
  31 PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"
  32 LOCATE 21,10
  33 INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI 2 x ENTER";E
  34 IF E<>1 THEN OPET
  35
  36 END
  37
  38 \1a