INSTITUTO POLITÉCNICO NACIONAL
INGENIERÍA CIVIL
INGENIERÍA SANITARIA Y AMBIENTAL
Dado 4 numeros enteros, obtener el porcentaje de cada uno en funcon a la suma de los 4 numeros
ingresados
Dim num1, num2, num3, num4 As Integer
Dim suma As Integer
Dim porcentaje1, porcentaje2, porcentaje3, porcentaje4 As Double
' Pedir al usuario que ingrese los 4 números enteros
num1 = InputBox("Ingrese el primer número:")
num2 = InputBox("Ingrese el segundo número:")
num3 = InputBox("Ingrese el tercer número:")
num4 = InputBox("Ingrese el cuarto número:")
' Calcular la suma de los 4 números
suma = num1 + num2 + num3 + num4
' Calcular el porcentaje de cada número en función a la suma
porcentaje1 = (num1 / suma) * 100
porcentaje2 = (num2 / suma) * 100
porcentaje3 = (num3 / suma) * 100
porcentaje4 = (num4 / suma) * 100
' Mostrar el porcentaje de cada número
MsgBox("El porcentaje del primer número es: " & porcentaje1 & "%" & vbNewLine &
"El porcentaje del segundo número es: " & porcentaje2 & "%" & vbNewLine &
"El porcentaje del tercer número es: " & porcentaje3 & "%" & vbNewLine &
"El porcentaje del cuarto número es: " & porcentaje4 & "%")
Realizar un melate. Trabajar los números de forma aleatoria en el rango de 1 a 44. De acuerdo a los
números que caigan, indicar el premio a otorgar.
Nota: Utilizar 6 etiquetas para imprimir los números; pero en cada etiqueta sólo debe imprimirse un
número y estos no se deben repetir pero tampoco a parecer iguales
' Declarar un objeto de tipo Random para generar números aleatorios
Dim random As New Random()
NAVA GARCIA FERNANDO ISRAEL 3CM06
INSTITUTO POLITÉCNICO NACIONAL
INGENIERÍA CIVIL
INGENIERÍA SANITARIA Y AMBIENTAL
' Declarar una lista para almacenar los números sorteados
Dim numerosSorteados As New List(Of Integer)
' Generar 6 números aleatorios en el rango de 1 a 44
Do While numerosSorteados.Count < 6
Dim numeroAleatorio As Integer = random.Next(1, 45)
If Not numerosSorteados.Contains(numeroAleatorio) Then
numerosSorteados.Add(numeroAleatorio)
End If
Loop
' Ordenar los números sorteados de menor a mayor
numerosSorteados.Sort()
' Imprimir los números sorteados en 6 etiquetas
Etiqueta1.Text = numerosSorteados(0)
Etiqueta2.Text = numerosSorteados(1)
Etiqueta3.Text = numerosSorteados(2)
Etiqueta4.Text = numerosSorteados(3)
Etiqueta5.Text = numerosSorteados(4)
Etiqueta6.Text = numerosSorteados(5)
' Determinar el premio a otorgar según los números sorteados
Dim premio As String = ""
Select Case numerosSorteados(0)
Case 1 To 10
premio = "Premio mayor"
Case 11 To 20
premio = "Segundo premio"
Case 21 To 30
premio = "Tercer premio"
Case 31 To 40
premio = "Cuarto premio"
Case Else
premio = "Quinto premio"
End Select
NAVA GARCIA FERNANDO ISRAEL 3CM06
INSTITUTO POLITÉCNICO NACIONAL
INGENIERÍA CIVIL
INGENIERÍA SANITARIA Y AMBIENTAL
' Mostrar el premio en una ventana de mensaje
MsgBox("El premio es: " & premio)
Al imprimir cualquier tecla en el rango de 09 imprimir el nombre del número en inglés y español
' Esperar a que el usuario presione una tecla
Dim tecla As ConsoleKeyInfo = Console.ReadKey()
' Verificar si la tecla presionada está en el rango de 0 a 9
If tecla.KeyChar >= "0"c AndAlso tecla.KeyChar <= "9"c Then
' Convertir la tecla presionada en un número entero
Dim numero As Integer = Integer.Parse(tecla.KeyChar.ToString())
' Definir dos arreglos con los nombres de los números en inglés y español
Dim numerosEnIngles() As String = {"Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven",
"Eight", "Nine"}
Dim numerosEnEspanol() As String = {"Cero", "Uno", "Dos", "Tres", "Cuatro", "Cinco", "Seis",
"Siete", "Ocho", "Nueve"}
' Imprimir el nombre del número en inglés y español correspondiente
Console.WriteLine("Número en inglés: " & numerosEnIngles(numero))
Console.WriteLine("Número en español: " & numerosEnEspanol(numero))
Else
' Si la tecla presionada no está en el rango de 0 a 9, imprimir un mensaje de error
Console.WriteLine("Tecla no válida. Presione una tecla en el rango de 0 a 9.")
End If
TAREA 1
•
NAVA GARCIA FERNANDO ISRAEL 3CM06
