TAD Lista Estática
Publicado por Sergio (1 intervención) el 04/04/2015 17:18:29
Me podrían ayudar sobre como implementar el procedimiento construir con esta declaración de tipo?
UNIT ListaEst;
INTERFACE
USES Elem;
CONST MAX = 20;
TYPE
TInfo=TElem;
TIndice1= 0..MAX;
TIndice2= 1..MAX;
TNodo= RECORD
info: TInfo;
sgte: TIndice1;
END;
TAlmacen: ARRAY[TIndice2]OF TNodo;
TLista = RECORD
almacen: TAlmacen;
cabOcupado, cabVacia: TIndice1;
END
-----------
Gracias, un saludo.
UNIT ListaEst;
INTERFACE
USES Elem;
CONST MAX = 20;
TYPE
TInfo=TElem;
TIndice1= 0..MAX;
TIndice2= 1..MAX;
TNodo= RECORD
info: TInfo;
sgte: TIndice1;
END;
TAlmacen: ARRAY[TIndice2]OF TNodo;
TLista = RECORD
almacen: TAlmacen;
cabOcupado, cabVacia: TIndice1;
END
-----------
Gracias, un saludo.
Valora esta pregunta
0