ABCdatos

Hola,

Disculpen la molestia, sucede que estoy llevando estructura de datos, el lenguaje que estamos llevando es VB 6.0, Conozco el tema, la funcion de las pilas y colas, anteriormente las habia manejado en pascal, por lo que ahora se me dificulta con un lenguaje orientado a objetos, les agradeceria mucho si me pudiesen proporcionar un ejemplo que me sirva de guia.

El algoritmo que usaba anteriormente en pascal era este: (solo q no me hayo al implementarlo en VB)

tipo Pila = registro
Cima_de_pila : 0..Tamaño_maximo_de_pila
Vector_de_pila : vector [1..Tamaño_maximo_de_pila]
de Tipo_de_elemento
fin registro
procedimiento Crear Pila ( P )
P.Cima_de_pila := 0
fin procedimiento
funcion Pila Vacia ( P ) : test
devolver P.Cima_de_pila = 0
fin funcion

procedimiento Apilar ( x, P )
si P.Cima_de_pila = Tamaño_maximo_de_pila entonces
error Pila llena
sino
P.Cima_de_pila := P.Cima_de_pila + 1;
P.Vector_de_pila[P.Cima_de_pila] := x
fin procedimiento
funcion Cima ( P ) : Tipo_de_elemento
si Pila Vacia (P) entonces error Pila vacia
sino devolver P.Vector_de_pila[P.Cima de Pila]
fin funcion
procedimiento Desapilar ( P )
si Pila Vacia (P) entonces error Pila vacia
sino P.Cima_de_pila := P.Cima_de_pila - 1
fin procedimiento



de antemano gracias por la respuesta que me proporcionen.