Essays.club - Ensayos gratis, notas de cursos, notas de libros, tareas, monografías y trabajos de investigación
Buscar

Tema- Algoritmos Selectivos

Enviado por   •  21 de Marzo de 2018  •  2.791 Palabras (12 Páginas)  •  322 Visitas

Página 1 de 12

...

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"

...

Descargar como  txt (19 Kb)   pdf (82.5 Kb)   docx (32 Kb)  
Leer 11 páginas más »
Disponible sólo en Essays.club