PALMA junior, Programovanie, ALgoritmy, MAtematika, súťaž pre mladých programátorov v Imagine

	PALMA junior

Úloha o tom, ako korytnačky vyrábali tachometre

Autorské riešenie
[stiahni]

Pri kreslení tachometra si najskôr nakreslíme jeho obvod. Potom začneme vykresľovať čiarky pre jednotlivé rýchlosti. Obvod nakreslíme veľmi jednoducho, napríklad takto:

viem tachometer :max
  nechFP "cierna
  nechHP 10
  obrysKruhu 200
koniec

Pred kreslením čiarok sa trochu zamyslime. Keďže štvrtina tachometra je voľná a kresliť začneme vľavo dole, korytnačku otočíme týmto smerom. Keďže je na začiatku natočená smerom hore, otočíme ju vľavo o uhol 135. (360-90=270, 270/2=135).

Počet čiarok na tachometri si vypočítame z maximálnej rýchlosti auta. Za každú päťku dve čiarky + jedna čiarka pre nulu. Počet čiarok teda je: 1+:max/5

Uhol medzi dvoma čiarkami je 270 / (počet čiarok - 1).

viem tachometer :max
  nechFP "cierna
  nechHP 10
  obrysKruhu 200

  vlavo 135
  urobTu "pocetCiarok 1+:max/5
  urobTu "uhol 270 / (:pocetCiarok-1)
koniec

V cykle, ktorý sa bude opakovať toľkokrát, koľko je počet čiarok budeme čiarky vykresľovať. Čiarku, ktorá znázorňuje rýchlosť, ktorá je násobkom 10 vykreslíme tučnejšiu, ostatné budú tenšie. Čiarku pre maximálnu rýchlosť v meste vykreslíme inou farbou.

viem tachometer :max
  nechFP "cierna
  nechHP 10
  obrysKruhu 200

  vlavo 135
  urobTu "pocetCiarok 1+:max/5
  urobTu "uhol 270 / (:pocetCiarok-1)

opakuj :pocetCiarok [
    nechFP "modra
    ph
    do 80
    pd
    ak2 (zvysok pocitadlo 2) = 1 [
      nechHP 6
    ][
      nechHP 2
    ]
    ak pocitadlo = 1+cpodiel :pocetCiarok 2 [nechFP "cervena]
    do 10
    ph
    vz 90
    vp :uhol
]
koniec

Výsledný tachometer môže vyzerať napríklad takto:

tachometer 80

Najčastejšie chyby, komentár k vašim riešeniam

...

PALMA junior

Úloha o tom, ako korytnačky vyrábali tachometre