Se ingresa el diámetro y calcula el área, perímetro y grafica el círculo (código)


a1

Small Basic está dentro del entorno  .NET por lo que accede a todas las bibliotecas de éste. Entre ellas al objeto MATH, que calcula : Pi Abs ArcCos ArcSin ArcTan Ceiling Cos Floor GetDegrees GetRadians GetRandomNumber Log Max Min NaturalLog Power Remainder Round Sin SquareRoot Tan

  1. TextWindow.WriteLine(“ingrese el diámetro del círculo   “)
  2. diámetro = TextWindow.ReadNumber()
  3. radio = diámetro /2
  4. area = (Math.Pi) * (Math.Power(radio, radio))
  5. circunferencia = (Math.Pi) * radio
  6. area = Math.Round(area)
  7. circunferencia = Math.Round(circunferencia)
  8. TextWindow.WriteLine(“el area es: ”  + area)
  9. TextWindow.WriteLine(“el perimetro es: ” + circunferencia)
  10. circulo = (Math.Pi*Math.Power(2, 2))
  11. circulo = Math.Round(circulo)
  12. TextWindow.WriteLine(” radio = 2 el área es:  ” + circulo)
  13. GraphicsWindow.Width = 400
  14. GraphicsWindow.Height = 300
  15. GraphicsWindow.BackgroundColor = “Yellow”
  16. GraphicsWindow.PenColor = “Red”
  17. diámetro = diámetro * 100
  18. GraphicsWindow.DrawEllipse (60, 100, diámetro, diámetro)
  19. GraphicsWindow.BrushColor = “Green”
  20. GraphicsWindow.FillEllipse (60, 100, diámetro, diámetro)

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