|
Logo do wzięcia:
|
Zadanie 1. Rysunek obok pokazuje schemat
to kwa :a :n
repeat :n [fd :a left 360 / :n]
end
to kwakwa1 :x :k to kwakwa2 :y :m
if :k = 0 [ kwa :x 4 ] if :m = 0 [ kwa :y 4 ]
if :k > 0 [ kwa :x 3 if :m > 0 [ fd :y
fd :x kwakwa2 :y (:m - 1 )
kwakwa1 :x (:k - 1 ) fd -:y
fd -:x kwa :y 3
] ]
end end
Co wyczyniają?
TO wiel :a :k :n
IF :n > 0 [ FORWARD :a/2
kol :a/2/(TAN (180/:k)) :k :n-1
FORWARD :a/2
LEFT 360/:k
REPEAT :k-1 [FORWARD :a
LEFT 360/:k
]
]
END
TO kol :r :k :n
IF :n > 0 [ REPEAT 360 [LEFT 360/360
FORWARD 2*:r*(SIN (180/360))
]
LEFT 360/:k/2
wiel 2*:r*(SIN (180/:k)) :k :n
LEFT -360/:k/2
]
END
TO cosik1 :a :k :n IF :n > 0 [ REPEAT :k [FORWARD :a cosik1 :a/2 :k :n-1 FORWARD -:a LEFT 360/:k] ] END |
TO cosik2 :a :k :n IF :n > 0 [ REPEAT :k [LEFT 360/:k FORWARD :a cosik2 :a/2 :k :n-1 FORWARD -:a ] ] END |
TO cosik3 :a :k :n IF :n > 0 [ REPEAT :k [cosik3 :a/2 :k :n-1 FORWARD :a FORWARD -:a LEFT 360/:k] ] END |
TO cosik4 :a :k :n IF :n > 0 [ REPEAT :k [FORWARD :a cosik4 :a/3 :k :n-1 FORWARD -:a LEFT 360/:k] ] END |
TO cosik5 :a :k :n IF :n > 0 [ REPEAT :k [FORWARD :a LEFT 360/:k cosik5 :a/2 :k :n-1 FORWARD -:a] ] END |
TO cosik6 :a :k :n IF :n > 0 [ REPEAT :k [FORWARD :a LEFT 360/:k cosik6 :a/3 :k :n-1 FORWARD -:a] ] END |
TO cosik7 :a :k :n IF :n > 0 [ REPEAT :k [FORWARD :a LEFT 360/:k FORWARD -:a cosik7 :a/2 :k :n-1 ] ] END |
|
TO pudlo1 :a :n REPEAT :n [FORWARD :a LEFT 90 FORWARD :a RIGHT 90 ] LEFT 180 REPEAT :n [FORWARD :a RIGHT 90 FORWARD :a LEFT 90 ] END |
TO pudlo2 :a :n IF :n>0 [FORWARD :a LEFT 90 FORWARD :a RIGHT 90 pudlo2 :a :n-1 LEFT 90 FORWARD :a LEFT 90 FORWARD :a LEFT 180 ] END |
TO pudlo3 :a :n IF :n>0 [REPEAT 2 [FORWARD :a LEFT 90 FORWARD :a*:n*2 LEFT 90] FORWARD :a LEFT 90 FORWARD :a RIGHT 90 pudlo3 :a :n-1 ] END |
TO pudlo4 :a :n IF :n>0 [REPEAT 2 [FORWARD :a LEFT 90 FORWARD :a*:n*2 LEFT 90] FORWARD :a LEFT 90 FORWARD :a RIGHT 90 pudlo4 :a :n-1 RIGHT -90 FORWARD -:a LEFT -90 FORWARD -:a ] END |
TO pudlo5 :a :n IF :n=1 [LEFT 90] IF :n>1 [FORWARD :a LEFT 90 FORWARD :a RIGHT 90 pudlo5 :a :n-1 FORWARD :a LEFT 90 FORWARD :a RIGHT 90 ] END |