Turbo Pascal 7 – Capítulo 02 – estructuras de control

Las estructuras de control son elementos esenciales en la programación, ya que permiten tomar decisiones y controlar el flujo de ejecución de un programa. En Turbo Pascal 7, dos de las estructuras de control más utilizadas son el if-else y el case. En este manual, exploraremos en detalle cómo funcionan estas estructuras, cómo se aplican en situaciones prácticas y cómo resolver ejercicios utilizando ambas.

Estructura de Control if-else

La estructura de control if-else permite ejecutar diferentes bloques de código basados en una condición. Si la condición es verdadera (true), se ejecuta el bloque de código del if; de lo contrario, se ejecuta el bloque de código del else.

Sintaxis del if-else

if condicion then
begin
  // Código a ejecutar si la condición es verdadera
end
else
begin
  // Código a ejecutar si la condición es falsa
end;

Ejemplo de Uso del if-else

var
  edad: integer;

begin
  write('Ingrese su edad: ');
  readln(edad);

  if edad >= 18 then
    writeln('Eres mayor de edad')
  else
    writeln('Eres menor de edad');
end.

Estructura de Control case

La estructura de control case permite evaluar diferentes valores y ejecutar bloques de código correspondientes a esos valores. Es útil cuando se desea comparar una variable con varios valores posibles.

Sintaxis del case

case variable of
  valor1: begin
    // Código a ejecutar para valor1
  end;
  valor2: begin
    // Código a ejecutar para valor2
  end;
  // ...
  else begin
    // Código a ejecutar si ninguno de los valores coincide
  end;
end;

Ejemplo de Uso del case

var
  diaSemana: integer;

begin
  write('Ingrese el número del día de la semana (1-7): ');
  readln(diaSemana);

  case diaSemana of
    1: writeln('Lunes');
    2: writeln('Martes');
    3: writeln('Miércoles');
    4: writeln('Jueves');
    5: writeln('Viernes');
    6: writeln('Sábado');
    7: writeln('Domingo');
    else writeln('Día inválido');
  end;
end.

Ejercicios Resueltos

Ejercicio 1: Evaluación de Calificaciones

Desarrolla un programa que solicite una calificación numérica (0-100) y muestre un mensaje según la escala de calificación.

var
  calificacion: integer;

begin
  write('Ingrese la calificación: ');
  readln(calificacion);

  if calificacion >= 90 then
    writeln('Excelente')
  else if calificacion >= 70 then
    writeln('Bueno')
  else if calificacion >= 50 then
    writeln('Aprobado')
  else
    writeln('Reprobado');
end.

Ejercicio 2: Conversión de Notas

Desarrolla un programa que convierta una nota numérica (0-100) a su equivalente en letras según la escala de calificación.

var
  calificacion: integer;

begin
  write('Ingrese la calificación: ');
  readln(calificacion);

  case calificacion of
    90..100: writeln('A');
    80..89: writeln('B');
    70..79: writeln('C');
    60..69: writeln('D');
    else writeln('F');
  end;
end.

Conclusión

En este capítulo, hemos explorado las estructuras de control if-else y case en Turbo Pascal 7. Hemos aprendido cómo tomar decisiones basadas en condiciones y cómo manejar múltiples casos utilizando estas estructuras. Los ejercicios resueltos te han permitido aplicar estos conceptos en situaciones prácticas.

Dominar las estructuras de control es esencial para la programación, ya que te permite crear programas más flexibles y capaces de adaptarse a diferentes situaciones.