Ejercicio
ArrayList de puntos
Objetivo
Cree una estructura "Point3D", para representar un punto en el espacio 3-D, con coordenadas X, Y y Z.
Cree un programa con un menú, en el que el usuario pueda elegir:
- Agregar datos para un punto
- Mostrar todos los puntos ingresados
- Salir del programa
DEBE usar ArrayList, en lugar de matrices.
Código
Imports System
Imports System.Collections
Namespace Point3D
Class Program
Structure Point3D
Private x, y, z As Double
End Structure
Private Shared Sub Main(ByVal args As String())
Dim [exit] As Boolean = False
Dim list As ArrayList = New ArrayList()
Dim points As Point3D = New Point3D()
Dim answer As String
Do
Console.WriteLine("1. Add data for one point")
Console.WriteLine("2. Display all the entered points")
Console.WriteLine("x. Display all the entered points")
Console.WriteLine()
Console.Write("Enter a option: ")
answer = Console.ReadLine()
If answer.ToLower() = "x" Then
[exit] = True
ElseIf answer = "1" Then
Console.Write("Point x: ")
list.Add(Convert.ToInt32(Console.ReadLine()))
Console.Write("Point y: ")
list.Add(Convert.ToInt32(Console.ReadLine()))
Console.Write("Point z: ")
list.Add(Convert.ToInt32(Console.ReadLine()))
End If
Loop While Not [exit]
End Sub
End Class
End Namespace