Tema- Algoritmos Selectivos
jacysolorzanoPráctica o problema10 de Agosto de 2016
8.953 Palabras (36 Páginas)316 Visitas
- Un hombre tiene un capital en un banco, desea saber cuánto dinero se genera por concepto de intereses sobre la cantidad que tiene. Si su interés exceden a $7000, reinvierte sus intereses y en ese caso desea saber cuánto dinero tendrá finalmente en su cuenta.
Module Module1
Sub Main()
Dim CAPI, INT, TOTAL, TOIN, TOTA As Double
Console.WriteLine("POR FAVOR DIGITE SU CAPITAL")
CAPI = Console.ReadLine
Console.WriteLine("POR FAVOR DIGITE EL VALOR DEL INTERES")
INT = Console.ReadLine
TOTAL = (CAPI * INT) / 100
TOIN = CAPI + TOTAL
If INT > 7000 Then
TOTA = TOTAL + TOIN
Console.WriteLine("TENDRA EN TOTAL LA SUMA DE:" & TOTA)
End If
TOTA = CAPI + INT
Console.WriteLine("TENDRA EN TOTAL LA SUMA DE:" & TOTAL)
Console.ReadLine()
End Sub
End Module
- Lea dos números y diga si el primero de ellos es mayor, menor o igual que el segundo.
Module Module1
Sub Main()
Dim N1, N2 As Integer
Console.WriteLine("POR FAVOR DIGITE EL PRIMER NUMERO")
N1 = Console.ReadLine
Console.WriteLine("POR FAVOR DIGITE EL SEGUNDO NUMERO")
N2 = Console.ReadLine
If N1 > N2 Then
Console.WriteLine("EL PRIMER NUMERO ES MAYOR QUE EL SEGUNDO")
Else
If N1 < N2 Then
Console.WriteLine("EL PRIMER NUMERO ES MENOR QUE EL SEGUNDO")
Else
Console.WriteLine("EL PRIMERO NUMERO ES IGUAL AL SEGUNDO")
End If
End If
Console.ReadLine()
End Sub
End Module
- Realice un algoritmo que lea un número e indique si este es positivo, negativo o neutro.
Module Module1
Sub Main()
Dim NUM As Integer
Console.WriteLine("POR FAVOR DIGITE UN NUMERO")
NUM = Console.ReadLine
If NUM > 0 Then
Console.WriteLine("EL NUMERO ES POSITIVO")
Else
If NUM < 0 Then
Console.WriteLine("EL NUMERO ES NEGATIVO")
Else
Console.WriteLine("EL NUMERO ES NEUTRO")
End If
End If
Console.ReadLine()
End Sub
End Module
- Determinar si un alumno aprueba o reprueba un curso, sabiendo que aprobará si su promedio de tres calificaciones es mayor o igual a 3,5 y reprobará en caso contrario.
Module Module1
Sub Main()
Dim PRO As Double
Console.WriteLine("POR FAVOR DIGITE EL PROMEDIO DEL ESTUDIANTE")
PRO = Console.ReadLine
If (PRO > 3.5) Then
Console.WriteLine("EL ESTUDIANTE APROBO")
Else
Console.WriteLine("EL ESTUDIANTE REPROBO")
End If
Console.ReadLine()
End Sub
End Module
- Dadas las 3 notas de un alumno, calcule la definitiva de la asignatura si la primera nota tiene un valor del 20%, la segunda del 30% y la última del 50%. Verificar si aprueba la asignatura y si no la aprueba, indicar si puede habilitar, sabiendo que se aprueba con nota mínima de 3,5 y pierde el derecho a habilitar con nota inferior a 2.
Module Module1
Sub Main()
Dim N1, N2, N3, PN1, PN2, PN3, NTA As Double
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")
...