Práctica 1
Bernardo Hernández Cardona ID:00477100
If-Else
Ej1
PUBLIC SUB Main()
DIM edad AS Integer
PRINT "Ingrese su edad: "
Input edad
IF edad >= 18 THEN
PRINT "La persona es mayor de edad."
ELSE
PRINT "La persona es menor de edad."
ENDIF
END
Ej2
Public Sub Main()
Dim num1 As Float
Dim num2 As Float
Dim num3 As Float
Dim mayor As Float
Print "Introduce el primer número: "
Input num1
Print "Introduce el segundo número: "
Input num2
Print "Introduce el tercer número: "
Input num3
If num1 > num2 Then
If num1 > num3 Then
mayor = num1
Else
mayor = num3
Endif
Else
If num2 > num3 Then
mayor = num2
Else
mayor = num3
Endif
Endif
Print "El número mayor es: "; mayor
End
Ej3
Public Sub Main()
Dim salario As Float
Dim totalDeudas As Float
Dim gastos As Float
Dim deudaLuz As Float = 1000
Dim deudaTel As Float = 3000
Dim deudaRenta As Float = 1500
Dim deudaGas As Float = 600
Dim deudaColegiatura As Float = 3000
totalDeudas = deudaLuz + deudaTel + deudaRenta + deudaGas +
deudaColegiatura
Print "Introduce el salario del marido: "
Input salario
If salario >= totalDeudas Then
gastos = salario - totalDeudas
Print "Sí, alcanzará a pagar sus deudas."
Print "Le quedará para otros gastos: "; gastos
Else
Print "No, no alcanzará a pagar sus deudas."
Print "Le faltarán: "; totalDeudas - salario
Endif
End
Ej4
Public Sub Main()
Dim num1 As Integer
Dim num2 As Integer
Dim num3 As Integer
Dim mediano As Integer
Print "Introduce el primer número: "
Input num1
Print "Introduce el segundo número: "
Input num2
Print "Introduce el tercer número: "
Input num3
If (num1 > num2 And num1 < num3) Or (num1 < num2 And num1 > num3) Then
mediano = num1
Else
If (num2 > num1 And num2 < num3) Or (num2 < num1 And num2 > num3) Then
mediano = num2
Else
mediano = num3
Endif
Print "El número mediano es: "; mediano
Endif
End
Ej5
PUBLIC SUB Main()
DIM mes AS Integer
DIM nombreMes AS String
PRINT "Introduce un número del 1 al 12: "
INPUT mes
SELECT CASE mes
CASE 1
nombreMes = "Enero"
CASE 2
nombreMes = "Febrero"
CASE 3
nombreMes = "Marzo"
CASE 4
nombreMes = "Abril"
CASE 5
nombreMes = "Mayo"
CASE 6
nombreMes = "Junio"
CASE 7
nombreMes = "Julio"
CASE 8
nombreMes = "Agosto"
CASE 9
nombreMes = "Septiembre"
CASE 10
nombreMes = "Octubre"
CASE 11
nombreMes = "Noviembre"
CASE 12
nombreMes = "Diciembre"
CASE ELSE
PRINT "Número inválido. Debe estar entre 1 y 12."
RETURN
END SELECT
PRINT "El mes correspondiente es: "; nombreMes
END
Ej6
Public Sub Main()
Dim numero As Integer
Print "Introduce un número entre 1 y 10 (inclusive): "
Input numero
If numero < 1 Or numero > 10 Then
Print "Número inválido. Debe estar entre 1 y 10."
Return
Endif
Select Case numero
Case 0
Print "El número "; numero; " es par."
Case 1
Print "El número "; numero; " es impar."
Case Else
Print "Error en el cálculo."
End Select
End
Ej7
Public Sub Main()
Dim calificacion As Float
Dim edad As Integer
Dim domicilio As String
Dim aceptados As Integer = 0
For i As Integer = 1 To 6
Print "Evaluando a la persona "; i; ":"
Print "Introduce la calificación (0-100): "
Input calificacion
If calificacion < 0 Or calificacion > 100 Then
Print "Calificación inválida. Debe estar entre 0 y 100."
Return
Endif
If calificacion >= 90 Then
Print "Aceptado. Por favor, proporciona tu edad: "
Input edad
Print "Introduce tu domicilio: "
Input domicilio
Print "Persona aceptada con calificación "; calificacion; ", edad
"; edad; " y domicilio "; domicilio; "."
aceptados += 1
Else
If calificacion > 89 Then
Print "No se puede aceptar. Calificación menor a 90."
Else
Print "No aceptado. Calificación menor a 90."
Endif
Endif
Print "" ' Línea en blanco para mejor legibilidad
Next
Print "Total de personas aceptadas: "; aceptados
End
Ej8
Public Sub Main()
Dim costoBase As Float = 2500.0
Dim dias As Integer
Dim edad As Integer
Dim costoFinal As Float
Dim descuento As Float
Dim totalPagado As Float = 0.0
For i As Integer = 1 To 3
Print "Evaluando a la persona "; i; ":"
Print "Introduce la edad: "
Input edad
Print "Introduce el número de días de hospedaje: "
Input dias
costoFinal = costoBase * dias
descuento = 0.0
If edad < 18 Then
descuento = costoFinal * 0.50 ' Descuento del 50%
Else
If edad >= 18 And edad < 61 Then
Else
If dias > 9 Then
descuento = costoFinal * 0.20 ' Descuento del 20%
Endif
If edad >= 60 And dias > 5 Then
descuento = costoFinal * 0.40 ' Descuento del 40%
Endif
Endif
costoFinal -= descuento
Print "Costo base: $"; costoBase * dias
Print "Descuento: $"; descuento
Print "Costo final a pagar: $"; costoFinal
totalPagado += costoFinal
Print "" ' Línea en blanco para mejor legibilidad
Print "Total pagado por las tres personas: $"; totalPagado
Endif
Next
End
Conclusión
Esta práctica me fue de mucha ayuda porque al ser códigos que usan
todos los elementos que necesitamos aprender nos muestra en que
casos debe usarse cierto comando y en que caso otro. El haber hecho
estos códigos me impulsó a querer practicar más y se reflejó en una
buena calificación en el examen. Espero que las próximas prácticas me
sean de esta misma utilidad.
