Algoritmos y Programación en Pascal

276 Capítulo 13. Registros
Write(’Día de nacimiento: ’);
ReadLn(dia);
Write(’Mes de nacimiento: ’);
LeerMes(mes);
Write(’A~no de nacimiento: ’);
ReadLn(anno)
end; {with fechaNac}
Write(’Calificación: ’);
LeerNota(nota)
end {with unAlumno}
end; {LeerFicha}
• Al igual que los arrays, si dos variables r1 y r2 son del mismo tipo registro,
se pueden realizar asignaciones de registros completos (con la instrucción
r1:= r2) evitando así tener que ir copiando uno a uno todos los campos
del registro.
13.1.2 Registros con variantes
En ciertos casos es conveniente poder variar el tipo y nombre de algunos
de los campos existentes en un registro en función del contenido de uno de
ellos. Supongamos, por ejemplo, que en el registrotFicha definido anteriormente
queremos incluir información adicional dependiendo de la nacionalidad. Si es
española, añadiremos un campo con el D.N.I., y si no lo es, añadiremos un
campo para el país de origen y otro para el número del pasaporte.
Con este objetivo se pueden definir en Pascal los registros con variantes, que
constan de dos partes: la primera, llamada parte fija, está formada por aquellos
campos del registro que forman parte de todos los ejemplares; la segunda parte,
llamada parte variable, está formada por aquellos campos que sólo forman parte
de algunos ejemplares.
En la parte fija, debe existir un campo selector mediante el cual se determina
la parte variable que se utilizará. Este campo selector debe ser único, es decir,
sólo se permite un campo selector.
El diagrama sintáctico de la definición de un registro con variantes es el de
la figura 13.3.
Para resolver el problema del ejemplo anterior se puede emplear un registro
con variantes de la siguiente forma: