Module Module5
'Desarrollar un algoritmo para imprimir una serie de números. Los cuales deben cumplir con lo siguiente:
' · los números tienen que ser mayores a 8 y menores de 30.
' · no se deben imprimir los números 14 y 16.
Sub main()
Dim i As Integer
For i = 9 To 30
If i <> 16 And i <> 14 Then
Console.WriteLine(i)
End If
Next
Console.ReadKey()
End Sub
End Module
Ejercicio N° 02
Module Module6
'Realizar un programa que le permita introducir por teclado 5 números enteros, de los cuales se
'requiere que el programa muestre cuel de ellos es el número mayor así como tambien el número menor.
Sub Main()
Dim numero, mayor, menor As Integer
Console.Write("Número: ")
mayor = Console.ReadLine
menor = mayor
For i As Integer = 1 To 5
Console.Write("Número: ")
numero = Console.ReadLine
If (numero > mayor) Then
mayor = numero
ElseIf (numero < menor) Then
menor = numero
End If
Next
Console.WriteLine("El número mayor es: " & mayor)
Console.WriteLine("El número menor es: " & menor)
Console.ReadKey()
End Sub
End Module
Ejercicio N° 03
Module Module7
Sub main()
Dim aux As Integer
Dim n As Integer
Dim matriz(n) As Integer
Console.Write("Ingresa Limite Del Vector: ")
n = Console.ReadLine()
n -= 1
For i = 0 To n Step 1
Console.Write("Ingresa elemento " & i + 1 & " : ")
matriz(i) = Console.ReadLine()
Next
Console.WriteLine()
Console.WriteLine("Vector Original")
Console.WriteLine()
For i = 0 To n Step 1
Console.Write("[" & matriz(i) & "] ")
Next
For i = 0 To n Step 1
For j = 0 To n - 1 Step 1
If matriz(j) > matriz(i) Then
aux = matriz(j)
matriz(j) = matriz(i)
matriz(i) = aux
End If
Next
Next
Console.WriteLine()
Console.WriteLine("Vector Ordenado")
Console.WriteLine()
For i = 0 To n Step 1
Console.Write("[" & matriz(i) & "] ")
Next
Console.ReadKey()
End Sub
End Module
No hay comentarios:
Publicar un comentario