POTRZEBNE JESZCZE NA DZIŚ
Napisz procedure Logo Komeniusza na:
-trapez
-diament
-kwadrat wpisany w deltoid
-deltoid wpisany w kwadrat
-kolo wpisane w kwadrat
-domek
-gwiazde pięcioramienna
-spirala
-sześciokąt
-pięciokąt
-drzewo
-wieża z kwadratów
-deltoid
[ZROBCIE ZA POMOCA POWTORZ]
i coś jeszcze możecie od siebie dodać będe wdzięczna bo jutro mam zaliczenie z komeniusza z rysunków właśnie i musze dostac 5 no chyba ze ktos zna jakas dobra strone z procedurami komeniusza to mze ja napisac zamiast rozwiazywania tych figur
ocenie każdego i jeszcze dzis wyznacze najlepsza odpowiedz
z gory dzieki :D

1

Odpowiedzi

Najlepsza Odpowiedź!
2010-01-07T21:46:49+01:00
Tutaj masz fajna procedure do LogoKomeniusza


oto SERWETKI.ODWR :n :prom :krok
; ładne: [4 150 4][5 98 4][9 80 4][18 80 4]
niech "kąty 360 / :n
niech "rozm 2 * :prom * sin ( :kąty / 2 )
pod np :prom pw 90 + ( :kąty / 2 ) opu
powtórz :n [BOKI.ODWR :rozm pw :kąty]
pod lw 90 + ( :kąty / 2 ) ws :prom opu
już

oto BOKI.ODWR :rozm
jeśli :rozm < :krok [np :rozm stop]
BOKI.ODWR :rozm / 3 pw 180 - :kąty
BOKI.ODWR :rozm / 3
powtórz :n - 2 [lw :kąty BOKI.ODWR :rozm / 3]
pw 180 - :kąty BOKI.ODWR :rozm / 3
już

Żeby wywołać procedurę rysującą taką rozetę należy wpisać SERWETKI.ODWR 9 85 3.



Jezeli pomoglem i zaliczyles to napisz na PW