EJERCICIOS EN CONSOLA.NET PARTE3

21.determinar si un numero es positivo o negativo a traves de un mensaje

Module Module32

    Sub main()

        Dim num As Integer

        Dim resultado As String

        Console.WriteLine("ingrese numero:")

        num = Console.ReadLine()

        If num > 0 Then

            resultado = "positivo"

        Else

            resultado = "cero"

            If num < 0 Then

                resultado = "negativo"

            Else : resultado = "es cero"

            End If

        End If

        Console.WriteLine("el numero ingresado es:" & resultado)

        Console.ReadLine()

    End Sub

End Module

22.implementar una aplicacion que permita digitar un lenguaje de programación….

Module Module33

    Sub main()

        Console.WriteLine("digite su lenguaje favorito:")

        Dim lenguaje As String

        lenguaje = Console.ReadLine()

        lenguaje = lenguaje.ToUpper

        If lenguaje = "visual basic" Or lenguaje = "visual basic.net" Then

            Console.Write(lenguaje & "es otro lenguaje")

        End If

        Console.ReadLine()

    End Sub

End Module

23.En una playa de estacionamiento cobran S/. 2,5 por hora o fracción. Diseñar una aplicación que determine cuanto debe pagar un cliente por el estacionamiento de su vehículo, conociendo el tiempo de estacionamiento en horas y fracción.

Module Module34

    Sub main()

        'modulo35

        Dim h, m, m1, resul, tiempo As Integer

        Console.WriteLine("ingrese el tiempo en horas: ")

        h = Console.ReadLine()

        Console.WriteLine("ingrese cntidad en minutos: ")

        m = Console.ReadLine()

        If m > 0 And m < 60 Then

            m1 = 2.5

        Else

            m = 0

            Console.WriteLine("ingrese minutos entre 1 y 60 ")

            If m > 0 And m < 60 Then

                m1 = 2.5

            End If

        End If

        resul = (h * 2.5) + m1

        Console.WriteLine("el pago a realizar es: " & " s/. " & resul & " nuevos soles ")

        Console.ReadLine()

        Console.Clear()

        main()

    End Sub

End Module

24.Una companiña dedicada al alquiler de automoviles cobra un monto fijo de 200.00 para los primeros 300 km, cobra un adicional de S/. 5.00 por cada km en exceso sobre los 300 km.Para mas de 1000 km cobra S/ 3.00 por cada km en exceso sobre los 1000 km.Determinar el mont a pagar e impuesto.

Module Module35

    Sub main()

        Dim monto = 200

        Dim km, km1, km2, igv, exce, exce1, monto1 As Integer

        Console.WriteLine("Ingrese kilometros:")

        km = Console.ReadLine()

        If km > 0 And km < 300 Then

            Console.WriteLine("el monto a pagar es: " & monto)

            igv = monto * 0.19

        ElseIf km > 300 And km <= 1000 Then

            Console.WriteLine("el monto fijo por los primeros 300 km es:" & monto)

            km1 = km - 300

            Console.WriteLine("los km excedidos son:" & km1)

            exce = (km1 * 5)

            Console.WriteLine("el exceso delos kms importa:" & exce)

            monto1 = monto + (km1 * 5)

            Console.WriteLine("el monto a pagar es:" & monto1)

        End If

        Console.ReadLine()

        Console.Clear()

        main()

    End Sub

End Module

25.Una ferreteria desea tener un programa que le permita seleccionar cualquiera de las opcines, según tabla en tu hoja de consola 39  Calcular el total a pagar por cada articulo según aparatos sanitarios o materiales de construccion.

Module Module36

    Sub main()

        'modulo39

        Dim opcion As Integer

        opcion = 0

        Do While opcion < 3

            Console.WriteLine("DISTRIBUCION")

            Console.WriteLine("[1] aparatos sanitarios")

            Console.WriteLine("[2] materiales de construccion")

            Console.WriteLine("[3] terminar")

            Console.Write("elija la opcion de la ferreteria: ")

            opcion = Console.ReadLine()

            Select Case opcion

                Case Is = 1

                    aparatos()

                Case Is = 2

                    materiales()

            End Select

        Loop

    End Sub