API tools faq
paste
Advertisement
albertohilal

Clase 2 Ejercicio 2.4.13

albertohilal
Aug 14th, 2017
90
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.95 KB | None | 0 0
raw download clone embed print report
  1. /*Escribir un procedimiento DibujarArbol,
  2. que dibuje un arbol de tipo conıfera*/
  3. procedure PrepararTablero()
  4. {
  5. VaciarTablero()
  6. IrAlOrigen()
  7. }
  8. procedure DibujarLineaBaseVerde()
  9. {
  10. Poner(Verde)
  11. Mover(Este)
  12. Poner(Verde)
  13. Mover(Este)
  14. Poner(Verde)
  15. Mover(Este)
  16. Poner(Verde)
  17. Mover(Este)
  18. Poner(Verde)
  19. Mover(Este)
  20. Poner(Verde)
  21. Mover(Este)
  22. Poner(Verde)
  23. Mover(Este)
  24. Poner(Verde)
  25. Mover(Este)
  26. Poner(Verde)
  27. Mover(Este)
  28. Poner(Verde)
  29. Mover(Este)
  30. Poner(Verde)
  31.  
  32. }
  33.  
  34. procedure DibujarLineaDerechaVerde()
  35. {
  36. Mover(Norte)
  37. Mover(Oeste)
  38. Poner(Verde)
  39. Mover(Norte)
  40. Mover(Oeste)
  41. Poner(Verde)
  42. Mover(Norte)
  43. Mover(Oeste)
  44. Poner(Verde)
  45. Mover(Norte)
  46. Mover(Oeste)
  47. Poner(Verde)
  48. Mover(Norte)
  49. Mover(Oeste)
  50. Poner(Verde)
  51.  
  52.  
  53. }
  54. procedure DibujarLineaIzquierdaVerde()
  55. {
  56. Mover(Sur)
  57. Mover(Oeste)
  58. Poner(Verde)
  59. Mover(Sur)
  60. Mover(Oeste)
  61. Poner(Verde)
  62. Mover(Sur)
  63. Mover(Oeste)
  64. Poner(Verde)
  65. Mover(Sur)
  66. Mover(Oeste)
  67. Poner(Verde)
  68. }
  69. procedure MoverNorte4()
  70. {
  71. Mover(Norte)
  72. Mover(Norte)
  73. Mover(Norte)
  74. Mover(Norte)
  75. }
  76. procedure DibujarTrianguloBase11() --se dibuja el triangulo de abajo
  77. {
  78. DibujarLineaBaseVerde()
  79. DibujarLineaDerechaVerde()
  80. DibujarLineaIzquierdaVerde()
  81. MoverNorte4()
  82. }
  83. /*Empieza triangulo 2 desde abajo*/
  84. procedure DibujarLineaBaseVerde9()
  85. {
  86. Poner(Verde)
  87. Mover(Este)
  88. Poner(Verde)
  89. Mover(Este)
  90. Poner(Verde)
  91. Mover(Este)
  92. Poner(Verde)
  93. Mover(Este)
  94. Poner(Verde)
  95. Mover(Este)
  96. Poner(Verde)
  97. Mover(Este)
  98. Poner(Verde)
  99. Mover(Este)
  100. Poner(Verde)
  101. Mover(Este)
  102. Poner(Verde)
  103. }
  104. procedure DibujarLineaDerechaVerde9()
  105. {
  106. Mover(Norte)
  107. Mover(Oeste)
  108. Poner(Verde)
  109. Mover(Norte)
  110. Mover(Oeste)
  111. Poner(Verde)
  112. Mover(Norte)
  113. Mover(Oeste)
  114. Poner(Verde)
  115. Mover(Norte)
  116. Mover(Oeste)
  117. Poner(Verde)
  118. }
  119. procedure DibujarLineaIzquierdaVerde9()
  120. {
  121. Mover(Sur)
  122. Mover(Oeste)
  123. Poner(Verde)
  124. Mover(Sur)
  125. Mover(Oeste)
  126. Poner(Verde)
  127. Mover(Sur)
  128. Mover(Oeste)
  129. Poner(Verde)
  130.  
  131. }
  132. procedure MoverNorte3()
  133. {
  134. Mover(Norte)
  135. Mover(Norte)
  136. Mover(Norte)
  137. }
  138. procedure DibujarTrianguloBase9()
  139. {
  140. DibujarLineaBaseVerde9()
  141. DibujarLineaDerechaVerde9()
  142. DibujarLineaIzquierdaVerde9()
  143. MoverNorte3()
  144. }
  145.  
  146. /*Empieza triangulo 3 desde abajo*/
  147. procedure DibujarLineaBaseVerde7()
  148. {
  149. Poner(Verde)
  150. Mover(Este)
  151. Poner(Verde)
  152. Mover(Este)
  153. Poner(Verde)
  154. Mover(Este)
  155. Poner(Verde)
  156. Mover(Este)
  157. Poner(Verde)
  158. Mover(Este)
  159. Poner(Verde)
  160. Mover(Este)
  161. Poner(Verde)
  162. }
  163. procedure DibujarLineaDerechaVerde7()
  164. {
  165. Mover(Norte)
  166. Mover(Oeste)
  167. Poner(Verde)
  168. Mover(Norte)
  169. Mover(Oeste)
  170. Poner(Verde)
  171. Mover(Norte)
  172. Mover(Oeste)
  173. Poner(Verde)
  174. }
  175. procedure DibujarLineaIzquierdaVerde7()
  176. {
  177. Mover(Sur)
  178. Mover(Oeste)
  179. Poner(Verde)
  180. Mover(Sur)
  181. Mover(Oeste)
  182. Poner(Verde)
  183. }
  184. procedure MoverNorte2()
  185. {
  186. Mover(Norte)
  187. Mover(Norte)
  188. }
  189. procedure DibujarTrianguloBase7()
  190. {
  191. DibujarLineaBaseVerde7()
  192. DibujarLineaDerechaVerde7()
  193. DibujarLineaIzquierdaVerde7()
  194. MoverNorte2()
  195. }
  196.  
  197. /*Empieza triangulo 4 desde abajo*/
  198. procedure DibujarLineaBaseVerde5()
  199. {
  200.  
  201. Mover(Este)
  202. Poner(Verde)
  203. Mover(Este)
  204. Poner(Verde)
  205. Mover(Este)
  206. Poner(Verde)
  207. Mover(Este)
  208. Poner(Verde)
  209.  
  210. }
  211. procedure DibujarLineaDerechaVerde5()
  212. {
  213. Mover(Norte)
  214. Mover(Oeste)
  215. Poner(Verde)
  216. Mover(Norte)
  217. Mover(Oeste)
  218. Poner(Verde)
  219.  
  220. }
  221. procedure DibujarLineaIzquierdaVerde5()
  222. {
  223. Mover(Sur)
  224. Mover(Oeste)
  225. Poner(Verde)
  226. Mover(Sur)
  227. Mover(Oeste)
  228. Poner(Verde)
  229. }
  230.  
  231. procedure DibujarTrianguloBase5()
  232. {
  233. DibujarLineaBaseVerde5()
  234. DibujarLineaDerechaVerde5()
  235. DibujarLineaIzquierdaVerde5()
  236.  
  237. }
  238. procedure DibujarArbol()
  239. {
  240. PrepararTablero()
  241. DibujarTrianguloBase11()
  242. DibujarTrianguloBase9()
  243. DibujarTrianguloBase7()
  244. DibujarTrianguloBase5()
  245. IrAlOrigen()
  246. }
  247. procedure Main()
  248. {
  249. DibujarArbol()
  250. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!