Tema Nº12: Arreglos en VB .NET
Comentarios:
¿Que es un arreglo en VB.NET?
Tipos de arreglos
1 - Unidimensionales
2 - Bidimensionales
3 - Multidimensionales
2 - Bidimensionales
3 - Multidimensionales
Conclusiones:
Un arreglo nos puede servir cuando necesitemos almacenar datos en la memoria, ya sea que estos sean introducidos por el usuario o establecidos previamente. Para entender mejor un arreglo, se puede imaginar de forma gráfica como una tabla, en donde cada slot se almacena un dato.
Practica #12
Problema 1:
Crear una aplicación para almacenar en un arreglo 10 nombres y luego imprimir los nombres.
Código VB .NET:
Module Module1
Sub Main()
Console.WriteLine("Introduzca 10 nombres:")
Dim nombre(9) As String
For i = 0 To 9
Dim n As String
n = Console.ReadLine()
nombre(i) = n
Next
Console.WriteLine()
Console.WriteLine("El arreglo guardó los siguientes nombres")
For i = 0 To 9
Console.WriteLine(nombre(i))
Next
Console.ReadLine()
End Sub
End Module
Problema 3:
Elaborar una aplicación para capturar números en dos arreglos 4x4 y luego mostrar la sumatoria de los arreglos.
Código VB .NET:
Module Module2
Sub Main()
Dim num(3, 3) As Integer
Dim sum, sum1, total As Integer
total = 0
'Arreglo 1 --------------------------------------------
Console.WriteLine("Introduzca los valores para el arreglo 1")
For f = 0 To 3
For c = 0 To 3
Console.Write("(" & f & ", " & c & "): ")
num(f, c) = Console.ReadLine()
Next
Next
For f = 0 To 3
For c = 0 To 3
sum = sum + num(f, c)
Next
Next
Console.Clear()
Sub Main()
Dim num(3, 3) As Integer
Dim sum, sum1, total As Integer
total = 0
'Arreglo 1 --------------------------------------------
Console.WriteLine("Introduzca los valores para el arreglo 1")
For f = 0 To 3
For c = 0 To 3
Console.Write("(" & f & ", " & c & "): ")
num(f, c) = Console.ReadLine()
Next
Next
For f = 0 To 3
For c = 0 To 3
sum = sum + num(f, c)
Next
Next
Console.Clear()
'Arreglo 2 --------------------------------------------
Console.WriteLine("Introduzca los valores para el arreglo 2")
For f = 0 To 3
For c = 0 To 3
Console.Write("(" & f & ", " & c & "): ")
num(f, c) = Console.ReadLine()
Next
Next
For f = 0 To 3
For c = 0 To 3
sum1 = sum1 + num(f, c)
Next
Next
Console.Clear()
Console.WriteLine("Introduzca los valores para el arreglo 2")
For f = 0 To 3
For c = 0 To 3
Console.Write("(" & f & ", " & c & "): ")
num(f, c) = Console.ReadLine()
Next
Next
For f = 0 To 3
For c = 0 To 3
sum1 = sum1 + num(f, c)
Next
Next
Console.Clear()
'Total de la sumatorias de los 2 arreglos ----------------
total = sum + sum1
Console.WriteLine("Sumatoria del primer arreglo: " & sum)
Console.WriteLine("Sumatoria del segundo arreglo: " & sum1)
Console.Write("El total de la suma de los arreglos es: " & sum & " + " & sum1 & " = " & total)
Console.WriteLine()
Console.ReadLine()
End Sub
End Module
total = sum + sum1
Console.WriteLine("Sumatoria del primer arreglo: " & sum)
Console.WriteLine("Sumatoria del segundo arreglo: " & sum1)
Console.Write("El total de la suma de los arreglos es: " & sum & " + " & sum1 & " = " & total)
Console.WriteLine()
Console.ReadLine()
End Sub
End Module
Problema 5:
Elaborar una aplicación para almacenar en un arreglo una cantidad de números enteros indicada por el usuario y luego imprimir cuantos de los números almacenados en el arreglo son pares y cuantos impares.
Código VB .NET:
Module Module3
Sub Main()
Dim k, pares, impar As Integer
pares = 0
impar = 0
Console.WriteLine("Cantidad de números a ingresar:")
k = Console.ReadLine()
k = k - 1
Console.WriteLine()
Dim num(k) As Integer
Console.WriteLine("Ingrese los números del arreglo:")
For i = 0 To k
Dim n As Integer
n = Console.ReadLine()
num(i) = n
Next
Sub Main()
Dim k, pares, impar As Integer
pares = 0
impar = 0
Console.WriteLine("Cantidad de números a ingresar:")
k = Console.ReadLine()
k = k - 1
Console.WriteLine()
Dim num(k) As Integer
Console.WriteLine("Ingrese los números del arreglo:")
For i = 0 To k
Dim n As Integer
n = Console.ReadLine()
num(i) = n
Next
For i = 0 To k
If num(i) Mod 2 = 0 Then
pares = pares + 1
Else
impar = impar + 1
End If
Next
Console.WriteLine()
Console.WriteLine("Pares: " & pares)
Console.WriteLine("Impares: " & impar)
Console.ReadLine()
If num(i) Mod 2 = 0 Then
pares = pares + 1
Else
impar = impar + 1
End If
Next
Console.WriteLine()
Console.WriteLine("Pares: " & pares)
Console.WriteLine("Impares: " & impar)
Console.ReadLine()
End Sub
End Module
End Module
Problema 6:
Crear una aplicación para capturar una cantidad de nombres especificada por el usuario, luego mostrar la lista nombre ordenada ascendentemente.
Código VB .NET:
Module Module4
Sub Main()
Dim n As Integer
Console.Write("Ingrese cantidad de nombres: ")
n = Console.ReadLine()
n = n - 1
Dim nombre(n) As String
For i = nombre.GetLowerBound(0) To nombre.GetUpperBound(0)
Console.Write("Nombre: ")
nombre(i) = Console.ReadLine()
Next
Console.WriteLine()
Array.Sort(nombre)
Console.WriteLine("Lista de nombres ordenada:")
For i = nombre.GetLowerBound(0) To nombre.GetUpperBound(0)
Console.WriteLine(nombre(i))
Next
Console.ReadLine()
End Sub
Sub Main()
Dim n As Integer
Console.Write("Ingrese cantidad de nombres: ")
n = Console.ReadLine()
n = n - 1
Dim nombre(n) As String
For i = nombre.GetLowerBound(0) To nombre.GetUpperBound(0)
Console.Write("Nombre: ")
nombre(i) = Console.ReadLine()
Next
Console.WriteLine()
Array.Sort(nombre)
Console.WriteLine("Lista de nombres ordenada:")
For i = nombre.GetLowerBound(0) To nombre.GetUpperBound(0)
Console.WriteLine(nombre(i))
Next
Console.ReadLine()
End Sub
End Module
No hay comentarios:
Publicar un comentario