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

Calculando El Área de Un Triangulo

Elaboraremos un algoritmo que lea los 3 lados de un triangulo cualquiera y que calcule su área considerando que si a,b y c son lados y s el semiperímetro.

Identificadores: Área del Triangulo (AT), Longitud del Lado A (LA), Longitud del Lado B (LB); Longitud del Lado C (LC), Longitud del Semiperímetro (LS)

Solución 

Module Module1
    Dim AT As Integer
    Dim LA As Integer
    Dim LB As Integer
    Dim LC As Integer
    Dim LS As Integer

    Sub Main()
        Console.WriteLine(" Ing longitud del lado A")
        LA = Console.ReadLine()
        Console.WriteLine(" Ing longitud del lado B")
        LB = Console.ReadLine()
        Console.WriteLine(" Ing longitud del lado C")
        LC = Console.ReadLine()
        LS = (LA + LB + LC) / 2
        AT = (LS * (LS - LA) * (LS - LB) * (LS - LC)) ^ 0.5
        Console.WriteLine(" El Area del Triangulo es {0}", AT)
        Console.ReadLine()
    End Sub

End Module

Planilla De Un Empleado

En este caso necesitamos requerir un algoritmo que elabore la planilla de un empleado, donde se dispone de sus horas laboradas en el mes, así como la tarifa por hora.

Identificadores: Planilla (P), Número de Horas Laboradas en el mes (HL), Tarifa por Hora (TH)

Module Module1
    Dim HL As Integer
    Dim TH As Integer
    Dim P As Integer

    Sub Main()
        Console.WriteLine("Ing Horas Laboradas")
        HL = Console.ReadLine()
        Console.WriteLine("Ing Tarifa Hora")
        TH = Console.ReadLine()
        P = HL * TH
        Console.WriteLine(" Planilla {0}", P)
        Console.ReadLine()


    End Sub

End Module

Puntuación Final de Partidos (Ganados,Empatados y Perdidos)

Elaboraremos un algoritmo que nos permita ingresar el número de partidos ganados, perdidos y empatados, en el torneo de apertura Universitaria de Deportes, se debe mostrar su puntaje total teniendo muy en cuenta que en cada partido ganado obtendrá 3 puntos, en el partido empatado 1 punto y en el partido pedido 0.

Identificadores: Puntaje Total (PT), Número de Partidos Ganados (PG), Partidos Empatados (PE), Partidos Perdidos (PP), Puntaje de Partidos Ganados (PPG), Puntaje de Partidos Empatados (PPE),

Operadores de pseudocodigo son los siguientes:

+ Suma
- Resta
* Multiplicación
/ División
^ Potencia 

Module Module1
    Dim PG As Integer
    Dim PE As Integer
    Dim PP As Integer
    Dim PPG As Integer
    Dim PPE As Integer
    Dim PT As Integer

    Sub Main()
        Console.WriteLine(" Ing Partidos Ganados ")
        PG = Console.ReadLine()
        Console.WriteLine(" Ing Partidos Empatados")
        PE = Console.ReadLine()
        Console.WriteLine(" Ing Partidos Perdidos")
        PP = Console.ReadLine()
        PPG = PG * 3
        PPE = PE * 1
        PT = PPG + PPE
        Console.WriteLine(" Puntaje Total {0}", PT)
        Console.ReadLine()


    End Sub

End Module

Puntuacion Final con Respuestas Correctas, Incorrectas y en Blanco

Deseamos solicitar el número de respuestas Correctas, Incorrectas y en Blanco, mostrando su puntaje final considerando que por cada respuesta correcta tendrá 4 puntos, respuestas incorrectas tendrá -1 y respuestas en blanco tendrá una calificación de 0.

En Pseudocódigo existe una regla donde solo se usan los identificadores definidos en la parte de datos, ya que si no es definido en el proceso cuando programemos este notara un error. !!! Es muy importante aprender a definir todos los identificadores que se usan para resolver algoritmos !!! .

Identificadores: Puntaje Final (PF), Número de Respuestas Correctas (RC), Número de Respuestas Incorrectas (RI), Número de Respuestas en Blanco (RB), Puntaje de Repuestas Correctas (PRC), Puntaje de Respuestas Incorrectas (PRI)

Module Module1
    Dim RC As Integer
    Dim RI As Integer
    Dim Rb As Integer
    Dim PRC As Integer
    Dim PRI As Integer
    Dim PF As Integer

    Sub Main()

        Console.WriteLine(" Ing Respuestas Correctas ")
        RC = Console.ReadLine()
        Console.WriteLine(" Ing Respuestas Incorrectas ")
        RI = Console.ReadLine()
        Console.WriteLine(" Ing Respuestas en Blanco ")
        Rb = Console.ReadLine()
        PRC = RC * 4
        PRI = RI * -1
        PF = PRC + PRI
        Console.WriteLine(" Puntaje Final {0}", PF)
        Console.ReadLine()

    End Sub

End Module

Como Obtener El Promedio De Un Estudiante

En este programa necesitamos obtener el promedio de un estudiante a partir de sus tres notas parciales. 

Para obtener el promedio de cualquier dato simples, sabemos que es sumando todos los datos y dividiéndolo dentro del numero de datos sumados.

Espero que puedas entenderme y captarme muy bien !!! ...

Identificadores: Promedio (P), Primera Nota Parcial (N1), Segunda Nota Parcial (N2), Tercera Nota Parcial (N3).

Solución:

Module Module1
    Dim PrimerNotaP As Integer
    Dim SegNotaP As Integer
    Dim TerNotaP As Integer
    Dim P As String


    Sub Main()
        Console.WriteLine(" Ing Primer Nota Parcial ")
        PrimerNotaP = Console.ReadLine()
        Console.WriteLine(" Ing Segunda Nota Parcial ")
        SegNotaP = Console.ReadLine()
        Console.WriteLine(" Ing Tercer Nota Parcial ")
        TerNotaP = Console.ReadLine()
        P = (PrimerNotaP + SegNotaP + TerNotaP) / 3
        Console.WriteLine(" El Promedio es {0}", P)
        Console.ReadLine()


    End Sub

End Module

Como Calcular una Distancia

PROGRAMACIÓN: Es un conjunto de variables que componen un programa.
Algoritmo: Es un método para resolver problemas.
Identificadores: Son variable que toman el valor asignado, para poder hallar solución.
Variables: Mayormente son letras, también puede tomar el valor que se le asigne.

Primero que todo debes tener bien claro que es programación y sus ramas que lo acompañan, así será más fácil comprender mejor ...!!!

En este caso deseamos calcular la distancia recorrida (m) por un móvil que tiene la una velocidad constante (m/s) durante un tiempo (sg), considerando que es un Movimiento Rectilíneo Uniforme.

SOLUCIÓN:

Los Identificadores son: Distancia Recorrida = D
Velocidad Constante = V
Tiempo = T

Inicio
Module Module1
    Dim D As Integer
    Dim Velocidad As Integer
    Dim Tiempo As Integer

Leeremos velocidad y tiempo
    Sub Main()
        Console.WriteLine(" Ing Velocidad")
        velocidad = Console.ReadLine()
        Console.WriteLine(" Ing Tiempo")
        Tiempo = Console.ReadLine()
        D = Velocidad * Tiempo
        Console.WriteLine(" la distancia es {0}", D)
        Console.ReadLine()


    End Sub

End Module

Programa de Como Contar Vocales y Consonantes Ingresadas

Module Module1

    Dim Letra As String

    Dim Contador As String

    Dim NVocales As Integer

    Dim NConsonantes As Integer

    Sub Main()

        NVocales = 0

        NConsonantes = 0

        For c = 1 To 10

            Console.WriteLine("Ingrese Letra")

            Letra = Console.ReadLine()

            Select Case

                Case "A"

                    NVocales = NVocales + 1

                Case "E"

                    NVocales = NVocales + 1

                Case "I"

                    NVocales = NVocales + 1

                Case "O"

                    NVocales = NVocales + 1

                Case "U"

                    NVocales = NVocales + 1

                    Letra = Letra + 1

                Case Else

                    NConsonantes = NConsonantes + 1

                    Console.WriteLine("Se ingresaron {0} vocales y {1} consonantes", NVocales, Letra)

                    Console.ReadLine()

            End Select

        Next

    End Sub

End Module

Programa Como Solicitar Dos Números y Un Operador

Module Module1

    Dim A As Integer

    Dim B As Integer

    Dim OPERADOR As String

    Dim E As Integer

    Sub Main()

        Console.WriteLine("Ingrese Primer Numero")

        A = Console.ReadLine()

        Console.WriteLine("Ingrese Segundo Numero")

        B = Console.ReadLine()

        Console.WriteLine("Ingrese Operador")

        OPERADOR = Console.ReadLine()

        Select Case OPERADOR

            Case ("+")

                E = A + B

            Case ("-")

                E = A - B

            Case ("*")

                E = A * B

            Case ("/")

                E = A / B

            Case Else

                Console.WriteLine(" No Ingreso Un Operador Valido")

        End Select

        Console.WriteLine("El resultado es {0} de la operacion", E)

        Console.ReadLine()

    End Sub

End Module

Programando en Visual Basic

Bienvenidos!!!... A mi pagina de como aprender a programar y resolver pequeñas dudas .... Te ayudare con todos mis conocimientos basicos...