Mozaik
Készítsd el az íves1®, az íves2®, a sor(db,r) és a mozaik(db1,db,r) eljárásokat, ahol r az ív sugara, db a sorban levő elemek száma, db1 pedig a sorok száma!
íves1 (50)
íves2(50)
sor(4,20)
mozaik(3,4,20)
Hivatalos megoldás (HTML)
Készítsd el az íves1®, az íves2®, a sor(db,r) és a mozaik(db1,db,r) eljárásokat, ahol r az ív sugara, db a sorban levő elemek száma, db1 pedig a sorok száma!
|
|
|
íves1 (50) | íves2(50) | sor(4,20) |
| ||
mozaik(3,4,20) | ||
A negyedkör eljárás azonos az előző korcsoportéval.
eljárás S89mozaik :db :db2 :r :melyik
ism :db [sor :db2 :r :melyik poz tollatfel előre 4*:r
ha :melyik = 1 [jobbra 90 hátra :r balra 90]
tollatle]
tollatfel hátra :r*4*:db tollatle
vége
eljárás sor :db :r :melyik :hely
ismétlés :db [hakülönben maradék :melyik+ hányadik 2 = 1
[íves1 :r tollatfel jobbra 90 e :r*3
balra 90 tollatle]
[íves2 :r tollatfel jobbra 90 e :r*4
balra 90 tollatle]
]
tollatfel poz! :hely tollatle
vége
eljárás íves1 :r
tollszín! "fekete tollatfel hátra 2*:r tollatle
ismétlés 2 [negyedkor :r -1 negyedkor :r 1
negyedkor :r 1 negyedkor :r -1 jobbra 180]
töltőszín! "piros tollatfel előre :r tölt hátra :r
előre 2*:r tollatle
vége
eljárás íves2 :r
tollszín! "fekete tollatfel jobbra 90 előre :r balra 90
tollatle jobbra 90 íves1 :r balra 90
vége
A. Az íves záródó negyedkörökből áll; piros kitöltés; paraméteres 5+2+2 pont
B. A sor egymás mellett; jól illesztve; piros kitöltés 2+3+1 pont
C. A mozaik egymás feletti sorok; jól illesztve; színes 2+3+1 pont
D. A mozaik 3 3 20 helyes 2 pont
E. A mozaik 5 4 20 helyes 2 pont