V Hradci Kralove je nekolik vysokych skol. Jednu z nich jsme oba
navstevovali, a tak se nam stala inspiraci pro nasi prvni cache.
Protoze jsme oba zasazeni vypocetni technikou, pripravili jsme si
pro vas drobny test, pri kterem si muzete osvezit znalosti
jednotlivych programovacich jazyku nebo si alespon rozsirit obzory.
Pro uspesne rozlusteni neni nutne absolvovat tuto skolu, ale
znalosti, ktere se na zde vyucuji se vam mohou hodit.
Cestou k mistu ulozeni cache je pekny vyhled na stare i nove
kralovehradecke dominanty.
K ziskani souradnic urcete z jakeho programovaciho jazyka jsou
nasledujici ukazky - vsechny nazvy programu jsou jednoslovne.
Pozn.: Kod je pouze ukazkovy, nejedna o autenticke utrzky z
fungujicich programu, ale o vzorove uryvky, ktere maji za ucel
pouze navest ke spravne odpovedi. Pri hledani nazvu programu
vychazime z originalniho pojmenovani, ne z ceskeho
prekladu.
A=
prikaz kolecko
zacatek
KROK
KROK-VPRAVO
KROK
KROK-VPRAVO
KROK
KROK-VPRAVO
KROK
konec
B=
10 INPUT "Zadejte pocet nalezenych cache: "; U$
20 PRINT "Parada, to je dobry cislo, tech "; U$
25 REM
30 INPUT "Kolik zavinacu si date? "; N
35 S$ = ""
40 FOR I = 1 TO N
50 S$ = S$ + ""@"Date si jeste zavinace? "; A$
80 IF LEN(A$) = 0 THEN GOTO 70
90 A$ = LEFT$(A$, 1)
100 IF (A$ = "A") OR (A$ = "a") THEN GOTO 30
110 PRINT "Prijdte zas!:) ";
C=
program trideni;
uses crt;
const n = 20;
var policko:array[1..n]of integer;
k,j,pom: integer;
begin
for k:=1 to n do
policko[k]=random(100);
for k:=n
downto 2 do
for
j:=1 to k-1 do
if
policko[j] > policko[j+1] then
begin
pom:=policko[j];
policko[j]:=policko[j+1];
policko[j+1]:=pom;
end;
end.
D=
pushl %ebp
movl %esp, %ebp
movl 12(%ebp), %eax
movl 8(%ebp), %ecx
movl $4, %ebx
dec %eax
mul %ebx
addl %eax, %ecx
pushl %ecx
E=
(defrule cteme_pocet
?x <- (vyber 1)
=>
(retract ?x)
(printout t "Zadejte pocet: " crlf)
(assert (pocet (read))))
(defrule hledame_lepsiho
(pocet ?p1)
(kacer (nick ?nick)(pocet_cache ?p2)(rajon
?r))
(test (>= ?p2 ?p1))
=>
(printout t "Vic nez "?p1" objevu ma "?nick"
["?p2"]." crlf))
F=
geokacer:-write('Dej mi souradnice!'),read(S),S=souradnice,!.
geokacer:-repeat,write('Radsi bych souradnice!'),
read(S),S=souradnice,!, write('Parada, jdu lovit').
Prevedte pismena jednotlivych odpovedi (nazvu programovacich
jazyku) na cislice (klic: T=0, Q=7, W=3,... - pouzijte anglickou
abecedu) a sectete je. Tim ziskate cisla A az F, ktera dosadte do
nasledujicich vzorecku. Vysledkem jsou souradnice cilove
cache:
X= 1*A + 2*B + 3*C - 1/2*(B+C)
Y= 5*D + 6*E + 7*F + A + B + C + D + E + F - 1/2*(C + D)
FINALNI SOURADNICE
N 50 12.X
E 15 49.Y
Nez vyrazite, tak si muzete overit souradnice..