Estructuras Condicionales
Estructuras Condicionales
Simples o Dobles:
Ejercicio de Consola:
Diseñar
un programa en Consola que me permita insertar dos números y una de las
opciones: sumar(1) o restar (2).
Sub Main()
Dim numero1 As Integer
Dim numero2 As
Integer
Console.WriteLine("introduzca el primer
numero")
numero1 =
Console.ReadLine()
Console.WriteLine("introduzca el
segundo numero")
numero2 =
Console.ReadLine()
Console.WriteLine("escoja una opcion:1-sumar/2-restar")
If (Console.ReadLine = 1) Then
Console.WriteLine("el resultado de la
suma es:" & numero1 + numero2)
Console.ReadLine()
Else
Console.WriteLine("el resultado de la resta
es:" & numero1 - numero2)
Console.ReadLine()
End If
End Sub
Ejercicio de Consola:
Diseñar
un programa en Consola que me permita insertar dos números y una de las
opciones: sumar (1) o restar (2). Para resolver la operación se debe crear
procedimientos.
Sub Main()
Dim numero1 As Integer
Dim numero2 As
Integer
Console.WriteLine("introduzca el primer
numero")
numero1 =
Console.ReadLine()
Console.WriteLine("introduzca el
segundo numero")
numero2 =
Console.ReadLine()
Console.WriteLine("escoja una
opcion:1-sumar/2-restar")
If (Console.ReadLine = 1) Then
suma(numero1, numero2)
Console.ReadLine()
Else
resta(numero1, numero2)
Console.ReadLine()
End If
End Sub
Sub suma(ByVal
numero1, ByVal numero2)
Console.WriteLine("el
resultado de la resta es:" & numero1 + numero2)
Console.ReadLine()
End Sub
Sub resta(ByVal
numero1, ByVal numero2)
Console.WriteLine("el resultado de la
resta es:" & numero1 - numero2)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Crear un programa que me permita ingresar el
apellido, nombre y tres notas de un alumno. Se debe visualizar el promedio y su
condición de aprobado o desaprobado.
Sub Main()
Dim not1, not2, not3, prom As
Integer
Dim cond As
String
Console.Write("ingrese el apellido y nombre : ") : Console.ReadLine()
Console.Write("ingrese la primera nota : ") : not1 =
Console.ReadLine
Console.Write("ingrese la segunda nota : ") : not2 =
Console.ReadLine
Console.Write("ingrese la tercera nota : ") : not3 =
Console.ReadLine
prom = (not1 + not2 + not3) / 3
Console.WriteLine("el promedio es : " & prom)
If prom >= 10.5 Then
cond = "aprobado"
Else
cond = "desaprobado"
End If
Console.WriteLine("la condicion es : " & cond)
Console.Write("presione la tecla enter para salir") :
Console.ReadLine()
End Sub
Ejercicio de
Consola:
Diseñar un programa que me permita
ingresar un monto en Soles. Si la cantidad ingresada es igual o superior a los mil
nuevos soles, entonces tendrá un descuento del 10% o de lo contrario solo del 5%.
Se debe visualizar el monto de descuento y el pago a realizar.
Sub Main()
Dim soles, desc, tot As
Single
Console.WriteLine("ingrese
la cantidad en soles")
soles =
Console.ReadLine
Console.WriteLine("descuento por mayor
o igual que 100")
If soles >= 1000 Then
desc =
soles * 0.1
Else
desc =
soles * 0.05
End If
Console.WriteLine(desc)
Console.WriteLine("el pago a
realizar es")
tot = soles - desc
Console.WriteLine(tot)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Determinar si una persona es mayor o menor edad, y
también su sexo de acuerdo a las leyes peruanas. Visualizar si es mujer u
hombre, su edad y si es mayor de edad o no.
Sub Main()
Dim nom, sex, sexo, adulto As
String
Dim eda As
Integer
Console.Write("ingresar nombre de la persona ") : nom
= Console.ReadLine
Console.Write("ingresar sexo de la persona " & "(F o M)") : sex = Console.ReadLine
Console.Write("ingresar edad de la persona ") : eda =
Console.ReadLine
If sex = "F" Then
sexo = "es mujer"
Else
sexo = "es hombre"
End If
If eda >= 18 Then
adulto = "mayor de edad"
Else
adulto = "menor de edad"
End If
Console.Write(nom & " "
& sexo & " y " &
adulto)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Diseñar una
aplicación que permita digitar un lenguaje de programación. Al digitar uno de
los Visual Basic se visualiza el mensaje que el programa escogido “es
excelente” y si se digita otro muestra el mensaje “es otro el escogido”.
Sub Main()
Console.WriteLine("Digite
su lenguaje favorito")
Dim lenguaje As String
lenguaje =
Console.ReadLine()
lenguaje =
lenguaje.ToUpper
If lenguaje = "VISUAL
BASIC" Or lenguaje = "VISUAL BASIC .NET" Then
Console.WriteLine(lenguaje & "
es excelente")
Else
Console.WriteLine("es otro el
escogido")
End If
Console.WriteLine()
Console.WriteLine("presione una tecla
para salir")
Console.ReadLine()
End Sub
Ejercicio de
Consola:
Diseñar una aplicación que me permita
ingresar un número entre uno y siete, este número debe representar los días de
la semana. Se debe visualizar el día señalado.
Sub Main()
Dim numero As Integer
Dim dia As String
Console.WriteLine("ingrese
el numero")
numero =
Console.ReadLine
Console.WriteLine("el dia señalado
es")
If numero = 1 Then
dia = "domingo"
Else
If numero = 2 Then
dia
= "lunes"
Else
If numero = 3 Then
dia = "martes"
Else
If numero = 4 Then
dia = "miercoles"
Else
If numero = 5 Then
dia = "jueves"
Else
If numero = 6 Then
dia = "viernes"
Else
If numero = 7 Then
dia = "sabado"
End If
End If
End If
End If
End If
End If
End If
Console.WriteLine(dia)
Console.ReadLine()
End Sub
Ejercicio de Consola:
Una empresa desea pagar a sus empleados todos los
beneficios que se requieren, para lo cual desean saber cuanto le van a pagar a
cada uno sabiendo que recibe beneficio por su instrucción de estudio
(secundaria 5%, Técnica 10% y Profesional 20%); además si es casado recibirá un
adicional del 5%, y si es soltero del 3%.
Se debe tener en cuenta que si el sueldo excede a los
700 nuevos soles recibirá una bonificación del 10%.
Nota: Se debe visualizar todos los montos.
Sub Main()
Dim sueldo As Integer
Dim instruccion, condicion, pagototal
As String
Dim pagoinst, pagocond, Pago, cobrobruto, descuento As Single
Console.WriteLine("el sueldo es")
sueldo = Console.ReadLine
Console.WriteLine("ingrese la
instruccion")
instruccion =
Console.ReadLine
Console.WriteLine("ingrese la condicion
social")
condicion =
Console.ReadLine
Console.WriteLine("el incremento por
instruccion es")
If instruccion = "secundaria"
Then
pagoinst
= sueldo * 0.05
Else
If instruccion = "tecnica"
Then
pagoinst = sueldo * 0.1
Else
If instruccion = "profesional"
Then
pagoinst = sueldo * 0.2
End If
End If
End If
Console.WriteLine(pagoinst)
Console.WriteLine("el
incremento por condicion social es")
If condicion = "casado"
Then
pagocond
= sueldo * 0.05
Else
If condicion = "soltero"
Then
pagocond = sueldo * 0.03
End If
End If
Console.WriteLine(pagocond)
Console.WriteLine("el cobro bruto
es")
cobrobruto =
sueldo + pagoinst + pagocond
Console.WriteLine(cobrobruto)
Console.WriteLine("descuento si excede
a 700")
If cobrobruto >= 700 Then
pagototal =
cobrobruto * 0.1
Else
pagototal = cobrobruto
End If
Console.WriteLine(pagototal)
Console.ReadLine()
End Sub
Comentarios
Publicar un comentario