Algoritmos y Programación en Pascal

274 Capítulo 13. Registros
type
tMeses = (ene, feb, mar, abr, may, jun, jul, ago, sep, oct, nov, dic);
tCalificaciones = (NP, Sus, Apr, Notab, Sob, MH);
tNombre = array[1..50] of char;
tFecha = record
dia: 1..31;
mes: tMeses;
anno: 1900..2000
end; {tFecha}
tFicha = record
nombre: tNombre;
fechaNac: tFecha;
nota: tCalificaciones
end; {tFicha}
var
alumno: tFicha;
• La asignación de valores a los campos se hará dependiendo del tipo de
cada uno de ellos. Así, en el ejemplo anterior, para iniciar los datos de la
variable Alumno tendríamos que utilizar las siguientes asignaciones:
alumno.nombre:= ’Mario Aguilera ’;
alumno.fechaNac.dia:= 3;
alumno.fechaNac.mes:= feb;
alumno.fechaNac.anno:= 1973;
alumno.nota:= Notab
• Las operaciones de lectura y escritura de registros han de hacerse campo
por campo, empleando procedimientos o funciones especiales si el tipo del
campo así lo requiere. Por ejemplo:
procedure EscribirFicha(unAlumno: tFicha);
{Efecto: Escribe en la pantalla el contenido del registro
unAlumno}
begin
WriteLn(’Nombre: ’, unAlumno.nombre);
Write(’Fecha de nacimiento: ’,unAlumno.fechaNac.dia);
EscribirMes(unAlumno.fechaNac.mes);
WriteLn(unAlumno.fechaNac.anno);
Write(’Nota: ’);
EscribirNota(unAlumno.nota)
end; {EscribirFicha}
Obsérvese que los campos fecha.mes y nota son de tipo enumerado y
necesitarán dos procedimientos especiales (EscribirMes y EscribirNota,
respectivamente) para poder escribir sus valores por pantalla.