elo proszę o pomoc.W mojej klasie przerabiamy w książ ce program Logomocja(taki żółwik) i mam napisać procedure nibo której nie znam i nie wiem jak ją napisać babka mówiła nam żebyśmy sami wymyślili :/ wiec prosze o pomoc !
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Masz tu kilka przykładowych procedur z których możesz skorzystać (bo musisz napisać procedure do logo):
1:
Skład (procedury):
:a - spirala składa sięz figur foremnych o :a bokach
:b - długość jednego boku jednej figury
:c - liczba figur w spirali
np. spirala 36 20 100
Kod Procedury:
oto wielokat :a :b
repeat :a [fd :b right 360 / :a]
już
oto spirala :a :b :c
repeat :c [ukp losowa 14 wielokat :a :b right 360 / :c]
już
2:
oto
wielobok:liczba_boków :długość_boku
powtórz :liczba_boków [naprzód :długość_boku lewo 360 / :liczba_boków]
już
otorozeta:liczba_boków :długość_boku :kąt_rozety
powtórz 360/:kąt_rozety [wielobok :liczba_boków :długość_boku prawo :kąt_rozety]
już
otorozety:liczba_boków :długość_boku :zwiększenie_boku
:końcowa_długość_boku :kąt_rozety
jeśli :długość_boku > :końcowa_długość_boku [stop]
rozeta :liczba_boków :długość_boku :kąt_rozety
rozety :liczba_boków :długość_boku+:zwiększenie_boku
:zwiększenie_boku :końcowa_długość_boku :kąt_rozety
już
Żeby wywołać procedurę rysującą taką rozetę należy wpisać rozety 3 3 10 300 10
.
3.
Aby otrzymać koło zębate należy wpisać: oto kolkozebate
pw 90
powtórz 72 [np 2,5 lw 45 np 5 pw 45 np 0,5 pw 45 np 5 lw 40]
już
Jeśli chcemy otrzymać grubsze ściany należy wpisać "ustalgrubośćpisaka x" (gdzie "X" to
wartość) Jeżeli chcemy otrzymać inny kolor nalezy wpisać "ustalkolorpisaka x" (gdzie "X" to numer koloru"
4.
Skład (procedury):
:bok-długość boku,
:ile- stopień złożoności figury.
np. spirala 36 20 100
Kod Procedury:
oto 6kat :bok
powtórz 6 [np :bok pw 360 / 6]
już
oto fraktal :bok :ile
6kat :bok
jeśli :ile = 0 [stop]
powtórz 6 [6kat :bok / 2,5 np :bok / 2 np :bok / 10 6kat :bok / 2,5 np :bok / 2,5 pw 60]
pod np :bok / 2,5 pw 60 np :bok / 2,5 pw 60 np :bok / 2,5 lw 60 ukm 0 np 2 zamaluj ws 2 pw 60 ws :bok / 2,5 lw 60 ws :bok / 2,5 lw 60 ws :bok / 2,5 opu
powtórz 6 [fraktal :bok / 2,5 :ile - 1 np :bok / 2 np :bok / 10 fraktal :bok / 2,5 :ile - 1 np :bok / 2,5 pw 60]
już