8 noviembre, 2024

Todo Programación

Cursos, código fuente y ejemplos.

Quick Basic 4.5 – Capítulo 04 – Estructuras de control parte 2

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.


Copyright © Todos los derechos reservados. | Newsphere por AF themes.