turbobasic/SCITANI.BAS

   1 SCREEN 0
   2 CLS
   3 COLOR 4,15
   4 S=0
   5 Z=0
   6
   7 LOCATE 4,23
   8 PRINT "PROGRAM PRO ZKOUSENI SCITANI"
   9 PRINT "                     "
  10
  11 V=TIMER
  12 V=INT(((V-INT(V)+.2)*100))
  13
  14 FOR I=1 TO 15
  15
  16 A(I)=INT(RND*V+1)
  17 A(I)=A(I)+1
  18 B(I)=INT(RND*V+1)
  19 B(I)=B(I)+1
  20
  21 VYP:
  22 IF A(I)>=B(I) THEN C(I)=A(I)-B(I):D(I)=B(I):GOTO VYSL
  23 REM pokud je B vØtç¡ ne§ A zmenç¡ se
  24 B(I)=INT(B(I)*.9)
  25 B(I)=B(I)+1
  26 GOTO VYP
  27
  28 VYSL:
  29 REM aby druhì s\9f¡tanec nebyl 0
  30 IF C(I)=O THEN A(I)=A(I)+2:GOTO VYP
  31
  32 REM VYSLEDEK JE V A(x)
  33 LOCATE I+5,1
  34 PRINT "                                   "
  35 LOCATE I+5,4
  36 PRINT "NAPIS VYSLEDEK" D(I) "+" C(I) "=":INPUT C
  37
  38 IF A(I)=C THEN ANO
  39
  40 LOCATE I+5,30
  41 PRINT C
  42 LOCATE I+5,34
  43 PRINT "    SPATNY VYSLEDEK"
  44 SOUND 1200,2
  45 S=S+1
  46 GOTO VOLBA
  47
  48 ANO:
  49 LOCATE I+5,30
  50 PRINT C
  51 LOCATE I+5,34
  52 PRINT "    SPRAVNE"
  53 rem SOUND 600,2
  54 Z=Z+1
  55
  56 VOLBA:
  57 NEXT I
  58
  59 I=I-1
  60 PRINT "Z" I "POKUSU MAS" S "SPATNYCH A" Z "DOBRYCH"
  61
  62 IF S=>4 THEN T=5
  63 IF S=3 THEN T=4
  64 IF S=2 THEN T=3
  65 IF S=1 THEN T=2
  66 IF S=0 THEN T=1
  67 print "              "
  68 PRINT "VYSLEDNA ZNAMKA" T
  69
  70 REM PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"
  71 REM LOCATE 21,10
  72 REM INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI 2 x ENTER";E
  73 REM IF E<>1 THEN OPET
  74
  75 END
  76
  77 \1a