Imports System

'PRACTICA 1

'REALIZADO POR: Ara Robredo

Public Module Module1

    Public Sub Main()

        Console.WriteLine("MENU OPCIONES")

        CONSOLE.WriteLine("1. EXPRESION 1")

        CONSOLE.WriteLine("2. EXPRESION 2")

        CONSOLE.WriteLine("3. ESPRESION 3")

        DIM OPCION AS INTEGER

        OPCION = CONSOLE.ReadLine()

        SELECT OPCION

        CASE 1

            TEOREMA

        END SELECT

    End Sub

    PRIVATE SUB TEOREMA 

        DIM A, B AS INTEGER

        DIM C AS DOUBLE

        'SOLICITAR A Y B

        CONSOLE.WriteLine("INGRESE A: ")

        A = CONSOLE.ReadLine()

        CONSOLE.WriteLine("INGRESE B: ")

        B = CONSOLE.ReadLine()

        'EVITAR CERO Y NEGATIVOS

        IF A>0 AND B>0 THEN

        C = MATH.Sqrt(A^2 + B^2)

        CONSOLE.WriteLine("EL RESULTADO ES: " &C)

    ELSE

        CONSOLE.WriteLine("INGRESO UNA VARIABLE NO VALIDA")

        MAIN()

    END IF 

    END SUB

        PRIVATE SUB EXPR2

        DIM R, H AS INTEGER

        DIM AC, PI AS DOUBLE

        PI = 3.1416

        CONSOLE.WriteLine("INGRESE R: ")

        R = CONSOLE.ReadLine()

        CONSOLE.WriteLine("INGRESE H: ")

        IF R>0 AND H>0 THEN

            AC = PI^R^2^H

            CONSOLE.WriteLine("EL RESULTADO ES: " &AC)

        ELSE

            CONSOLE.WriteLine("INGRESO UNA VARIABLE NO VALIDA")

        END IF 

    END SUB

End Module