Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- to piramida :n :a :b :d
- rt 90
- make "s :n*:a
- make "omjer :b/:a
- while [:a > 0] [
- pu bk :s/2 pd
- repeat :n [
- repeat 2 [fd :a lt 90 fd :b lt 90]
- pu fd :a pd
- ]
- pu bk :s/2 lt 90 fd :b rt 90 pd
- make "a :a - :d/:n
- make "b :a*:omjer
- make "s :n*:a
- ]
- lt 90
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement