TOP

Visual Basic Consola - Condicionales 09




09.  Diseñe un algoritmo que lea tres números y los imprima de mayor a menor y de menor a mayor.


Imports System.Console
Module Module9
    Dim n1, n2, n3, p, s, t
    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
            p = n1
            If n2 > n3 Then
                s = n2
                t = n3
            Else
                s = n3
                t = n2
            End If
        Else
            If n2 > n3 Then
                p = n2
                If n1 > n3 Then
                    s = n1
                    t = n3
                Else
                    s = n3
                    t = n1
                End If
            Else
                p = n3
                If n1 > n2 Then
                    s = n1
                    t = n2
                Else
                    s = n2
                    t = n1
                End If
            End If
        End If
        WriteLine()
        WriteLine("DESCENDENTE : " & p & "  " & s & "  " & t)
        WriteLine("ASCENDENTE  : " & t & "  " & s & "  " & p)
        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.