Programacion Ejercicios de Consola de aplicacion
Imports System
Imports System.Console
Module Module1
Sub Main()
Dim s(4), a As Integer
Dim i As Integer
WriteLine("ingrese los numeros respectivos:")
For i = 0 To 4
s(i) = ReadLine()
a = a + s(i)
NextWriteLine("los elementos de la matriz son:")
For i = 0 To 4
WriteLine(s(i))
Next
Write(" ")
WriteLine("la suma de los elementos de la matris es: " & a)
ReadKey()
End Sub
End Module
2. Se tienes dos vectores A y B de cinco posiciones con valores enteros y se desea generar un tercer vector C con la suma de los dosprimeros.
Dim a(4), b(4), c(4) As Integer
Dim i As Byte
Console.WriteLine("Ingrese 5 números :")
For i = 0 To 4
a(i) = Console.ReadLine()
Next
Console.WriteLine("Ingrese los otros 5 números :")
For i = 0 To 4
b(i) = Console.ReadLine()
Next
For i = 0 To 4
c(i) = a(i) + b(i)
NextFor i = 0 To 4
Console.WriteLine("El elemento " & i & " de la matriz C es: " & c(i))
c(i) = a(i) + b(i)
Next
Console.ReadLine()
3. Desarrollar un programa que permita mostrar el número mayor de un vector.
Imports System
Imports System.Console
Module Module1
Sub Main()
Dim a(4), i, m, n As Integer
WriteLine("Escribalos numeros del vector A :")
For i = 0 To 4
a(i) = ReadLine()
Next
n = a(0)
For i = 0 To 4
m = a(i)
If n >= m Then
Else
n = a(i)
End If
Next
WriteLine("El numero mayor es: " + CStr(n))
ReadKey()
End Sub
End Module
4. Desarrollar un programaque cree la siguiente matriz:
Luego se debe solicitar un número y se debe indicar si el número se encuentra o no en el vector, en caso de que exista se debe mostrar la cantidad de veces que aparece el número en la matriz.
Imports System
Imports System.Console
Dim a() As Integer = {8, 9, 11, 5, 7, 1, 5, 19}
Dim i, num, cont As Byte
WriteLine("Ingrese un número: ")num = ReadLine()
For i = 0 To 7
If num = a(i) Then
cont = cont + 1
End If
Next
If cont = 1 Then
WriteLine("El número ingresado se repite " & cont & " vez en la matriz.")
ElseIf cont > 1 Then
WriteLine("El número ingresado se repite " & cont & " veces en la matriz.")
ElseWriteLine("El número ingresado no se encuentra en la matriz")
End If
ReadLine()
5. Utilice la matriz del ejercicio anterior para desarrollar un programa que solicite un número, si el número se encuentra dentro de la matriz se debe mostrar los elementos que se encuentran a su alrededor, por ejemplo si se ingresa el número 5 se debe mostrar 11 y 7, si se ingresa 8 se debemostrar 9. Si el número no se encuentra en la matriz muestre un mensaje de alerta.
Imports System
Imports System.Console
Module Module1
Sub Main()
Dim a() As Integer = {8, 9, 11, 5, 7, 1, 5, 19}
Dim i, num, cont As Byte
WriteLine("Ingrese un número: ")
num = ReadLine()
If num = a(0) Then
WriteLine("El número " & num & " está allado de " & a(1))
ElseIf num = a(7) Then
WriteLine("El número " & num & " está al lado de " & a(5))
End If
For i = 1 To 6
If num = a(i) Then
While cont < 1
WriteLine("El número " & num & " está alrededor de " & a(i - 1) & " y " & a(i + 1))
cont = cont + 1
End While...
Regístrate para leer el documento completo.