Algoritmos y Programación en Pascal

19.3. Metodología de la programación de TADs 443
interface
uses Otras unidades necesarias;
Declaraciones de constantes, tipos, y variables necesarios
para definir el tipo abstracto
Encabezamientos de las operaciones del tipo abstracto de datos
implementation
uses Otras unidades necesarias;
Información privada, incluyendo las implementaciones de las
operaciones del tipo abstracto de datos y de los tipos participantes,
así como las constantes, tipos y variables necesarios para
definir éstos, y las operaciones privadas
begin
Código de iniciación, si es preciso
end. {TipoAbstractoDeDatos}
19.3.3 Corrección de tipos abstractos de datos
La verificación de un tipo abstracto de datos debe hacerse a dos niveles:
En primer lugar, se debe estudiar si la implementación de las diferentes operaciones
satisface la especificación, bien mediante una verificación a posteriori,
o bien a través de una derivación correcta de programas (en los términos presentados
en el apartado 5.4) partiendo de la especificación y desarrollando las
operaciones de acuerdo con ésta. Siguiendo esta segunda opción, por ejemplo,
para la operación AnnadirElemConj, se partiría de la especificación
{Efecto: conj:= conj ∪ [elem]}
y se llegaría al código
procedure AnnadirElemConj (elem: tElem; var conj: tConj);
var
parar, {indica el fin de la búsqueda, en la lista}
insertar: boolean; {por si elem ya está en la lista}
auxBuscar, auxInsertar: tConj;
begin
auxBuscar:= conj;
parar:= False;
repeat
if auxBuscar^.sig = nil then begin