Oto pierwszy sposób rysowania kwadratu o boku 100
Oto kwadrat
np 100 pw 90 np 100 pw 90 np 100 pw 90 np 100 pw 90
już
Tą samą procedurę można zapisać w znacznie szybszy sposób używając polecenia powtórz:
powtórz liczba powtórzeń[treść do powtarzania]
A oto gotowa znacznie szybsza procedura
Oto kwadrat
powtórz 4[np 100 pw 90]
już
Piszemy procedurę z wykorzystaniem polecenia powtórz i zmiennej :bok
Oto kwadrat :bok
powtórz 4[np :bok pw 90]
już
Problem 3. Wykonaj rysunek kwadratu o długości boku 100 pikseli oraz jedną przekątną.
Narysować kwadrat o boku 100 pikseli już potrafisz. Jedynym problemem jest dodanie przekątnej. Żeby to zrobić potrzebujesz jej długość. A więc jak obliczyć długość przekątnej? Jej długość dla kwadratu w języku logo możemy zapisać jako
((pwk 2)*100)
polecenie pwk liczba oznacza pierwiastek kwadratowy z liczby. Zatem zapiszmy procedurę rysującą kwadrat o boku 100 wraz z przekątną.
Oto kwadrat
powtórz 4[np 100 pw 90]
pw 45 np ((pwk 2)*100)
już
Na początku rysujemy kwadrat. Jak wiemy przekątne kwadratu wychodzą z wierzchołków pod kątem 45 stopni dlatego obracamy się o ten kąt i wykreślamy przekątną.
Problem 4. Wykreślajmy przekątne kwadratu o zmieniającej się długości kwadratu.
Oto kwadrat :bok
powtórz 4[np :bok pw 90]
pw 45 np ((pwk 2)*:bok)
już
Brak komentarzy:
Prześlij komentarz