Ahora hemos implementado un hospital completo con 3 plantas y 10 habitaciones por planta. Cada habitación contiene un registro de paciente con todos los campos que hemos trabajado anteriormente. Observa cómo se declara el array bidimensional de registros en Pascal.
Ejercicio 1/4
Asigna el nombre "Juan Pérez" al paciente de la habitación 3 (índice 2) de la planta 2 (índice 2).
Código Pascal
type
TFecha = record
dia: integer;
mes: string;
anio: integer;
end;
TMedicamento = array[0..2] of integer;
TPaciente = record
nombreCompleto: string;
edad: integer;
altura: real;
fechaNacimiento: TFecha;
medicamento: TMedicamento;
tope: integer;
end;
THospital = array[0..2, 0..9] of TPaciente;
var
hospital: THospital;
begin
// Inicializamos todos los topes
for planta := 0 to 2 do
for habitacion := 0 to 9 do
hospital[planta, habitacion].tope := -1;
// Tu código aquí...
end.
Visualización del Registro
Terminal Pascal
>> Escribe el código Pascal para asignar el nombre en la habitación 3 de la planta 2:
>>
Presiona Enter para validar tu código (aceptamos hospital[i,j] y hospital[i][j])
Modo Libre: Asigna cualquier campo en cualquier habitación