LOGIK
Hra je také známa pod svým anglickým názvem "Mastermind". Tato verze pracuje s čísly 1-8, které se v tajné kombinaci neopakují.Také k této hře budete potřebovat tabulku:
 |  | |||||||
|---|---|---|---|---|---|---|---|---|
| 10 | ||||||||
| 9 | ||||||||
| 8 | ||||||||
| 7 | ||||||||
| 6 | ||||||||
| 5 | ||||||||
| 4 | ||||||||
| 3 | ||||||||
| 2 | ||||||||
| 1 |
- cílem je uhodnout kombinaci 5 kolíků 8 různých barev (barvy jsou reprezentovány čísly 1-8)
- tip zadáte jako pětimístné číslo (např. "75435" je tip 7,5,4,3,5)
- program pak odpoví dvoumístným číslem (např. odpověď "12" znamená 1 kolík na správné pozici a 2 kolíky na špatné pozici)
Zdrojový kód (420 B)
T=
X=
A=
B=
LABEL 1
R=INT 8RANDOM+1
IF .1<=FPART (.1B/10^R GOTO 1
B=B+10^R
T=T+R10^X
X=X+1
IF X≠5 GOTO 1
N=RANDOM
LABEL 5
N=>RAND
T=T/RANDOM
B=B/RANDOM
LABEL 2
CLRT
PRINT"TIP
INPUT P
IF INT log P≠4 GOTO 2
N=>RAND
T=TRANDOM
B=BRANDOM
X=
I=
J=
A=A+1
LABEL 3
R=10FPART (.1INT (P10^-X
Q=10FPART (.1INT (T10^-X
I=I+INT (1-.1ABS (R-Q
J=J+INT (10FPART (.1B/10^R
X=X+1
IF X≠5 GOTO 3
CLRT
IF I=5 GOTO 4
PRINT"SPRAVNE,JINDE
O=9I+J
PRINT O
WAIT
IF A<10 GOTO 5
CLRT
PRINT"KONEC!
PRINT T
END
LABEL 4
PRINT"VYBORNE!
PRINT A