Algoritmos y Programación en Pascal

13.1. Descripción del tipo de datos registro 275
with vbleRegistro do Instrucci—n
,
Figura 13.2.
Al igual que todos los tipos de datos compuestos, un registro no puede
ser el resultado de una función. Para solucionar este problema actuaremos
como de costumbre, transformando la función en un procedimiento con un
parámetro por variable adicional de tipo registro que albergue el resultado
de la función. Así, por ejemplo:
procedure LeerFicha(var unAlumno: tFicha);
{Efecto: lee del input el contenido del registro unAlumno}
begin
Write(’Nombre del alumno:’);
LeerNombre(unAlumno.nombre);
Write(’Día de nacimiento: ’);
ReadLn(unAlumno.fechaNac.dia);
Write(’Mes de nacimiento: ’);
LeerMes(unAlumno.fechaNac.mes);
Write(’A~no de nacimiento: ’);
ReadLn(unAlumno.fechaNac.anno);
Write(’Calificación: ’);
LeerNota(unAlumno.nota)
end; {LeerFicha}
• Como puede observarse, es incómodo estar constantemente repitiendo el
identificador unAlumno. Para evitar esta repetición Pascal dispone de la
instrucción with que se emplea siguiendo la estructura descrita en el diagrama
sintáctico de la figura 13.2.
Por ejemplo, para el procedimiento LeerFicha se podrían utilizar dos
instrucciones with anidadas de la siguiente forma:
procedure LeerFicha(var unAlumno: tFicha);
{Efecto: lee del input el contenido del registro unAlumno}
begin
with unAlumno do begin
WriteLn(’Introduce el nombre del alumno:’);
LeerNombre(nombre);
with fechaNac do begin