ESTRUCTURAS DE CONTROL EN VB .NET
Objetivos:
- Practicar las estructuras de control de selección.
- Practicar las estructura de control de repetición.
Comentario (Auto evaluación de lo aprendido): Las estructuras de control contienen bloques de código que serán ejecutados en función del resultado obtenido al evaluar una expresión asociada a la estructura. A este proceso de redirección del flujo del programa hacia un determinado bloque de código se le denomina bifurcación (Ya antes mencionado en las practicas de PSeint).
Prácticamente es lo mismo que en PSeint solo que el uso es diferente e en ingles.
Estructura de selección: Permite ejecutar o no, un bloque de código entre varios disponibles, según el resultado de una expresión en el inicio de la estructura. Estas son:
- if... them
- if... them... else
- if... them... elself
- Select Case
Estructura de control de repetición: También denominadas bucles, ejecuta un instrucción de forma repetitiva
mientras se cumpla una condición asociada a la estructura. A cada vez que se ejecuta la instrucción se le llama iteración. Estas son:
- For... Next
- For... Loop
- Exit
-Do while... Loop
-Do Until... Loop
1. Capturar por teclado la cantidad vendida y si la venta supera los 25,000 imprimir el mensaje meta superada.
Codigo en VB.NET
Module Module1
Sub Main()
Dim venta As Integer
Console.Write("Ingrese cantidad obtenida en sus ventas: ")
venta = Console.ReadLine()
Console.WriteLine()
If venta >= 25000 Then
Console.Write("¡Meta Superada!")
Else
Console.Write("Meta no superada...")
End If
Console.ReadLine()
End Sub
End Module
Resultado.
3. Capturar la edad de una persona, determinar e imprimir si es o no mayor de edad.
Codigo en VB.NET
Module Module2
Sub main()
Dim edad As Integer
Console.Write("Ingrese su edad: ")
edad = Console.ReadLine
If edad >= 18 Then
Console.WriteLine()
Console.Write("Si es mayor de edad.")
Else
Console.Write("No es mayor de edad.")
End If
Console.ReadLine()
End Sub
End Module
Resultado.
5. Capturar por teclado 3 números enteros y determinar cuál es el mayor.
Codigo en VB.NET
Module Module3
Sub Main()
Dim n1, n2, n3 As Integer
Console.WriteLine("El programa determinara cual numero es mayor.")
Console.WriteLine("Ingrese sus 3 numeros.")
Console.Write("Ingrese el primer numero: ")
n1 = Console.ReadLine()
Console.Write("Ingrese el segundo numero: ")
n2 = Console.ReadLine()
Console.Write("Ingrese el tercer numero: ")
n3 = Console.ReadLine()
Console.WriteLine()
If n1 > n2 And n1 > n3 Then
Console.Write("El numero mayor es: " & n1)
Else
If n2 > n3 And n2 > n1 Then
Console.Write("El numero mayor es: " & n2)
Else
If n3 > n1 And n3 > n2 Then
Console.Write("El numero mayor es: " & n3)
Else
Console.Write("Los numeros son iguales.")
End If
End If
End If
Console.ReadLine()
End Sub
End Module
Resultado.
7. Capturar un número por teclado e imprimir si dicho número es primo o no.
Codigo en VB.NET
Module Module4
Sub main()
Dim a As Integer = 0
Dim n As Integer
Console.WriteLine("Ingrese un numero, El programa dira si es primo o no.")
Console.Write("Ingrese su numero:")
n = Console.ReadLine()
For i As Integer = 1 To n + 1
If (n Mod i = 0) Then
a = a + 1
End If
Next i
If (a <> 2) Then
Console.WriteLine("No es primo.")
Else
Console.WriteLine("Si es primo.")
End If
Console.ReadLine()
End Sub
End Module
Resultado.
9. Mostrar los números del 1 al 100.
Codigo en VB.NET
Module Module5
Sub main()
Dim n As Integer
Console.WriteLine("Numeros del 1 al 100")
For n = 1 To 100
Console.WriteLine("Numero: " & n)
Next
Console.ReadLine()
End Sub
End Module
Resultado.
11. Capturar 10 números enteros, calcular e imprimir el cubo de la suma de los números capturados.
Codigo en VB.NET
Module Module7
Sub main()
Dim n, num, total As Integer
total = 0
Console.WriteLine("El programa calculara el cubo de la suma de 10 numeros enteros.")
For n = 1 To 10
Console.WriteLine("Ingrese el numero " & n & ":")
num = Console.ReadLine()
total = total + num
Next
Console.WriteLine("")
Console.WriteLine("El cubo de la suma de los numeros es: " & total ^ 3)
Console.ReadLine()
End Sub
End Module
Resultado.
13. Capturar la nota promedio y el promedio de asistencia de una cantidad de estudiantes especificada por el usuario
a través del teclado, calcular e imprimir cuantos aprobaron la materia, cuantos harán complementario y cuantos
reprobaron.
Codigo en VB.NET
Module Module7
Sub Main()
Dim n, P, A, total As Decimal
Dim apro, comple, repro As Integer
apro = 0
comple = 0
repro = 0
Console.Write("Ingrese la cantidad de estudiantes: ")
n = Console.ReadLine()
Console.WriteLine()
For i = 1 To n
Console.WriteLine("Datos para estudiante " & i)
Console.Write("Su nota promedio: ")
P = Console.ReadLine()
Console.Write("Su promedio de asistencia: ")
A = Console.ReadLine()
Console.WriteLine()
total = (P + A) / 2
If total >= 6 Then
apro = apro + 1
Else
If total >= 5 And total <= 5.99 Then
comple = comple + 1
Else
If total < 5 Then
repro = repro + 1
End If
End If
End If
Next
Console.WriteLine()
Console.WriteLine("El numero de Aprovados es: " & apro)
Console.WriteLine("El numero que ira a complementarios: " & comple)
Console.WriteLine("El numero de reprovados es: " & repro)
Console.ReadLine()
End Sub
End Module
Resultado.
15. Escriba un programa para generar 5 tablas de multiplicar de números aleatorios entre 20 y 50.
Codigo en VB.NET
Module Module8
Sub Main()
Dim i, n, t, r As Integer
Console.WriteLine("Se generaran 5 tablas de multiplicar aleatorias entre los numeros de 20 y 50")
Console.WriteLine()
Randomize()
Do Until t = 5
n = CInt(Int((50 * Rnd()) + 20))
For i = 1 To 10
r = n * i
Console.WriteLine(n & "x" & i & " = " & r)
Next
Console.WriteLine()
t = t + 1
Loop
Console.ReadLine()
End Sub
End Module
Resultado.
17. Capturar por teclado un número de teléfono, calcular e imprimir cuantos dígitos pares e impares posee.
Codigo en VB.NET
Module Module9
Sub Main()
Dim telefono As String
Dim pares, impar As Integer
pares = 0
impar = 0
Console.Write("Ingrese el número de su telefono: ")
telefono = Console.ReadLine()
Console.WriteLine()
For i = 0 To telefono.Length - 1
If telefono.Substring(i, 1) Mod 2 = 0 Then
pares = pares + 1
Else
impar = impar + 1
End If
Next
Console.Write("Los pares son: ")
For i = 0 To telefono.Length - 1
If telefono.Substring(i, 1) Mod 2 = 0 Then
Console.Write(telefono.Substring(i, 1) & " ")
End If
Next
Console.WriteLine()
Console.Write("Los impares son: ")
For i = 0 To telefono.Length - 1
If telefono.Substring(i, 1) Mod 2 <> 0 Then
Console.Write(telefono.Substring(i, 1) & " ")
End If
Next
Console.WriteLine()
Console.WriteLine()
Console.WriteLine("Números pares: " & pares)
Console.WriteLine("Números impares: " & impar)
Console.ReadLine()
End Sub
End Module
Sub Main()
Dim telefono As String
Dim pares, impar As Integer
pares = 0
impar = 0
Console.Write("Ingrese el número de su telefono: ")
telefono = Console.ReadLine()
Console.WriteLine()
For i = 0 To telefono.Length - 1
If telefono.Substring(i, 1) Mod 2 = 0 Then
pares = pares + 1
Else
impar = impar + 1
End If
Next
Console.Write("Los pares son: ")
For i = 0 To telefono.Length - 1
If telefono.Substring(i, 1) Mod 2 = 0 Then
Console.Write(telefono.Substring(i, 1) & " ")
End If
Next
Console.WriteLine()
Console.Write("Los impares son: ")
For i = 0 To telefono.Length - 1
If telefono.Substring(i, 1) Mod 2 <> 0 Then
Console.Write(telefono.Substring(i, 1) & " ")
End If
Next
Console.WriteLine()
Console.WriteLine()
Console.WriteLine("Números pares: " & pares)
Console.WriteLine("Números impares: " & impar)
Console.ReadLine()
End Sub
End Module
Resultado.
Codigo en VB.NET
Module Module10
Module Module10
Sub Main()
Dim p, n As Integer
Dim a, c As String
Console.WriteLine("Conversor Decimal a Binario, Hexadecimal y Octal.")
Console.WriteLine()
Console.WriteLine("Seleccione a la base que desea convertir:")
Console.WriteLine("[1] = Binario")
Console.WriteLine("[2] = Octal")
Console.WriteLine("[3] = Hexadecimal")
Console.WriteLine("[4] = Salir")
Console.Write("Su opción es: ")
p = Console.ReadLine()
If p = 4 Then Exit Sub
Console.WriteLine()
Console.Write("Ingrese número en base 2 para convertir: ")
n = Console.ReadLine()
Console.Clear()
Select Case p
Case 1
Dim b As String
Console.WriteLine("Convirtiendo su numero " & n & ", a Binario:")
Do Until n < 2
b = b & CStr(n Mod 2)
n = Int(n / 2)
Loop
b = b & n
c = StrReverse(b)
Console.WriteLine()
Console.WriteLine("El en binario es: " & c)
Case 2
Console.WriteLine("Convirtiendo su numero " & n & ", a Octal")
n = Oct(n)
Console.WriteLine()
Console.WriteLine("El numero en octal es: " & n)
Case 3
Console.WriteLine("Convirtiendo su numero " & n & ", a Hexadecimal")
a = Hex(n)
Console.WriteLine()
Console.WriteLine("El numero en Hexadecimal es: " & a)
End Select
Console.ReadLine()
End Sub
End Module
Dim p, n As Integer
Dim a, c As String
Console.WriteLine("Conversor Decimal a Binario, Hexadecimal y Octal.")
Console.WriteLine()
Console.WriteLine("Seleccione a la base que desea convertir:")
Console.WriteLine("[1] = Binario")
Console.WriteLine("[2] = Octal")
Console.WriteLine("[3] = Hexadecimal")
Console.WriteLine("[4] = Salir")
Console.Write("Su opción es: ")
p = Console.ReadLine()
If p = 4 Then Exit Sub
Console.WriteLine()
Console.Write("Ingrese número en base 2 para convertir: ")
n = Console.ReadLine()
Console.Clear()
Select Case p
Case 1
Dim b As String
Console.WriteLine("Convirtiendo su numero " & n & ", a Binario:")
Do Until n < 2
b = b & CStr(n Mod 2)
n = Int(n / 2)
Loop
b = b & n
c = StrReverse(b)
Console.WriteLine()
Console.WriteLine("El en binario es: " & c)
Case 2
Console.WriteLine("Convirtiendo su numero " & n & ", a Octal")
n = Oct(n)
Console.WriteLine()
Console.WriteLine("El numero en octal es: " & n)
Case 3
Console.WriteLine("Convirtiendo su numero " & n & ", a Hexadecimal")
a = Hex(n)
Console.WriteLine()
Console.WriteLine("El numero en Hexadecimal es: " & a)
End Select
Console.ReadLine()
End Sub
End Module
Resultado.
Solucion del proyecto:
No hay comentarios:
Publicar un comentario