Algoritmos y Programación en Pascal

280 Capítulo 13. Registros
tipo, es frecuente combinarlos formando arrays de registros que permitan almacenar
y gestionar la información relativa a un grupo de personas u objetos.
Por ejemplo, una vez definido el tipo tFicha del apartado 13.1.1 donde almacenamos
los datos de un alumno, podemos definir el tipo siguiente:
type
tVectorFichas = array[1..40] of tFicha;
y declarar las variables:
var
alumno: tFicha;
clase: tVectorFichas;
De esta forma, en el vector clase podemos almacenar los datos de los alumnos
de una clase. Para acceder al año de nacimiento del alumno número 3,
tendríamos que utilizar la siguiente expresión:
clase[3].fecha.anno
mientras que para acceder a su nota usaríamos:
clase[3].nota
Los arrays tienen un tamaño fijo, sin embargo, hay casos en los que el número
de datos no se conoce a priori, pero para los que puede suponerse un máximo.
En este caso, se puede definir un registro que contenga a un vector del tamaño
máximo y una variable adicional para llevar la cuenta de la parte utilizada.
Por otra parte, hay casos en los que puede resultar útil definir registros
de arrays. Supongamos, por ejemplo, que queremos calcular el valor medio de
una variable estadística real de una muestra cuyo tamaño no supera los cien
individuos. Para ello se podrían hacer las siguientes definiciones y declaraciones:
const
MaxCompo = 100;
type
tVector = array [1..MaxCompo] of real;
tRegistro = record
vector: tVector;
ocupado: 0..MaxCompo
endtRegistro;
var
indice: 1..MaxCompo;
reg: tRegistro;
valor, suma, media: real;
fin: boolean;