Odpowiedź :
Odpowiedź:
;procedura figura uniwersalna
oto f_unwer :bok :ile
powtórz :ile [np :bok pw 360/:ile]
już
;teraz figura pięciokąt za bok podaj 80
oto pieciokat :bok
f_unwer :bok 5
;powtórz 5 [np :bok pw 360/5] - to jest komentarz jak niechcesz kozystac z f_unwer wystarczy przy f_unwer :bok 5 dać średnik ; a tu usunąć
już
;trójkąt równoboczny za wyraz :bok podaj 120
oto trojkat :bok
f_unwer :bok 3 ;zamiast tego można użyć
;powtórz 3 [np 120 pw 360/3]
już
funkcja/procedura uniwersalna rysuje każdą figurę o zadanej długości boków i kątów
wystarczy ja wywołać jak pokazano przy trojkat i pieciokat
nie używam polskich znaków w programowaniu należy o nich zapomnieć!!!
Wyjaśnienie: