Napisz procedurę, która spowoduje narysowanie korony
do tego zadania potrxebny jest program Logomocja-Imagine.
prosze żeby ta procedura zmieściła się w 1 linijce.
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2025 KUDO.TIPS - All rights reserved.
ukp "czarny
cs pż
pod ws 240 lw 90 np 200 pw 90 opu
powtórz 2[np 500/(:ile+1)pw 90 np 500-500/(:ile+1)pw 90] pod np 10 pw 90 np 10 ukp "żółty zamaluj
ukp "czarny ws 10 lw 90 ws 10 opu
lw 45 np (500/(:ile+1))/1.4142 pw 90 np (500/(:ile+1))/1.4142
pod ws 10 pw 90 np 5 ukp "zielony zamaluj ukp "czarny ws 5 lw 90 np 10 opu
powtórz :ile [pw 90 np (500/(:ile+1))/1.4142 lw 90 np (500/(:ile+1))/1.4142 pod ws 10 lw 90 np 5
ukp "czerwony zamaluj ukp "czarny ws 5 pw 90 np 10 opu]
pw 90 np (500/(:ile+1))/1.4142 pw 90 np (500/(:ile+1))/1.4142
pod ws 10 pw 90 np 5 ukp "zielony zamaluj ukp "czarny ws 5 lw 90 np 10 opu
powtórz :ile [pw 90 np (500/(:ile+1))/1.4142 lw 90 np (500/(:ile+1))/1.4142 pod ws 10 lw 90 np 5
ukp "czerwony zamaluj ukp "czarny ws 5 pw 90 np 10 opu]
pw 135 np 300 pw 45
powtórz :ile [pw 90 np (500/(:ile+1))/1.4142 lw 90 np (500/(:ile+1))/1.4142]
pw 135 np 300 pod ws 170 pw 90 np 5 ukp "żółty zamaluj ukp "czarny
wróć sż
już