Pascal/Turbo Pascal - Cola que usa 2 pilas

 
Vista:
sin imagen de perfil

Cola que usa 2 pilas

Publicado por CaTZ (2 intervenciones) el 08/04/2015 08:18:21
Buenas gente,

Soy nuevo en Pascal y tengo una preguntilla.

Tengo que realizar la implementación de un TAD Cola. Para ello tengo que crear un tipo TCola que, internamente, usará dos pilas para simular su comportamiento. Por ejemplo, si quiero insertar un elemento, copio lo que hay en la pila1 a la pila2 e inserto el elemento (Supongo que sería utilizando los procedimiento copiar y apilar del TAD Pila).

El TAD Pila lo tengo hecho ya y funcionando todos sus procedimientos y funciones (Apilar, desapilar, cima....).

Mi pregunta es, ¿Cómo sería la declaración de la Cola?. Yo tengo esto, pero no se si será así:

1
2
3
4
5
6
7
8
9
10
11
12
TYPE
	PCola = ^MiCola;
	MiCola = RECORD
		Pila1 : TPila;
		Pila2 : TPila;
                END;
 
        TCola = RECORD
                Principio, fin : PCola;
                END;
 
	TInfo = TElem;

Me gustaría saber si sería así o no para empezar a pegarme con los procedimientos típicos (insertar, eliminar, copiar...).

Muchas gracias.

Un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

Cola que usa 2 pilas

Publicado por CaTZ (2 intervenciones) el 08/04/2015 13:24:52
Perdón por el doble mensaje, pero ya he conseguido hacer el ejercicio, así que pueden cerrar el post :)

Al final lo hice así:

1
2
3
4
5
6
7
8
9
TYPE
	TCola = ^MiCola;
	MiCola = RECORD
		Pila1 : TPila;
		Pila2 : TPila;
                Sig : TCola;
                END;
 
	TInfo = TElem;

Un saludo!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar