TOP

Visual Basic Consola - Selección 03




03.  Hacer un algoritmos que muestre un menú de opciones:

A.   El valor del área de un triángulo, dada la base y la altura.
B.   El valor de la base de un triángulo, dada la altura y el área.
C.   El valor de la altura de un triángulo, dada la base y el área.

Dependiendo de la opción A, B ó C, se ejecutara el programa correspondiente

Imports System.Console
Module Module3
    Dim opc As String
    Dim base, altura, area As Double
    Sub Main()

        WriteLine("MENU DE OPCIONES")
        WriteLine()
        WriteLine("A. El valor del área de un triángulo, dada la base y la altura.")
        WriteLine("B. El valor de la base de un triángulo, dada la altura y el área.")
        WriteLine("C. El valor de la altura de un triángulo, dada la base y el área.")
        WriteLine()
        Write("Seleccione su Opción: ")
        opc = ReadLine()

        Select Case opc.ToUpper
            Case "A"
                Clear()
                Write("Ingrese la Base : ")
                base = ReadLine()
                Write("Ingrese la Altura : ")
                altura = ReadLine()
                area = (base * altura) / 2
                WriteLine()
                WriteLine("El Área es : " & area)
            Case "B"
                Clear()
                Write("Ingrese la Altura : ")
                altura = ReadLine()
                Write("Ingrese el Área : ")
                area = ReadLine()
                base = (area * 2) / altura
                WriteLine()
                WriteLine("La Base es : " & base)
            Case "C"
                Clear()
                Write("Ingrese la Base : ")
                base = ReadLine()
                Write("Ingrese la Área : ")
                area = ReadLine()
                altura = (area * 2) / base
                WriteLine()
                WriteLine("La Altura es : " & altura)
            Case Else : WriteLine("Opción Incorrecta")
        End Select
        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.