„miniLOGIA grafika w Logo” to konkurs informatyczny dla uczniów szkół podstawowych województwa mazowieckiego organizowany przez Ośrodek Edukacji Informatycznej i Zastosowań Komputerów (OEIiZK) na zlecenie Mazowieckiego Kuratora Oświaty. Konkurs składa się z trzech etapów, podczas których uczniowie samodzielnie rozwiązują zadania graficzne w językach Logo lub Python (z zainstalowanym modułem turtle).
W serii artykułów przedstawię rozwiązania zadań w języku Logo, opracowane przeze mnie podczas przygotowywania się do konkursu. Jako środowisko, w którym opracowywałem rozwiązania zadań wykorzystałem zalecane przez organizatora oprogramowanie Logomocja-Imagine.
Zadanie 3
Napisz procedurę PAS :n, po wywołaniu której, na środku ekranu, będzie rysowany pas o szerokości 700, jak na rysunkach poniżej. Parametr :n określa liczbę wystających małych kwadratów na dole pasa i przyjmuje wartości od 6 do 26.
Rozwiązanie:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 |
oto pas :n cs pod ukm "jasnoszary niech "bok 700/(:n*4-1) ws (:bok+12*:bok)/2 lw 90 np 350-:bok pw 90 war :n wróć już =================================================== oto pom :bok opu wielokąt [ np :bok lw 90 np :bok pw 90 np :bok pw 90 np :bok lw 90 np :bok lw 90 np :bok pw 90 np :bok pw 90 np (:bok*3) pw 90 np :bok pw 90 np :bok lw 90 np :bok lw 90 np :bok pw 90 np :bok pw 90 np :bok lw 90 np :bok pw 90 np :bok pw 90 ] pod pw 90 np :bok*4 lw 90 już =================================================== oto rzad1 :ile niech "bok 700/(:ile*4-1) powtórz :ile [pom :bok] lw 90 np :bok*2 np :bok*4*(:ile-1) pw 90 np :bok już =================================================== oto rzad2 :ile niech "bok 700/(:ile*4-1) powtórz (:ile-1)[pom :bok] lw 90 np :bok*2 np :bok*4*(:ile-1) pw 90 np :bok*3 już =================================================== oto war :ile powtórz 3 [ rzad1 :ile rzad2 :ile] już |
Wynik działania programu:
PAS 6