Ejemplos divertidos con MS Small Basic (código)


fractal 

Fractal con la tortuga

La tortuga dibuja un fractal con forma de árbol

________________________________________________________________________________________________

 

  1. ángulo = 30
  2. delta = 10
  3. distancia = 60
  4. Turtle.Speed = 9
  5. GraphicsWindow.BackgroundColor = “Black”
  6. GraphicsWindow.PenColor = “LightGreen”
  7. DrawTree()
  8.  
  9. Sub DrawTree
  10.  If (distancia > 0) Then
  11.  Turtle.Move(distancia)
  12.  Turtle.Turn(ángulo)
  13.  
  14.  Stack.PushValue(“distancia”, distancia)
  15.  distance = distancia – delta
  16.  DrawTree()
  17.  Turtle.Turn(-ángulo * 2)
  18.  DrawTree()
  19.  Turtle.Turn(ángulo)
  20.  distancia = Stack.PopValue(“distancia”)

 

Un comentario

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