[mirrors/Programs.git] / turbobasic / NASOBIT.BAS

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