TOP

Visual Basic Consola - Condicionales 08




08.  Elaborar un programa que me ingrese 3 números y me muestre el número intermedio.


Solución 01:

Imports System.Console
Module Module8
    Dim n1, n2, n3, medio, xtem
    Sub Main()
        Write("Ingrese Número 01 : ")
        n1 = ReadLine()
        Write("Ingrese Número 02 : ")
        n2 = ReadLine()
        Write("Ingrese Número 03 : ")
        n3 = ReadLine()
        If n1 > n2 Then
            medio = n1
            xtem = n2
        Else
            medio = n2
            xtem = n1
        End If
        If medio > n3 Then
            medio = n3
        End If
        If medio < xtem Then
            medio = xtem
        End If
        WriteLine()
        WriteLine("MEDIO : " & medio)
        ReadLine()
    End Sub
End Module

Solución 02:

Imports System.Console
Module Module8
    Dim n1, n2, n3, medio, xtem
    Sub Main()
        Write("Ingrese Número 01 : ")
        n1 = ReadLine()
        Write("Ingrese Número 02 : ")
        n2 = ReadLine()
        Write("Ingrese Número 03 : ")
        n3 = ReadLine()
        If n1 < n2 And n1 < n3 Then
            If n2 < n3 Then
                medio = n2
            Else
                medio = n3
            End If
        Else
            If n2 < n1 And n2 < n3 Then
                If n1 < n3 Then
                    medio = n1
                Else
                    medio = n3
                End If
            Else
                If n1 < n2 Then
                    medio = n1
                Else
                    medio = n2
                End If
            End If
        End If
        WriteLine()
        WriteLine("MEDIO : " & medio)
        ReadLine()
    End Sub
End Module


share_facebook

DAME UN ME GUSTA - SI VALORAS ESTE CÓDIGO



0 comentarios:

Publicar un comentario

Danos tu opinión o déjanos tu ejercicio! - Algoritmos, pseudocódigo y lo pasamos a Visual Basic consola.