TRABAJO1 VISUAL BASIC Deber

DEBER DE PROGRAMACION
RONNY NOBOA
3ero MECÁNICA “B”
1. Calcular el volumen de una esfera = 4/3 pi r3 conociendo su radio, el resultado de la esfera es la altura para calcular el volumen del conodel mismo radio.
Sub Main()
Const pi = 3.1416
Dim r As Decimal
Dim vol As Decimal
Console.WriteLine("Ingrese el valor del radio")
r = Console.ReadLineConsole.WriteLine()
vol = 4 / 3 * pi * r * r * r
Console.WriteLine("El valor del volumen es: " & vol)
Console.ReadKey()
End Sub

2. En un centro de comunicaciones alquilantarjetas para realizar llamadas y cobran el monto consumido de la tarjeta más un recargo del 20%. Teniendo como dato de entrada el monto inicial y el monto final de la tarjeta, determine el costo de lallamada.
Sub Main()
Dim Mi, Mf, Mc As Integer
Dim Cost As Decimal
Console.WriteLine("Ingrese el monto inicial")
Mi = Console.ReadLine
Console.WriteLine()Console.WriteLine("Ingrese el monto final")
Mf = Console.ReadLine
Console.WriteLine()
Mc = Mi - Mf
Cost = Mc + (Mc * 0.2)
Console.WriteLine("El costo de lallamada es: " & Cost)
Console.ReadKey()
End Sub

3. Un taxi cobra por una carrera 5 USD por kilómetro recorrido y 2 USD por metro. Determine el monto a pagar por una carrera.
Sub Main()Dim Km As Integer
Dim m As Integer
Dim Mp As Integer
Console.WriteLine("Ingrese los km recorridos")
Km = Console.ReadLine
Console.WriteLine()Console.WriteLine("Ingrese los metros recorridos")
m = Console.ReadLine
Console.WriteLine()
Mp = (Km * 5.0) + (m * 2.0)
Console.WriteLine("El monto a pagar por la carrera es: " &Mp)
Console.ReadKey()
End Sub

4. Una empresa le hace los siguientes descuentos sobre el sueldo base a sus trabajadores: 1% por ley de política habitacional, 4% por Seguro Social, 0,5% por...