Skúška z programovania

Skúška z programovania pre 1i, 1MI a 1FI

11.1.2000 do

Faraón zadal Abdulovi vyčistiť všetky kvádre jeho novej pyramídy. Začať má na ľubovoľnom kvádri v spodnom rade a postupne má vyčistiť všetky kvádre. Pyramída má v spodnom rade N kvádrov, v rade nad nimi je N-1 kvádrov, atď. až v najvyššom N-tom rade je už len jeden. Aby to pre Abdula nebola taká jednotvárna robota, faraón mu vymyslel ešte dve pravidlá:

pri prechádzaní z jedného kvádru na susedný, nikdy nesmie ísť na kváder v tom istom rade, ale na susedný vo vyššom, alebo nižšom (ak existuje), a pritom už nesmie z pyramídy odísť;
ak na nejaký kváder stúpi druhýkrát, tak sa tento od jeho nôh zašpiní a treba sem príjsť niekedy znovu (tretíkrát) a znovu ho vyčistiť (druhé stúpenie na ten istý kváder ho zaznačí za ešte nečistené).

Napíšte program, pomocou ktorého sa pokúsite prejsť všetky políčka pyramídy (každé nepárny počet-krát). Kvádre pyramídy zobrazujte pomocou bitmáp kamen1.bmp (špinavý) a kamen2.bmp (čistý) a hráča bitmapou hrac.bmp (bielu farbu urobte priesvitnou).

Hráč sa bude ovládať klikaním ľavým tlačidlom myši na kvádre. Pri štarte programu hráč ešte nie je zobrazený, ale čaká sa na prvé kliknutie do spodného radu.

Na začiatku hry môžu byť niektoré kvádre pyramídy už čisté. Počiatočnú informáciu načítate z textového súboru vstup.txt:

prvý riadok obsahuje číslo N - toto nie je väčšie ako 12;
v ďalších riadkoch môžu nasledovať súradnice čistých kvádrov v pyramíde (oddelené sú medzerami a novými riadkami) - súradnice sú zadané ako dvojice čísel - riadok a stĺpec - tieto dve čísla sú navzájom zreťazené a majú medzi sebou znak '.';
môžete predpokladať, že súbor je zadaný korektne

Napíšte program, ktorý bude pomocou korytnačiek simulovať pohyb červíka na obrazovke. Červík sa skladá z niekoľkých dielikov (každý dielik je jedna korytnačka s trojuholníkovým tvarom, pričom prvá - hlava je zelená a ostatné sú svetlošedé) a pohybuje sa podľa týchto pravidiel:

hlava sa väčšinou pohybuje náhodne, t.j. najprv sa otočí o náhodný uhol z intervalu <-u,u> a prejde vzdialenosť d;
ak sa červík vyšiel z obrazovky, jeho hlava sa natočí k bodu (0,0) a nie o náhodný uhol;
ak klikneme myšou niekde do plochy, červík sa otočí smerom k myši a pokračuje vo svojom pohybe;
ostatné dieliky červíka sa pohybujú tak, že v každom kroku sa každý dielik natočí ku svojmu predchodcovi a ak je od neho vzdialený aspoň dĺžku dd, tak prejde takú dĺžku, aby bol vzdialený presne dd, inak stojí na mieste;

Červík má na začiatku dĺžku 6 dielikov.

Okrem červíka sa v ploche nachádza N kúskov potravy (na začiatku hry sú náhodne rozhádzané po ploche) - aj tieto sú zobrazené korytnačkami (s tvarom červený krížik). Ak hlava červíka prejde blízko nejakej potravy (použite metódu blízko), tak tento kúsok potravy zmizne (zruší sa príslušná korytnačka) a červík sa na konci predĺži o jeden dielik (pribudne jedna korytnačka na pozícii posledného dielika).

Červíka aj zoznam kúskov potravy reprezentujte dvoma triedami, napr.

cervik = class
v:VelaKor;
constructor Create(n:integer);
destructor Destroy; override;
procedure krok; // červík urobí jeden krok
procedure pridaj; // pridá dielik na koniec červíka
end; potrava = class
v:VelaKor;
constructor Create(n:integer);
destructor Destroy; override;
end;

Na pohyb červíka netreba časovač - v procedúre WMstart urobte nekonečný cyklus, v ktorom sa hýbe červík a kontroluje potrava.
V programe zadefinujte konštanty pre dĺžky a uhol, napr. takto

const d=3; u=20; dd=10; N=30;

© AB	Skúška Z03/2000