Ejemplo de unidad:

   UNIT
       Operaciones;

   INTERFACE

      Function  suma ( a, b: Integer): Integer;
      Procedure resta( a, b: Integer; Var r: Integer);

   IMPLEMENTATION

      Function suma ( a, b: Integer ): Integer;
      Begin
         suma := a + b
      End;

      Procedure resta ( a, b: Integer; Var r: Integer );
      Begin
         r:= a - b
      End;

   BEGIN
   END.

Para compilar una unidad y poder usarla desde otro programa, es necesario entrar en el menú de opciones del compilador e indicar como destino de la compilación el disco. De esta manera, al compilar correctamente la unidad, se generará un archivo en disco llamado igual que el nombre utilizado en la cabecera de la unidad y la extensión TPU, que contendrá el código binario de la unidad. Una vez creado el archivo TPU ya se puede utilizar esa unidad en cualquier programa mediante la sentencia USES nombre al principio del programa.

Como primera tarea en esta práctica se pide escribir un módulo en TP que especifique la representación en memoria y las operaciones asociadas con la estructura de datos Pila. Este módulo se debe diseñar de la forma más general posible, de manera que sea fácilmente adaptable a cualquier tipo de aplicación. Para facilitar su diseño, a continuación se indica como debe ser su estructura:

Como segunda tarea en esta práctica se pide escribir un módulo en TP similar al anterior pero con la utilización de variables dinámicas. Este módulo se debe diseñar de la forma más general posible, de manera que sea fácilmente adaptable a cualquier tipo de aplicación. Para facilitar su diseño, a continuación se indica como debe ser su estructura:

La tercera tarea a realizar consiste en aplicar las unidades anteriores en la resolución de un problema. Como ejemplo de utilización de la estructura de datos Pila, se propone la implementación de un programa que permita almacenar expresiones literales (predicciones), con la siguiente especificación:

Las tareas a realizar serán las siguientes:

El programa principal consistirá en la realización de un menú donde se pueda hacer lo siguiente:

• El programa pedirá consecutivamente las predicciones según una función contenida en la unidad ‘uni_pred.tpu’ (que proporcionará el profesor de prácticas). Si la predicción corresponde a la misma hora que la anteriormente pedida, no se almacenará en la pila. En nuestro caso simularemos nuevas predicciones aproximadamente cada minuto.

• Este proceso debe tener en cuenta que un piloto pide la predicción a unas horas determinadas y debemos darle la última realizada (en nuestro caso la pediría a las siguientes horas: 06:30, 13:30 y las 23:30).

• En un determinado momento, el inspector de servicio quiere comprobar la validez de la predicción hecha a unas horas y minutos determinados (por ejemplo a las 09 horas, 15 horas, 21 horas.)

• Debe poderse volcar la información a un fichero, según el sub-apartado 3.4.

Una predicción consistirá básicamente en un registro donde estará almacenada la hora en que se realizó la predicción y una cadena de caracteres que contendrá: La velocidad y dirección del viento en nudos, la visibilidad y finalmente la temperatura prevista.

Un segundo caso práctico, consiste en modificar las definiciones de las unidades anteriores (modificar solamente la parte de CONST Y TYPE) y aplicarlas en la resolución del siguiente problema. Como ejemplo de utilización de la estructura de datos Pila, se propone la implementación de un programa que permita almacenar variables numéricas, con la siguiente especificación:

1. A lo largo de un día, y cada hora, se registra la temperatura en ese momento. La primera medida se toma a las 00 horas y la última a las 23 horas, es decir, se hacen un total de 24 medidas. Este valor es un dato de tipo real con dos cifras decimales como máximo.
2. Una emisora de radio, pide tres veces al día, la última medida registrada hasta el momento (en nuestro caso la pedirá a las siguientes horas: 07:15, 12:10 y las 18:15).
3. Alrededor de las 23:30 horas se calcula la temperatura mínima, máxima y media de las registradas durante el día.
4. A continuación, y con objeto de crear una base de datos histórica, se graban las temperaturas registradas en un fichero que contiene la hora, la temperatura registrada y los valores calculados de temperatura mínima, máxima y media. Este fichero tendrá por nombre, la letra T más el mes y el día, por ejemplo T0313.dat.

• Modificar la definición del tipo Valor para adecuar las unidades de pilas al caso actual.

• Desarrollar un programa que pueda utilizar indistintamente cualquiera de las dos unidades para la resolución del caso práctico del apartado 5.

El programa principal consistirá en la realización de un menú donde se pueda hacer lo siguiente:

• El programa pedirá consecutivamente las temperaturas según una función contenida en la unidad ‘uni_pred.tpu’ (que proporcionará el profesor de prácticas). En nuestro caso simularemos nuevas temperaturas aproximadamente cada minuto.

• Este proceso debe tener en cuenta que una emisora de radio pide las temperaturas a unas horas determinadas (en nuestro caso la pedirá a las siguientes horas: 07:15, 12:10 y las 18:15).

• A las 23:45, un periódico pide la temperatura mínima, máxima y media, así como la hora a la que se ha registrado la mínima y la máxima.

• El último apartado debe volcar la información a un fichero, según el sub-apartado 4.4.

Al finalizar la sesión de prácticas se entregarán al profesor dos programas principales en Turbo Pascal llamados: ‘Predic.pas’ y ‘Temper.pas’ que cumpla los requisitos reseñados en el enunciado de la práctica, así como las dos unidades para la implementación de pilas con vectores y con punteros llamadas ‘U_Pilas_V.pas’ y ‘U_Pilas_P.pas’.