logo komeniusz
podaj procedury do:
trójkąt prostokątny
przesuw
okrąg
romb
rozeta
kwadratz
proszę o widoczne rozwiązanie i zrozumiałe
daje naj
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Układ kwadratów
Powtórz 4 [np. :bok pw 90]
Już
Oto kwadraty :bok
Powtórz 8 [kwadrat :bok pw 45]
Już
Wielokąt z parametrami: bok i ile.
Powtórz :ile [np. :bok pw 360 / :ile] ile - liczba boków wielokąta
Już
Wielokąt z parametrami: obwód i ile.
Powtórz :ile [np. :obwód / :ile pw 360 / :ile]
Już
Okrąg
Powtórz :ile [np. :bok pw 360 / :ile]
Już
Okręgi , półokręgi , łuki
Powtórz :ile [np. :bok pw 5] okr 5 36 - półokrąg
Już okr 5 10 - łuk o długości 50)
Spirala
Jeśli :bok <= 0 [STOP]
Np. :bok
Pw :kąt
Spirala :bok – 1 :kąt
Już
Kwadraty w kwadratach
Powtórz 4 [np. :a pw 90]
Już
Oto kwadraty1 :a :ile PWK - pierwiastek
Jeśli :ile = 0 [stop] jeśli – procedura logiczna
Kwadrat1 :a (jeśliwarunek logiczny [lista instrukcji1]
Np. :a / 2 inaczej [lista instrukcji2]
Pw 45
Kwadraty1 :a / PWK 2 :ile – 1
Już
Układ kwadratów
Powtórz 4 [np. :bok pw 90]
Już
Oto kwadraty :bok
Powtórz 8 [kwadrat :bok pw 45]
Już
Wielokąt z parametrami: bok i ile.
Powtórz :ile [np. :bok pw 360 / :ile] ile - liczba boków wielokąta
Już
Wielokąt z parametrami: obwód i ile.
Powtórz :ile [np. :obwód / :ile pw 360 / :ile]
Już
Okrąg
Powtórz :ile [np. :bok pw 360 / :ile]
Już
Okręgi , półokręgi , łuki
Powtórz :ile [np. :bok pw 5] okr 5 36 - półokrąg
Już okr 5 10 - łuk o długości 50)
Spirala
Jeśli :bok <= 0 [STOP]
Np. :bok
Pw :kąt
Spirala :bok – 1 :kąt
Już
Kwadraty w kwadratach
Powtórz 4 [np. :a pw 90]
Już
Oto kwadraty1 :a :ile PWK - pierwiastek
Jeśli :ile = 0 [stop] jeśli – procedura logiczna
Kwadrat1 :a (jeśliwarunek logiczny [lista instrukcji1]
Np. :a / 2 inaczej [lista instrukcji2]
Pw 45
Kwadraty1 :a / PWK 2 :ile – 1
Już