Quick Basic 4.5 – Capítulo 04 – Estructuras de control parte 2
Introducción
Las estructuras de control son fundamentales en la programación, ya que permiten tomar decisiones y ejecutar diferentes acciones en función de ciertas condiciones. Dos estructuras de control comunes son IF-THEN-ELSE
y SELECT CASE
. En este capítulo, exploraremos en detalle estas estructuras y proporcionaremos ejercicios resueltos para ayudarte a comprender cómo se utilizan en la práctica.
Estructura de Control IF-THEN-ELSE
La estructura IF-THEN-ELSE
se utiliza para tomar decisiones en función de una condición. Si la condición es verdadera, se ejecuta un bloque de código; de lo contrario, se ejecuta otro bloque de código. Su sintaxis es la siguiente:
IF condición THEN
' Código a ejecutar si la condición es verdadera
ELSE
' Código a ejecutar si la condición es falsa
END IF
Ejercicio 1: Determinar si un número ingresado por el usuario es positivo, negativo o cero.
CLS
numero = VAL(INPUT$("Ingrese un número: "))
IF numero > 0 THEN
PRINT "El número es positivo."
ELSEIF numero < 0 THEN
PRINT "El número es negativo."
ELSE
PRINT "El número es cero."
END IF
Estructura de Control SELECT CASE
La estructura SELECT CASE
se utiliza cuando hay que evaluar una variable o expresión y ejecutar diferentes acciones según sus valores. Es especialmente útil cuando se tienen múltiples condiciones posibles. Su sintaxis es la siguiente:
SELECT CASE expresión
CASE valor1
' Código a ejecutar para valor1
CASE valor2
' Código a ejecutar para valor2
...
CASE ELSE
' Código a ejecutar si no se cumplen los casos anteriores
END SELECT
Ejercicio 2: Convertir un número del 1 al 7 en el nombre del día de la semana correspondiente.
CLS
dia = VAL(INPUT$("Ingrese un número del 1 al 7: "))
SELECT CASE dia
CASE 1
PRINT "Lunes"
CASE 2
PRINT "Martes"
CASE 3
PRINT "Miércoles"
CASE 4
PRINT "Jueves"
CASE 5
PRINT "Viernes"
CASE 6
PRINT "Sábado"
CASE 7
PRINT "Domingo"
CASE ELSE
PRINT "Número inválido"
END SELECT
Conclusiones
En este capítulo, hemos explorado las estructuras de control IF-THEN-ELSE
y SELECT CASE
en QuickBASIC 4.5.