Úlohy 18.2.2011

Chybné body

Napíšte program, ktorý
  1. celú obrazovku zafarbí na červeno a 6 náhodných bodov prekreslí na čierno
  2. nájde týchto 6 chybných bodov a zakrúžkuje ich zelenou farbou - tie body musí hľadať samotný program, teda prejde for cyklami cez všetky body a zistí, či na daných súradniciach je čierny alebo červený bod
Pomôcka: Ak chcete vykresľovať krúžky bez výplne, môžete nastaviť typ výplne na prázdnu, t.j. Image1.Canvas.Brush.Style := bsClear;.

Gardield s vyrážkami

Chudák Garfield. Po celom tele sa mu vyhodili vyrážky. Môžete si vybrať, či budete mrcha a vyrážky chcete odstrániť, alebo ich ešte zväčšiť. Všetky tieto vyrážky sú červené a zaberajú iba jeden bod obrazovky.
  1. Pre mrchy a mrcháňov: Každú jednu vyrážku prekreslite na väčšiu, tj spravite okolo nej vyplnený červený kruh.
  2. Pre pomocníčky a pomocníkov: Natrite Garfieldovi na inkriminované miesta protivyrážkový krém. Ten je zelený. Teda okolo každej červenej vyrážky nakreslite vyplnený zelený kruh.

Vyliečený Garfield

Vďaka krému, ktorý použili pomocníci, sa Garfield úspešne vylieči. Výsledok by mal vyzerať takto:
  1. Pre mrchy a mrcháňov: Vykreslite oba obrázky vedľa seba. Kedže Garfielda nechcete vyliečit, zahrajte si hru: nájdi 4 rozdiely. Avšak tieto rozdiely za vás nájde počítač. Napíšte program, ktorý nájde všetky 4 rozdielne body, na druhom obrázku ich napraví a vypíše do labelu, aké súradnice mali chybné body.
  2. Pre pomocníčky a pomocníkov: Vykreslite oba obrázky vedľa seba. Napíšte program, ktorý nájde všetky 4 vyrážky, vylieči ich (vykreslí správnou farbou) a do labelu vypíše súradnice týchto vyrážok.
Pomôcka: Hlavička funkcie rovnakyBod môže vyzerať nasledne:
function rovnakyBod(x, y: integer): boolean;
Neskôr sa môžete spýtať, či je bod na oboch obrázkoch rovnaký takto:
if rovnakyBod(23,45) then ___;
if not rovnakyBod(17,25) then ___;