Ktoś napisze mi procedure trójkąta i prostokąta w Logomocja Imagine? Będę mieć sprawdzian. Wiem, że robiliśmy; oto np.trójkąt :a .... No to na tyle Może ktoś miał?
killer364
Logomocja imagine czyli oto kwadrat powtórz 4 [ np 100 pw 90] oto kwadraciki :ile cs ugp 3 jeśli i :ile>=3 :ile<11 [ powtórz :ile [ukp jld kwadrat pw 360/:ile]]
oto kwadrat
powtórz 4 [ np 100 pw 90]
oto kwadraciki :ile
cs
ugp 3
jeśli i :ile>=3 :ile<11
[ powtórz :ile
[ukp jld
kwadrat
pw 360/:ile]]
powtórz 3[np :x pw 120]
oto trójkąciki :x
ugp 5
powtórz 15[ukp jld trójkąt :x pw 30 pod np :x/2 opu
przypisz "x :x-0.10*:x]
oto prostokąt :ile
cs
ugp 3
jeśli i :ile>=3 :ile<11
[ powtórz :ile
[ukp jld
prostokąt
pw 360/:ile]]