[mirrors/Programs.git] / turbobasic / 1998 / NASOBENI.BAS

SCREEN 0\r
COLOR 0,15\r
SOUND 700,12\r
N=0\r
S=0\r
V=0\r
\r
OPET:\r
N=N+1\r
CLS\r
LOCATE 4,23\r
PRINT "PROGRAM PRO ZKOUSENI MALE NASOBILKY"\r
A=INT(RND(5)*10+1)\r
B=INT(RND(4)*10+1)\r
LOCATE 10,5\r
PRINT "NAPIS VYSLEDEK" A "x" B "="\r
INPUT "    STISKNI ENTER";C\r
D=A*B\r
IF D=C THEN ANO\r
PRINT "    SPATNY VYSLEDEK"\r
SOUND 100,10\r
S=S+1\r
GOTO VOLBA\r
\r
ANO:\r
PRINT "    SPRAVNE"\r
SOUND 900,8\r
V=V+1\r
\r
VOLBA:\r
LOCATE 18,10\r
PRINT "Z" N "POKUSU MAS" S "SPATNYCH A" V "DOBRYCH"\r
LOCATE 20,10\r
PRINT "POKUD CHCES POKRACOVAT ZMACKNI ENTER"\r
LOCATE 21,10\r
INPUT "POKUD CHCES SKONCIT NAPIS 1 A ZMACKNI ENTER";E\r
IF E<>1 THEN OPET\r
SOUND 900,12\r
SOUND 100,7\r
\r
END\r
\r
\1a
Commit	Line	Data
	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