Turbo Pascal 7 – Capítulo 03 – Arrays

Turbo Pascal 7 es un lenguaje de programación estructurado que ha sido ampliamente utilizado en la educación y el desarrollo de software. Una de las características fundamentales de Turbo Pascal es su capacidad para trabajar con arreglos, que son estructuras de datos que permiten almacenar múltiples elementos del mismo tipo en una sola variable. En este capítulo, exploraremos la teoría detrás de los arreglos en Turbo Pascal 7 y proporcionaremos ejemplos resueltos para una comprensión más sólida.

Arreglos en Turbo Pascal 7
Un arreglo es una estructura de datos que permite almacenar una colección de elementos del mismo tipo bajo un solo nombre. Los elementos dentro de un arreglo están indexados, lo que significa que cada elemento puede ser accedido utilizando su posición numérica. Esto facilita la manipulación y el acceso a datos organizados.

En Turbo Pascal 7, los arreglos pueden ser unidimensionales o multidimensionales. Los arreglos unidimensionales tienen un solo índice, mientras que los multidimensionales tienen múltiples índices para acceder a los elementos en diferentes dimensiones. La declaración de un arreglo incluye el tipo de dato de los elementos y el rango de índices permitidos.

Declaración de un Arreglo Unidimensional:

var
  numeros: array[1..10] of Integer; // Arreglo de 10 enteros

Declaración de un Arreglo Multidimensional:

var
  matriz: array[1..3, 1..3] of Integer; // Matriz 3x3 de enteros

Acceso y Manipulación de Arreglos
Para acceder a los elementos de un arreglo, se utilizan los índices correspondientes. En Turbo Pascal, los índices comienzan desde 1 y se incrementan en unidades. Por ejemplo, para acceder al tercer elemento en el arreglo numeros, se utiliza numeros[3].

Ejemplo de Uso de Arreglos
Supongamos que queremos almacenar y promediar las calificaciones de un grupo de estudiantes. Podemos usar un arreglo para lograr esto:

var
  calificaciones: array[1..5] of Real; // Arreglo de calificaciones
  i: Integer;
  suma, promedio: Real;

begin
  suma := 0;

  // Capturamos las calificaciones
  for i := 1 to 5 do
  begin
    write('Ingrese la calificación del estudiante ', i, ': ');
    readln(calificaciones[i]);
    suma := suma + calificaciones[i];
  end;

  // Calculamos el promedio
  promedio := suma / 5;

  writeln('El promedio de calificaciones es: ', promedio:0:2);
end.

Ejercicios Resueltos

Ejercicio 1: Crear un programa que encuentre el valor máximo y mínimo en un arreglo de números enteros.

var
  numeros: array[1..10] of Integer;
  i, maximo, minimo: Integer;

begin
  // Capturamos los números
  for i := 1 to 10 do
  begin
    write('Ingrese un número: ');
    readln(numeros[i]);
  end;

  // Encontramos el máximo y el mínimo
  maximo := numeros[1];
  minimo := numeros[1];

  for i := 2 to 10 do
  begin
    if numeros[i] > maximo then
      maximo := numeros[i];
    if numeros[i] < minimo then
      minimo := numeros[i];
  end;

  writeln('El máximo es: ', maximo);
  writeln('El mínimo es: ', minimo);
end.

Ejercicio 2: Crear un programa que ordene un arreglo de números enteros en orden ascendente.

var
  numeros: array[1..10] of Integer;
  i, j, temp: Integer;

begin
  // Capturamos los números
  for i := 1 to 10 do
  begin
    write('Ingrese un número: ');
    readln(numeros[i]);
  end;

  // Ordenamos el arreglo usando el método de la burbuja
  for i := 1 to 9 do
    for j := 1 to 10 - i do
      if numeros[j] > numeros[j + 1] then
      begin
        temp := numeros[j];
        numeros[j] := numeros[j + 1];
        numeros[j + 1] := temp;
      end;

  // Mostramos el arreglo ordenado
  writeln('Arreglo ordenado:');
  for i := 1 to 10 do
    write(numeros[i], ' ');
end.

Conclusión
Los arreglos son fundamentales en la programación ya que permiten organizar y acceder a colecciones de datos de manera eficiente. En Turbo Pascal 7, los arreglos pueden ser unidimensionales o multidimensionales, y se utilizan para una variedad de aplicaciones.