GIT.Harvie.CZ / mirrors / Programs.git / blame
| Commit | Line | Data |
|---|---|---|
| 0f95cc4b H |
1 | SCREEN 0\r |
| 2 | COLOR 0,15\r | |
| 3 | SOUND 700,12\r | |
| 4 | N=0\r | |
| 5 | S=0\r | |
| 6 | V=0\r | |
| 7 | \r | |
| 8 | OPET:\r | |
| 9 | N=N+1\r | |
| 10 | CLS\r | |
| 11 | LOCATE 4,23\r | |
| 12 | PRINT "PROGRAM PRO ZKOUSENI MALE NASOBILKY"\r | |
| 13 | A=INT(RND(5)*10+1)\r | |
| 14 | B=INT(RND(4)*10+1)\r | |
| 15 | LOCATE 10,5\r | |
| 16 | PRINT "NAPIS VYSLEDEK" A "x" B "="\r | |
| 17 | INPUT " STISKNI ENTER";C\r | |
| 18 | D=A*B\r | |
| 19 | IF D=C THEN ANO\r | |
| 20 | PRINT " SPATNY VYSLEDEK"\r | |
| 21 | SOUND 100,10\r | |
| 22 | S=S+1\r | |
| 23 | GOTO VOLBA\r | |
| 24 | \r | |
| 25 | ANO:\r | |
| 26 | PRINT " SPRAVNE"\r | |
| 27 | SOUND 900,8\r | |
| 28 | V=V+1\r | |
| 29 | \r | |
| 30 | VOLBA:\r | |
| 31 | LOCATE 18,10\r | |
| 32 | PRINT "Z" N "POKUSU MAS" S "SPATNYCH A" V "DOBRYCH"\r | |
| 33 | LOCATE 20,10\r | |
| 34 | PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"\r | |
| 35 | LOCATE 21,10\r | |
| 36 | INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI ENTER";E\r | |
| 37 | IF E<>1 THEN OPET\r | |
| 38 | SOUND 900,12\r | |
| 39 | SOUND 100,7\r | |
| 40 | \r | |
| 41 | END\r | |
| 42 | \r | |
| 43 | \1a |