Logia 1995/96 - Etap III

Zadanie 1

Napisz procedurę jednoparametrową LAS :lista, rysującą na ekranie las na podstawie zdania podanego jako parametr:

• Liczba drzew ma być równa liczbie słów w zdaniu.
• Kolejne rysowane drzewa, od lewej do prawej, mają odpowiadać kolejnym słowom parametru.
• Od pnia, po obu jego stronach, w górę pod kątem 45o, powinny wyrastać pary gałęzi.
• Kolejne pary gałęzi, od dołu ku górze, mają odpowiadać kolejnym literom słowa opisującego drzewo.
• Długość gałęzi dla spółgłosek ma być dwa razy mniejsza od długości gałęzi dla samogłosek.

Rysunek powinien wykorzystywać cały ekran. Wszystkie drzewa mają mieć tę samą szerokość. Odległości pomiędzy pniami sąsiednich drzew powinny być jednakowe. Wysokość pnia drzewa powinna być wprost proporcjonalna do liczby liter w słowie opisującym dane drzewo. Poziome podłoże jest elementem tworzonego rysunku. Lista opisująca las może zawierać od jednego do dziesięciu niepustych słów składających się jedynie z małych liter alfabetu łacińskiego.

Podczas tego zadania zalecam utworzenie dwóch procedur i funkcji. Pierwsz procedura będzie zarządzać wielkości i będzie wywoływać drugą, która z kolei narusyje pojedyncze pełne drzewo. Zadaniem funkcji będzie sprawdzić czy dana litera jest samogłoską.

Funkcja samogłoska? będzie przyjmować jeden argument - literę do sprawdzenia, a jako wynik zwróći prawdę / fałsz czy to samogłoska czy nie:

1. oto samogłoska? :litera
2.   wynik (element? :litera [a e o u i y])
3. już

1. oto samogłoska? :litera
2.  wynik (element? :litera [a e o u i y])
3. już

Przejdźmy teraz do procedury pomocniczej LAS_pom rysującej drzewo. Będziemy jej przekazywać trzy argumenty: :słowo - określi jakie słowo ma przedstawić drzewom, :szer - określi szerokość pojedynczej gałęzi oraz :odl_gal - określi jaka powinna być odległość pomiędzy parą gałęzi:

1. oto LAS_pom :słowo :szer :odl_gal
2.   powtórz (długość :słowo)[
3.       np :odl_gal
4.       niech "a :szer * pwk(2)
5.       jeśli (nie (samogłoska? (element npw :słowo)))[
6.           niech "a :a / 2
7.       ]
8.       lw 45
9.       np :a
10.       ws :a
11.       pw 90
12.       np :a
13.       ws :a
14.       lw 45
15.   ]
16.   ws :odl_gal * (długość :słowo)
17. już

(2.) Dla każdego znaku w słowie: (3.) Określamy wstępną długość gałęzi na podstawie parametru :szer. (4.) W przypadku, gdy litera nie jest samogłoską to (5.) zmniejszamy długość gałęzi :a o połowę. (7. - 13.) Rysujemy gałąź po jednej i drugiej stronie. (15.) Cofamy się do punktu z którego zaczęliśmy rysowanie.

Do napisania główna funkcja LAS. Na początku wyliczymy wszystkie wartości potrzebne do narysowania drzewa:

1. oto LAS :lista
2.   niech "margines 8
3.   niech "szer (element 1 s1'rozmiar) - :margines
4.   niech "wys (element 2 s1'rozmiar) - :margines
5.   niech "szer_drzewo :szer / (długość :lista)
6.   niech "max 0
7.   powtórz (długość :lista)[
8.     jeśli ((długość (element npw :lista)) > :max)[
9.       niech "max długość (element npw :lista)
10.     ]
11.   ]
12.   niech "odl_gal (:wys - (:szer_drzewo / 2)) / (:max + 1)

(2.) Na początek ustalamy margines. Dzięki temu łatwiej będzie zmniejszać proporcjonalnie obraz wynikowy. (3.) Obliczamy szerokość i (4.) wysokość obszaru na którym będziemy rysować. (5.) Obliczamy szerokość drzewa. (6. - 11.) W celu obliczenia odległości pomiedzy gałęziami musimy znać jak długie jest najdłuższe słowo. Po znalezieniu maksymalnej wartości możemy wyliczyć (12.) odległość pomiędzy gałęziami.

13.   pod
14.   ws :wys / 2
15.   pw 90
16.   ws :szer / 2
17.   lw 90
18.   opu
19.   powtórz (długość :lista)[
20.     pw 90
21.     np :szer_drzewo / 2
22.     lw 90
23.     LAS_pom (element npw :lista) (:szer_drzewo / 2) :odl_gal
24.     pw 90
25.     np :szer_drzewo / 2
26.     lw 90
27.   ]
28.  
29. już

Druga część procedury to (13. - 17.) ustawienie żółwia w lewym dolnym rogu obrazku i (18. - 26.) narysowanie drzew. Warto tu pamiętać, że procedurze pomocniczej przekazujemy :szer_drzewo / 2 jako argument :szer.

W zadaniu najprostszym rozwiazaniem jest podzielenie zestawu na dwie listy, a następnie ich scalenie:

1. oto PRZESTAW :zdanie
2.   niech "lista_w []
3.   powtórz (długość :zdanie)[
4.     jeśli (element? "a element (npw - długość :lista_w) :zdanie) [
5.         niech "lista_w nak element (npw - długość :lista_w) :zdanie :lista_w
6.         niech "zdanie bezElNum (npw + 1 - długość :lista_w) :zdanie
7.     ]
8.   ]
9.   wynik zd :lista_w :zdanie
10. już

(2.) Deklarujemy pustą listę pomocniczą do której będziemy wrzucać elementy, które mają być na początku. (3.) Dla każdego wyrazu na liście: (4.) jeśli zawiera a w sobie to (5.) dopisujemy na koniec :lista_w i (6.) usuwamy ten element z listy. Odejmujemy od npw długość :lista_w, ponieważ lista :zdanie po usunięciu elementu jest mniejsza. (9.) Zwracamy listę scaloną z dwóch list: (kolejno) :lista_w i :zdanie.

Jest idealne zadania, aby wykorzystać rekurencję. Do funkcji tego typu pierwszym argumentem musi być lista elementów, a drugim poziom. Iterujemy przez wszystkie elementy na liście. W przypadku, gdy element jest liczbą to sumę zwiększamy o iloczyn tego elementu razy poziom. W przeciwnym wypadku, gdy element jest listą to wywołujemy funkcję z tym elementem jako argument :lista, a :poziom zwiększamy o jeden. Wtedy funkcja wygląda następująco:

1. oto WAGALISTY_rek :lliczb :poziom
2.   niech "suma 0
3.   powtórz(długość :lliczb)[
4.     jeżeli(lista? element npw :lliczb)[
5.       niech "suma :suma + WAGALISTY_rek (element npw :lliczb) (:poziom + 1)
6.     ][
7.       niech "suma :suma + (element npw :lliczb) * :poziom
8.     ]
9.   ]
10.   wynik :suma
11. już

Jednak zadanie nie przewiduje drugiego argumentu, dlatego funkcja WAGALISTY będzie rozpoczynać rekurencję:

1. oto WAGALISTY :lliczb
2.   wynik WAGALISTY_rek :lliczb 1
3. już

• Rozwiązania zadań