MS Small Basic: polígono (código)


poligono

Construír un polígono de n lados:

___________________________________________________________________________________________________

  1. TextWindow.Write(“cuantos lados tiene el polígono “)
  2. lados = TextWindow.ReadNumber()
  3. TextWindow.Write(“cuanto mide cada lado? “)
  4. largo = TextWindow.ReadNumber()
  5. perímetro = lados * largo
  6. TextWindow.WriteLine(“el perimetro es:  ” + perímetro)
  1. GraphicsWindow.BackgroundColor= “Yellow”
  2. GraphicsWindow.PenColor = “Black”
  3. angulo = 360 / lados
  4. For i = 1 To lados
  5. Turtle.Move(largo)
  6. Turtle.Turn(angulo)
  7. EndFor

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