Ejercicio
Matriz bidimensional 2: circunferencia en pantalla
Objetivo
Cree un programa de Visual Basic que declare que crea una matriz bidimensional de caracteres de 70x20, "dibuja" una circunferencia o radio 8 dentro de ella y la muestra en la pantalla.
Sugerencia: los puntos en la circunferencia se pueden obtener utilizando:
x = xCenter + r * cos angle
y = yCenter + r * sin angle
"sin" y "cos" esperan que el ángulo se mida en radianes, en lugar de grados. Para convertir de una unidad a la otra, debe recordar que 360 grados = 2 radianes PI (o 180 grados = radianes PI): radianes flotantes = (ángulo * Math.PI / 180.0);
Puede dibujar 72 puntos (como hay 360 grados en una circunferencia, estarían espaciados 5 grados entre sí)
Sugerencia: en Visual Basic, el coseno es Math.Cos, el seno es Math.Sin y PI es Math.PI
Código
Imports System
Public Class exercise93
Public Shared Sub Main()
Dim r, x, y As Double
For i As Integer = 0 To 360 - 1 Step 5
rad = i * Math.PI / 180.0
x = 35 + 8 * Math.Cos(rad)
y = 10 + 8 * Math.Sin(rad)
Console.SetCursorPosition(CInt(x), CInt(y))
Console.Write("X")
Next
Console.SetCursorPosition(1, 20)
End Sub
End Class