Tipo de Trianguló

Module Module1
    Dim L1 As Integer
    Dim L2 As Integer
    Dim L3 As Integer
    Dim TT As Integer
    Sub Main()
        Console.WriteLine(" Ingrese Primer Lado")
        L1 = Console.ReadLine()
        Console.WriteLine("Ingrese Segundo Lado")
        L2 = Console.ReadLine()
        Console.WriteLine("Ingrese Tercer Lado")
        L3 = Console.ReadLine()
        If (L1 <> L2) And (L2 <> L3) And (L3 <> L1) Then
            Console.WriteLine(" Escaleno")
            Console.ReadLine()
        Else
            If (L1 = L2) And (L2 = L3) Then
                Console.WriteLine(" Equilátero")
                Console.ReadLine()
            Else
                Console.WriteLine("Isósceles")
                Console.ReadLine()

            End If

        End If

    End Sub

End Module

Determinación Número Mayor

Module Module1
    Dim N1 As Integer
    Dim N2 As Integer
    Dim N3 As Integer
    Dim NM As Integer

    Sub Main()
        Console.WriteLine("Ingrese Primer Numero Entero")
        N1 = Console.ReadLine()
        Console.WriteLine("Ingrese Segundo Numero Entero")
        N2 = Console.ReadLine()
        Console.WriteLine("Ingrese Tercer Numero Entero")
        N3 = Console.ReadLine()
        If (N1 > N2) And (N1 > N3) Then
            Console.WriteLine("Primer Numero Entero")
            Console.ReadLine()
        Else

        End If
        If (N2 > N3) Then
            Console.WriteLine("Segundo Numero Entero")
            Console.ReadLine()
        Else
            Console.WriteLine(" Tercer Numero Entero")
            Console.ReadLine()
        End If
    End Sub

End Module

Si Promedio Mínimo Es De 100 En La Producción Recibirá Incentivos

Module Module1
    Dim PL As Integer
    Dim PMa As Integer
    Dim PMi As Integer
    Dim PJ As Integer
    Dim PV As Integer
    Dim PS As Integer
    Dim PT As Integer
    Dim PP As Integer
    Dim MSG As Integer

    Sub Main()
        Console.WriteLine("Ingrese Produccion del Lunes")
        PL = Console.ReadLine()
        Console.WriteLine("Ingrese Produccion del Martes")
        PMa = Console.ReadLine()
        Console.WriteLine("Ingrese Produccion del Miercoles")
        PMi = Console.ReadLine()
        Console.WriteLine("Ingrese Produccion del Jueves")
        PJ = Console.ReadLine()
        Console.WriteLine("Ingrese Producccion del Viernes")
        PV = Console.ReadLine()
        Console.WriteLine("Ingrese Produccion del Sabado")
        PS = Console.ReadLine()
        PT = (PL + PMa + PMi + PJ + PV + PS)
        PP = PT / 6
        If (PP >= 100) Then
            Console.writeline("Recibira Incentivos")
            Console.ReadLine()
        Else
            Console.writeline("No Recibira Incentivos")
            Console.ReadLine()
        End If

    End Sub

End Module

Diferencia De Edades Entre 2 Hermanos El Mayor y El Menor

If nos indica que tenemos una instrucción condicional dentro de otras instrucción condicional.

Elaboraremos un algoritmo que nos solicite la edad de 2 hermano y que nos muestre un mensaje indicando la edad del mayor y cuantos años de diferencia tiene el mayor con el menor.

Identificadores: Edad del Primer Hermano (E1), Edad del Segundo Hermnao (E2), Diferencia de Edades (DE).

Solución

Module Module1
    Dim E1 As Integer
    Dim E2 As Integer
    Dim DE As Integer

    Sub Main()
        Console.WriteLine(" Ingrese la Edad del Primer Hermano")
        E1 = Console.ReadLine()
        Console.WriteLine(" Ingrese la Edad del Segundo Hermano")
        E2 = Console.ReadLine()
        If (E1 > E2) Then
            Console.WriteLine(" El Primer Hermano es el Mayor por")
            DE = E1 - E2
            Console.ReadLine()
        Else
            Console.WriteLine("El Segundo Hermano es el Mayor por")
            DE = E2 - E1
            Console.ReadLine()
        End If
        Console.WriteLine("La Diferencia de las Edades son {0}", DE)
        Console.ReadLine()

    End Sub

End Module

Permite Saber Si Es Mayor de 17 Para Inscribirse en "SMO"

If: es la expresión condicional
Then: Instrucción Verdadera
Else: Instrucción Falsa
End If: Finalización de la Expresión Condicional

Operadores Relacionales o Comparativos
> Mayor
< Menor
>= Mayor Igual
<= Menor Igual
<> Diferente
= Igual 

En este caso elaboraremos un algoritmo que nos permita averiguar si una persona debe de inscribirse en el Servicio Militar Obligatorio , sabiendo su año de nacimiento.

Identificadores: Año de Nacimiento (AN), Año Actual (AA), Edad (E).

Solución 

Module Module1
    Dim AN As Integer
    Dim AA As Integer
    Dim E As Integer

    Sub Main()
        Console.WriteLine("Ingrese Año de Nacimiento")
        AN = Console.ReadLine()
        Console.WriteLine("Ingrese Año Actual")
        AA = Console.ReadLine()
        E = AA - AN
        If (E > 16) Then
            Console.WriteLine("Debe Inscribirse en el SMO")
            Console.ReadLine()
        Else
            Console.WriteLine("No debe de Inscribirse en el SMO")
            Console.ReadLine()

        End If
    End Sub

End Module

Calculando la Distancia entre A y B

En este caso tenemos los puntos A y B en el cuadrante positivo del plano cartesiano, elaboraremos el algoritmo que nos permita obtener la distancia entre A y B.

Identificadores: Distancia (D), Abcisa de A (AA), Abcisa de B (AB), Ordenador A (OA), Ordenador B (OB)

Solución

Module Module1
    Dim D As Integer
    Dim AA As Integer
    Dim AB As Integer
    Dim OA As Integer
    Dim OB As Integer

    Sub Main()
        Console.WriteLine("Ingrese el Abcisa de A")
        AA = Console.ReadLine()
        Console.WriteLine(" Ingrese el Abcisa de B")
        AB = Console.ReadLine()
        Console.WriteLine(" Ingrese Ordenada A")
        OA = Console.ReadLine()
        Console.WriteLine("Ingrese Ordenada B")
        OB = Console.ReadLine()
        D = ((AB - AA) ^ 2 + (OB - OA) ^ 2) ^ 0.5
        Console.WriteLine(" La distancia es {0}", D)
        Console.ReadLine()

    End Sub

End Module

Calculando el No. de Micro Disco

Elaboraremos un algoritmo que nos permita calcular el número de Micro Discos 3 1/2 necesarios para hacer una copia de seguridad, de la información almacenada en un disco cuya capacidad se conocer. Considerando que el disco duro este lleno de información,además expresando un gigabyte. Tomando en cuenta que un micro disco tiene 1.44 megabyte y un gigabyte es igual a 1,024 megabyte.

Solucion

Identificadores:  Número de Micro Disco 3 1/2 (MD), Número de Gigabyte del Disco Duro (GB), Número de Megabyte del Disco Duro (MG)

Module Module1
    Dim MD As Integer
    Dim GB As Integer
    Dim MG As Integer

    Sub Main()
        Console.WriteLine(" Ingrese Numero de Gigabyte ")
        GB = Console.ReadLine()
        MG = GB * 1024
        MD = MG / 1.44
        Console.WriteLine("El resultado del Micro Disco es {0}", MD)
        Console.ReadLine()

    End Sub

End Module