Listas Estáticas en Pascal: Implementación de ListaEst2 con Arrays y Punteros
Unidad ListaEst2: Implementación de una Lista Estática en Pascal
La unidad ListaEst2 implementa una lista enlazada estática mediante un array de nodos, sin utilizar punteros dinámicos. Usa el TAD ElemTAD para los elementos almacenados.
Declaraciones
unit ListaEst2;
interface
uses ElemTAD;
const
N = 10;
INICIO = 1;
type
TNodo = record
info: TElemento;
sig: 0..N;
end;
TAlmacen = array [INICIO..N] of TNodo;
TListaEst = record
almacen: TAlmacen;
cabLib, cabOcu: 0..N;
end;
implementation
Procedimiento CrearVacia
Inicializa la lista: enlaza todas las posiciones como lista libre, marca la lista ocupada como vacía (cabOcu = 0) y establece la primera posición libre en cabLib = 1.
PROCEDURE CrearVacia(VAR l: TListaEst);
VAR
i: INICIO..N;
BEGIN
FOR i := INICIO TO N-1 DO
l....