1. Nakresli tabuľku...
Budeme riešiť ťažší variant, keby
sme chceli vidieť riešenie ľahšieho, stačilo by namiesto hodnôt vstupov
dať nejaké konkrétne hodnoty.
Pomocou základného príkazu zmen.pismo
nastavme korytnačke požadovné písmo.
Najprv si vyskúšame, aký vysoký musí
byť horný riadok tabuľky, aby sa nám doň zmestil dátum. Vypíšeme to Plochy
niektorý z "dlhých" dátumov (31. 12.) a zistime ako je široký (deti, ktoré
poznajú základnú operáciu velkost.textu
môžu šírku zistiť pomocou nej). Vidíme, že pri 50 krokoch môžeme vynechať
kúsok pred textom a zostane miesto aj za ním.
Vyskúšajme ešte písanie "kúsok nad
čiaru", aby dátum nebol celkom na čiare. Keď prejdeme 3 kroky, bude to
celkom stačiť.
Nech je hlavička príkazu
viem tabulka :v.riad :s.stl :p.riad :p.stl :mesiac,
kde
viem tabulka :v.riad :s.stl :p.riad :p.stl :mesiac
urob "s.datumu 50 ; urob "s.datumu
prvy velkost.textu [31. 12.]
do :v.riad * :p.riad + :s.datumu
vz :v.riad * :p.riad + :s.datumu
opakuj :p.stl [vp 90 do :s.stl vl 90 stlpec :v.riad :s.stl
:p.riad poc :mesiac]
koniec
Stĺpec sa nakreslí tak, že :p.riad-krát
nakreslíme časť riadku:
Po nakreslení všetkých riadkov sa vykreslí časť pre dátum a korytnačka sa vráti na koniec kreslenia všetkých riadkov. Potom sa do pripravenej časti pre dátum vypíše dátum pomocou príkazu vypis.datum (zapíšeme ho o chvíľu) Nakoniec korytnačku presuňme na začiatok práve nakresleného stĺpca. |
Príkaz vypis.datum,
najprv presunie korytnačku kúsok nad čiaru (predpokladáme, že korytnačka
má nastavené písmo, ktoré píše Na základnej linke
– voľba
v Pomôcke zmen.pismo).
Potom pomocou príkazu vypis.cislo
(tento príkaz by už deti mohli mať odladený z minulého ročníka) vypíše
požadované číslo. Nakoniec presunieme korytnačku naspäť na čiaru.
|