🧪 Simulador Avanzado de Registros Pascal

Oriol Borrás-Gené (URJC)

Registros Avanzados con Arrays

Hemos añadido un campo de tipo array para almacenar hasta 3 códigos de medicación (índices 0-2). El campo "Tope" indica la última posición utilizada. Inicialmente, Tope es -1 (ningún medicamento almacenado).

Ejercicio 1/5

Repaso: Asigna el mes de nacimiento del paciente con el valor 'Enero'.

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;

var
  paciente: TPaciente;

begin
  // Inicializamos el tope
  paciente.tope := -1;
  
  // Tu código aquí...
end.

Visualización del Registro

Terminal Pascal

>> Escribe el código Pascal para asignar el mes de nacimiento como 'Enero':

Presiona Enter para validar tu código (ignoramos espacios extras)

Modo Libre: Asigna cualquier campo