Pilas y Colas

Librerías finalizadas programadas por usuarios entusiastas

Pilas y Colas

Notapor PowerDeath » Mié Ago 13, 2014 2:36 pm

Estuve estudiando las pilas y colas, son bastante útiles así que decidí implementarlas en Pauscal.
No entendí las listas enlazadas, cuando las estudie mas actualizo este post.

Código: Seleccionar todo
Importar "Cadena.prp"

Clase PscPilas,Matriz[]:Cadena,Posición,Número:Entero
   Privado:
   Proc Longitud:Entero
      Devolver Límite(Matriz)
   FinProc
   Proc Verificar:Booleano
      Contar Número = 0 a Límite(Matriz)
         Si CadLong(Matriz[Número]) Entonces Devolver Verd
      Seguir
      Devolver Falso
   FinProc
   Público:
   Proc CrearPila
      ReDim Matriz,1
      Posición = 0
   FinProc
   Proc DestruirPila
      Borrar Matriz
   FinProc
   Proc Apilar(Valor:Cadena):Booleano
      Resultado = Falso
      Si Posición = LongMat(Matriz) Entonces  ReDim Preservar Matriz, LongMat(Matriz) + 1
      Matriz[Posición] = Valor
      Posición = Posición + 1
      Devolver Verd
   FinProc
   Proc Desapilar:Booleano
      Resultado = Falso
      ReDim Preservar Matriz, LongMat(Matriz) - 1
      Devolver Verd
   FinProc
   Proc CimaPila:Cadena
      Devolver Matriz[Límite(Matriz)]
   FinProc
   Prop PilaVacia:Booleano
      Lec: Verificar
   FinProp
   Prop PilaLongitud:Entero
      Lec:Longitud
   FinProp
   Privado:
   Constructor: CrearPila
   Destructor: DestruirPila
FinClase

Clase PscColas,Matriz[]:Cadena,Posición,Valor:Entero
   Privado:
   Proc Comenzar
      ReDim Matriz,1
      Posición = 0
      Valor = 0
   FinProc
   Proc Terminar
      Borrar Matriz
   FinProc
   Proc Longitud:Entero
      Devolver Límite(Matriz)
   FinProc
   Proc ReDimencionarLaCola
      ReDim Preservar Matriz, LongMat(Matriz) + 1
   FinProc
   Público:
   Proc Encolar(Contenido:Cadena)
      Si Posición = LongMat(Matriz) Entonces ReDimencionarLaCola
      Matriz[Posición] = Contenido
      Posición = Posición + 1
   FinProc
   Proc DesEncolar
      Si Neg(Valor >= Límite(Matriz)) Entonces Valor = Valor + 1
   FinProc
   Proc FrenteCola:Cadena
      Devolver Matriz[Valor]
   FinProc
   Proc FondoCola:Cadena
      Devolver Matriz[Límite(Matriz)]
   FinProc
   Prop ColaLongitud:Entero
      Lec:Longitud
   FinProp
   Privado:
   Constructor: Comenzar
   Destructor: Terminar
FinClase
Imagen
PowerDeath
 
Mensajes: 160
Registrado: Sab Ago 11, 2012 5:29 am

Sponsor


Volver a Librerias

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron