Tema- Algoritmos Selectivos
Enviado por John0099 • 21 de Marzo de 2018 • 2.791 Palabras (12 Páginas) • 316 Visitas
...
Console.WriteLine("DIGITE LA PRIMERA NOTA")
N1 = Console.ReadLine
Console.WriteLine("POR FAVORDIGITE LA SEGUNTA NOTA")
N2 = Console.ReadLine
Console.WriteLine("POR FAVOR DIGITE LA TERCERA NOTA")
N3 = Console.ReadLine
PN1 = (N1 * 20) / 100
PN2 = (N2 * 30) / 100
pN3 = (N3 * 50) / 100
NTA = PN1 + PN2 + PN3
If NTA > 3.5 Then
Console.WriteLine("EL ESTUDIANTE APRUEBA")
Else
Console.WriteLine("EL ESTUDIANTE NO APRUEBA")
If NTA > 2.0 Then
Console.WriteLine("EL ESTUDIANTE TIENE DERECHO HABILITAR")
Else
Console.WriteLine("EL ESTUDIANTE NO TIENE DERECHO HABILITAR")
End If
End If
Console.ReadLine()
End Sub
End Module
- Lea la cantidad y precio de las unidades que vendió, calcule el valor de la comisión ganada por un vendedor, para cantidades entre 5000 y 9999 unidades el 5% de la venta y el 10% cuando la venta es superior a 9999 unidades.
odule Module1
Sub Main()
Dim CAM, PPU, COMI, TOTAL As Double
Console.WriteLine("POR FAVOR DIGITE LA CANTIDAD DE UNIDADES VENDIDAS ")
CAM = Console.ReadLine
Console.WriteLine("POR FAVOR DIGITE EL PRCIO POR UNIDAD")
PPU = Console.ReadLine
If (CAM > 5000) And (CAM Then
TOTAL = CAM * PPU
COMI = (TOTAL * 5) / 100
Console.WriteLine("LA COMISION QUE RECIBIRA ES DE:" & COMI)
Else
If CAM > 9999 Then
TOTAL = CAM * PPU
COMI = (TOTAL * 10) / 100
Console.WriteLine("LA COMISION QUE RECIBIRA ES DE:" & COMI)
Else
Console.WriteLine("NO RECIBE COMISION")
End If
End If
Console.ReadLine()
End Sub
End Module
- En un almacén se hace un 20% de descuento a los clientes cuya compra supere los $1000, si es menor no tiene descuento ¿ Cuál será la cantidad que pagará una persona por su compra?
Dim CON, DESCUENTO, TOTAL As Double
Console.WriteLine("POR FAVOR DIGITE EL VALOR DE SU COMPRA")
CON = Console.ReadLine
If CON > 1000 Then
DESCUENTO = (CON * 20) / 100
TOTAL = CON - DESCUENTO
Console.WriteLine("TIENE UN DESCUENTO DE 20%... EL TOTAL DE SU COMPRA ES DE:" & TOTAL)
Else
Console.WriteLine("NO TIENE DESCUENTO... EL TOTAL DE SU COMPRA ES:" & CON)
End If
Console.ReadLine()
End Sub
End Module
8) Un obrero necesita calcular su salario semanal, el cual se obtiene de la sig. manera: Si trabaja 40 horas o menos se le paga $16 por hora. Si trabaja más de 40 horas se le paga $16 por cada una de las primeras 40 horas y $20 por cada hora extra.
Module Module1
Sub Main()
Dim HTR, TOTAL, HX, TOT As Double
Console.WriteLine("POR FAVOR DIGITE EL NUMERO DE HORAS QUE TRABAJO")
HTR = Console.ReadLine
If HTR > 40 Then
TOTAL = HTR * 16
HX = (HTR - 40) * 20
TOT = TOTAL + TOT
Console.WriteLine("SU SALARIO DE ESTA SEMANA ES DE:" & TOT)
Else
TOTAL = HTR * 16
Console.WriteLine("SU SALARIO DE ESTA SEMANA ES DE:" & TOTAL)
End If
Console.ReadLine()
End Sub
End Module
- Una persona enferma, que pesa 70 kg, se encuentra en reposo y desea saber cuántas calorías consume su cuerpo mientras realiza una actividad. Las actividades son únicamente dormir o estar sentado. Dormido consume 1.08 calorías/minuto y sentado 1.66 calorías/min.
odule Module1
Sub Main()
Dim TIMAC, CQ As Double
Dim a, b, actv As String
a = "dormir"
b = "sentado"
...