Kto potrafi zrobić to w Logomocji
(zadania w załaczniku)
Oto moja propozycja rozwiązania:
Zadanie 3.
Procedura właściwa: ZADANIE3.
oto k :augp 1 ukp 0 ukm jld pod pw 45 ws :a/pkw 2 lw 45 wielokąt[4[:a 90]]pw 45 np :a/pwk 2 lw 45już
oto KOŁAugp 1 ukp 0 przyp"b 200 dopóki[:b>20][ukm jld opu koło :b pod lw 90 np :b/10 pw 90 przyp"b :b/5*4]już
oto KWADRATYprzyp"b 200 dopóki[:b>20][k :b przyp"b :b/5*4]już
oto ZADANIE3lw 90 pod np 200 pw 90 kwadraty pw 90 np 400 lw 90 koła lw 90 np 200 pw 90 wróćjuż
Zadanie 4.
Procedura właściwa: SZACH :n.
oto b :aopu ukp 0 ukm 15 ugp 1 wielokąt[4[:a 90]]już
oto z :aopu ukp 0 ukm :k ugp 1 wielokąt[4[:a 90]]już
oto c :apowtórz 2[z :a pw 90 np :a lw 90 b :a pw 90 np :a lw 90 np 2*:a lw 180]już
oto SZACH :njeśli :n<2[stop]jeśli :n>20[stop]jeśli nie (reszta :n 2)=0[stop]przyp"k losowa 16 pw 45 pod ws 200*pwk 2 lw 45 opu powtórz :n/2[powtórz :n/2[opu c 400/:n pod np 800/:n]pod ws 400 pw 90 np 800/:n lw 90]lw 45 np 400/pwk 2 pw 45już
.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Oto moja propozycja rozwiązania:
Zadanie 3.
Procedura właściwa: ZADANIE3.
oto k :a
ugp 1 ukp 0 ukm jld pod pw 45 ws :a/pkw 2 lw 45 wielokąt[4[:a 90]]pw 45 np :a/pwk 2 lw 45
już
oto KOŁA
ugp 1 ukp 0 przyp"b 200 dopóki[:b>20][ukm jld opu koło :b pod lw 90 np :b/10 pw 90 przyp"b :b/5*4]
już
oto KWADRATY
przyp"b 200 dopóki[:b>20][k :b przyp"b :b/5*4]
już
oto ZADANIE3
lw 90 pod np 200 pw 90 kwadraty pw 90 np 400 lw 90 koła lw 90 np 200 pw 90 wróć
już
Zadanie 4.
Procedura właściwa: SZACH :n.
oto b :a
opu ukp 0 ukm 15 ugp 1 wielokąt[4[:a 90]]
już
oto z :a
opu ukp 0 ukm :k ugp 1 wielokąt[4[:a 90]]
już
oto c :a
powtórz 2[z :a pw 90 np :a lw 90 b :a pw 90 np :a lw 90 np 2*:a lw 180]
już
oto SZACH :n
jeśli :n<2[stop]jeśli :n>20[stop]jeśli nie (reszta :n 2)=0[stop]
przyp"k losowa 16 pw 45 pod ws 200*pwk 2 lw 45 opu powtórz :n/2[powtórz :n/2[opu c 400/:n pod np 800/:n]pod ws 400 pw 90 np 800/:n lw 90]
lw 45 np 400/pwk 2 pw 45
już
.