Algoritmos y Programación en Pascal

278 Capítulo 13. Registros
type...
tNombre = array[1..50] of char;
tDNI = array[1..8] of ‘0’..’9’;
tPais = array[1..20] of char;
tPasaporte = array[1..15] of ‘0’..’9’;
tFicha = record
nombre: tNombre;
fechaNac: tFecha;
nota: tCalificaciones;
case espannol : boolean of
True :
(dni : tDNI;
False :
(pais : tPais;
pasaporte : tPasaporte
end; {tFicha}
Con la definición anterior, el procedimiento LeerFicha queda como sigue:
procedure LeerFicha(var unAlumno: tFicha);
{Efecto: lee del input el contenido del registro unAlumno}
var
c: char;
begin
with unAlumno do begin
Write(’Introduce el nombre del alumno:’);
ReadLn(nombre);
with fechaNac do begin
Write(’Día de nacimiento: ’);
ReadLn(dia);
Write(’Mes de nacimiento: ’);
LeerMes(mes);
Write(’A~no de nacimiento: ’);
ReadLn(anno)
end; {with fechaNac}
Write(’Calificacion: ’);
LeerNota(nota);
repeat
Write(’¿Es ’,nombre,’ espa~nol? (S/N)’);
ReadLn(c)
until c in [’s’,’S’,’n’,’N’];
case c of
’s’,’S’ :
begin {el alumno es espa~nol}
espannol:= True;
Write(’DNI: ’);