Practica IX
1.Cree una aplicación que imprima en pantalla su nombre completo
Sub Main()
Console.WriteLine("Diego Fernando Henriquez")
Console.ReadLine()
End Sub
End Module
3. Elaborar una aplicación que capture un número entero positivo y que muestre la raíz cuadrada del número.
Module Module3
Sub Main()
Dim numero, raiz As Decimal
Console.WriteLine("Ingrese un número entero positivo:")
numero = Console.ReadLine()
raiz = Math.Sqrt(numero)
Console.WriteLine("La raíz de su número es: " & raiz)
Console.ReadLine()
End Sub
End Module
4. Crear una aplicación que capture por teclado el nombre y la cantidad invertida por 3 empresarios, que muestre el nombre, cantidad invertida y el porcentaje de inversión que corresponde a cada uno.
Module Module4
Sub Main()
Dim N1, N2, N3 As String
Dim I1, I2, I3 As Integer
Dim P1, P2, P3 As Integer
Dim PR As Decimal
Dim TI As Decimal
Console.WriteLine("Ingrese el nombre de los 3 empresarios: ")
N1 = Console.ReadLine()
N2 = Console.ReadLine()
N3 = Console.ReadLine()
Console.WriteLine("Ingrese el monto invertido por los 3 empresarios: ")
I1 = Console.ReadLine()
I2 = Console.ReadLine()
I3 = Console.ReadLine()
TI = (Val(I1) + Val(I2) + Val(I3))
PR = TI / 3
P1 = (I1 * 100%) / TI
P2 = (I2 * 100%) / TI
P3 = (I3 * 100%) / TI
Console.WriteLine("El monto total de inversión de los 3 empresarios es: " & TI & "$")
Console.WriteLine("El promedio de inversión de los 3 empresarios es: " & PR)
Console.WriteLine("El porcentaje de inversion de " & N1 & " será: " & P1 & "% con una inversión de " & I1 & "$")
Console.WriteLine("El porcentaje de inversion de " & N2 & " será: " & P2 & "% con una inversión de " & I2 & "$")
Console.WriteLine("El porcentaje de inversion de " & N3 & " será: " & P3 & "% con una inversión de " & I3 & "$")
Console.ReadLine()
End Sub
End Module
5. Crear una aplicación que capture el nombre del empleado y el sueldo, luego que limpie pantalla y muestre en color azul el nombre del empleado y el sueldo, y en color amarillo los descuentos de ISSS, Renta y AFP, y en color rojo el sueldo a pagar. Formatear las cantidades numéricas y monetarias.
Module Module5
Sub Main()
Dim nombre As String
Dim respuesta As Integer
Dim sueldo As Integer
Console.WriteLine("Ingrese su nombre completo porfavor:")
nombre = Console.ReadLine()
Console.WriteLine("Ingrese el sueldo porfavor:")
sueldo = Console.ReadLine()
Console.Clear()
Console.ForegroundColor = ConsoleColor.Blue
Console.WriteLine("Nombre empleado: " & nombre)
Console.WriteLine("Sueldo del empleado: " & FormatCurrency(sueldo))
Console.ForegroundColor = ConsoleColor.Yellow
Console.WriteLine("El descuento del seguro es: " & FormatCurrency(sueldo * 0.1))
Console.WriteLine("El descuento de la Renta es de: " & FormatCurrency(sueldo * 0.05))
Console.WriteLine("El descuento del AFP: " & FormatCurrency(sueldo * 0.15))
Console.ForegroundColor = ConsoleColor.Red
respuesta = (FormatCurrency(sueldo * 0.3))
Console.WriteLine("Su sueldo final será: " & FormatCurrency(sueldo - respuesta))
Console.ReadLine()
End Sub
End Module
6-Elaborar una aplicación que capture el nombre de una persona y luego sustitur la vocales que posee de la siguiente manera (*por a, % por e, $ por i, # por o y / por u)
Module Module6
Sub main()
Dim nombre As String
Dim a, e, i, o, u As String
Console.Write("Escriba su nombre: ")
nombre = Console.ReadLine()
nombre = Replace(nombre, "a", "*")
nombre = Replace(nombre, "e", "%")
nombre = Replace(nombre, "o", "$")
nombre = Replace(nombre, "a", "#")
nombre = Replace(nombre, "u", "/")
Console.WriteLine("Nuevo nombre: " & nombre)
Console.ReadLine()
End Sub
End Module
No hay comentarios:
Publicar un comentario