La tortuga dibuja un fractal


a1

El objeto Stack en Small Basic se usa para almacenar datos al igual que si apilara platos. Este objeto sigue el principio: primero en entrar, primero en salir.

  1. angulo      = 30
  2. delta      = 10
  3. distancia      = 60
  4. Turtle.Speed      = 9
  5. GraphicsWindow.BackgroundColor      = “Blue
  6. GraphicsWindow.PenColor =      “Yellow”
  7. DrawTree()
  1. Sub DrawTree
  2. If (distancia > 0) Then
  3. Turtle.Move(distancia)
  4. Turtle.Turn(angulo)
  1. Stack.PushValue(“distancia”,      distancia)
  2. distancia=      distancia – delta
  3. DrawTree()
  4. Turtle.Turn( -angulo * 2)
  5. DrawTree()
  6. Turtle.Turn(angulo)
  7. distancia      = Stack.PopValue(“distancia”)
  1. Turtle.Move(-distancia)
  2. EndIf
  3. EndSub

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s