Se cargan por teclado tres números distintos. Mostrar por pantalla el mayor de ellos.

0

 

·         Realizar los siguientes ejercicio Estructuras condicionales anidadas

Problemas propuestos

1. Se cargan por teclado tres números distintos. Mostrar por pantalla el mayor de ellos. 

Module Module1

 

    Sub Main()

 

        Dim N1, N2, N3 As Long

 

        Console.WriteLine("Digete El Primer Numero:")

        N1 = Console.ReadLine

 

        Console.WriteLine("Digete El Segundo Numero:")

        N2 = Console.ReadLine

 

        Console.WriteLine("Digete El Tercer Numero:")

        N3 = Console.ReadLine

 

        If N1 > N2 And N1 > N3 Then

            If N2 > N3 Then

                Console.WriteLine("El numero mayor es :" & N1)

                Console.WriteLine("El numero menor es :" & N3)

                Console.ReadLine()

            Else

                Console.WriteLine("El numero mayor es :" & N1)

                Console.WriteLine("El numero menor es :" & N2)

                Console.ReadLine()

            End If

        ElseIf N2 > N1 And N2 > N3 Then

            If N1 > N3 Then

                Console.WriteLine("El numero mayor es :" & N2)

                Console.WriteLine("El numero menor es :" & N3)

                Console.ReadLine()

            Else

                Console.WriteLine("El numero mayor es :" & N2)

                Console.WriteLine("El numero menor es :" & N1)

                Console.ReadLine()

            End If

        Else

            If N2 > N1 Then

                Console.WriteLine("El numero mayor es :" & N3)

                Console.WriteLine("El numero menor es :" & N1)

                Console.ReadLine()

            Else

                Console.WriteLine("El numero mayor es :" & N3)

                Console.WriteLine("El numero menor es :" & N2)

                Console.ReadLine()

            End If

        End If

    End Sub

 

 

End Module

 

 


2. Se ingresa por teclado un valor entero, mostrar una leyenda que indique si el número es positivo, nulo o negativo. 

Public Class Form1

 

    Private Sub Button1_Click(ByVal sender As System.Object,

    ByVal e As System.EventArgs) Handles Button1.Click

        Dim n As Integer

        n = TextBox1.Text

        If (n = 0) Then

            TextBox2.Text = "El numero " + Trim(n) + " es nulo"

        Else

            If (n > 0) Then

                TextBox2.Text = "El numero " + Trim(n) + " es positivo"

            Else

                TextBox2.Text = "El numero " + Trim(n) + " es negativo"

            End If

        End If

    End Sub

End Class


3. Confeccionar un programa que permita cargar un número entero positivo de hasta tres cifras y muestre un mensaje indicando si tiene 1, 2, o 3 cifras. Mostrar un mensaje de error si el número de cifras es mayor.

 

 Module Module1

 

    Sub Main()

        Dim num As Integer

 

        Console.WriteLine("Ingrese un valor de hasta tres dígitos positivo:")

        num = Console.ReadLine

        If num < 10 Then

 

            Console.WriteLine("Tiene un dígito")

        End If

 

        If num > 9 & num < 100 Then

            Console.WriteLine("Tiene dos dígitos")

        End If

 

 

        If num < 1000 Then

            Console.WriteLine("Tiene tres dígitos")

        End If

 

 

 

        Console.WriteLine("Error en la entrada de datos.")

 

        Console.ReadLine()

 

    End Sub

 

End Module

 


4. Un postulante a un empleo, realiza un test de capacitación, se obtuvo la siguiente información: cantidad total de preguntas que se le realizaron y la cantidad de preguntas que contestó correctamente. Se pide confeccionar un programa que ingrese los dos datos por teclado e informe el nivel del mismo según el porcentaje de respuestas correctas que ha obtenido, y sabiendo que:


Nivel máximo: Porcentaje>=90%.
Nivel medio: Porcentaje>=75% y <90%.
Nivel regular: Porcentaje>=50% y <75%.
Fuera de nivel: Porcentaje<50%.

 

 

Module Module1

 

    Sub Main()

        Dim totalpreguntas, totalcorrectas As Integer

 

        Console.Write("Ingrese la cantidad total de preguntas del examen:")

        totalpreguntas = Console.ReadLine

 

        Console.Write("Ingrese la cantidad total de preguntas contestadas correctamente:")

        totalcorrectas = Console.ReadLine

 

 

        Dim porcentaje = totalcorrectas * 100 / totalpreguntas

 

        If porcentaje >= 90 Then

 

        End If

        Console.WriteLine("Nivel Maximo")

 

 

        If porcentaje >= 70 Then

 

        End If

 

        Console.WriteLine("Nivel Medio")

 

 

        If porcentaje >= 50 Then

 

        End If

 

        Console.WriteLine("Nivel Regular")

 

 

 

        Console.ReadLine()

 

 

    End Sub

 

End Module




 

No hay comentarios