Si el lenguaje tiene punteros, como Pascal debemos implementar las pilas con estos.

Declaración

Tipo

puntero_a nodo:punt

registro:tipo_elemento

fin_registro

registro:nodo

tipo_elemento:elemento

punt:cimafin_registro

Var

punt:cima

elemento:tipo_elemento

Debemos diseñar los siguientes procedimientos o funciones a usar con las pilas;

Inicializar o Crear;

Procedimiento inicializar(S punt:cima);

inicio

cima « -- nulo

fin_procedimiento.

Apilar o Meter;

Procedimiento meter (E/S punt:cima; E tipo_elemento:elemento)

var

punt:aux

inicio

reservar(auxi)

auxi --».elemento « -- elemento

auxi -- ».cima « -- cima

cima « -- auxi

fin_procedimiento (Los elementos se incorporan siempre por un extremo).

Desapilar o Sacar

Procedimiento Sacar(E/S punt:cima; S tipo_elemento:elemento)

var

punt:aux

inicio

auxi « -- cima

elementoi --».elemento « -- .elemento

cima -- »cima « -- .cima

liberar (auxi) ( liberar es un procedimiento para la eliminación de la variable dinámica).

fin_procedimiento.

Consultar

Procedimiento Consultarcima(E pnt:cima;

S tipo_elemento)

inicio

elemento «-- cima --».elemento

fin_procedimiento.

Vacia

Lógico función vacia (E punt:cima)inicio

devolver (cima=nulo)

fin_funcion.

Elaborado por ; Dinora Soto Castillo,. Dinora334@hotmail.com, dinorasoto2004@yahoo.comWebMaster : CIIUNA
WebMaster : CIIUNA.Optimizado para Internet Explorer y resolución 800x600.