Algoritmos - Estructura For

Ejercicio N° 01

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

Algoritmos - Estructura condicional simple

Ejercicio N° 02

Module Module2

    'Dado dos números enteros A y B imprimir la suma siempre y cuando ambos sean positivos.

    Sub main()

        Console.Title = "Estructura Condicional"

        Dim A, B As Integer

        Dim suma As Double = 0

        Console.WriteLine("Ingrese número A: ")

        A = Console.ReadLine

        Console.WriteLine("Ingrese número B: ")

        B = Console.ReadLine

        If (A > 0 And B > 0) Then

            suma = A + B

            Console.WriteLine("La suma es: " & suma)

        End If

        Console.ReadKey()

    End Sub

End Module

Ejercicio N° 03

Module Module3

    'Imprimir la suma de A y B siempre y cuando por lo menos uno de los dos sea positivo.

    Sub main()

        Console.Title = "Estructura Condicional"

        Dim A, B As Integer

        Dim suma As Double = 0

        Console.WriteLine("Ingrese número A: ")

        A = Console.ReadLine

        Console.WriteLine("Ingrese número B: ")

        B = Console.ReadLine

        If (A > 0 or B > 0) Then

            suma = A + B

            Console.WriteLine("La suma es: " & suma)

        End If

        Console.ReadKey()

    End Sub

End Module

Ejercicio N° 04

Module Module4

    'Dado un número imprimir si este es par o impar.

    Sub main()

        Console.Title = "Verificar Números"

        Dim Num As Integer

        Console.WriteLine("Ingrese un número: ")

        Num = Console.Read

        If (Num Mod 2 = 0) Then

            Console.WriteLine("El número digitado es par")

        Else

            Console.WriteLine("El número digitado es impar")

        End If

        Console.ReadKey()

    End Sub

End Module

Algoritmos - Estructura Condicinal

Ejercicio N° 01

Module Module1

    'Realizar la suma de dos números,Mostar la suma y determinar si el resultado es positivo, negativo o cero.

    Sub Main()

        Console.Title = "Sumar Números"

        Dim Num1, Num2, Res As Double

        Console.Write("Ingrese primer número: ")

        Num1 = Console.ReadLine

        Console.Write("Ingrese segundo número: ")

        Num2 = Console.ReadLine

        Res = Num1 + Num2

        Console.WriteLine()

        Console.WriteLine("********************************************************")

        Console.WriteLine()

        Console.ForegroundColor = ConsoleColor.Cyan

        If (Res >= 1) Then

            Console.WriteLine("La suma es: " & Res)

            Console.WriteLine("El resultado es positivo")

        ElseIf (Res <= -1) Then

            Console.WriteLine("El resultado es negativo")

        Else

            Console.WriteLine("El resultado es cero")

        End If

        Console.ReadKey()

    End Sub

End Module