Tema- Algoritmos Selectivos
Enviado por jacysolorzano • 10 de Agosto de 2016 • Práctica o problema • 8.953 Palabras (36 Páginas) • 291 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
...