De franhpWiki

Contingut 1 Pila 1.1 Buidar 1.2 Empilar, Posar un valor a la pila 1.3 DesEmpilar , treure un valor de la pila 1.4 Cim , torna el valor del element del cim 1.5 Buida? , indica si la pila = buida 1.6 Ple?, indica si la pila = plena

Pila

   estructura pila{
       enter cim;
       enter valors[100];
   }P;
   

Buidar

   buidar(&P)
   
   acció buidar(estructura pila *P)
       var enter i; fvar
       per(i<-0;i<-P->cim;i++){
           P->valors[i]<-NUL;
       }
       P->cim<-0;
   facció
   
   

Empilar, Posar un valor a la pila

   empilar(valor, &P);
   
   acció empilar(enter valor, estructura pila *P)
       P->valors[P->cim]<-valor;
       P->cim++;
   facció
   

DesEmpilar , treure un valor de la pila

   escriure(desempilar(&P));
   
   enter desempilar (estructura pila *P)
       var enter num; fvar
       num<-P->valors[P->cim-1];
       P->valors[P->cim-1]<-NUL;
       P->cim--;
       retorna num
   facció
   
   o
   
   si(P->cim=0) aleshores
       escriure("pila buida");
       retorna NUL;
   sino
   valor<-(p->valor[p->cim-1]);
   (p->valor[p->cim-1])<-NUL
   p->cim--;

Cim , torna el valor del element del cim

   escriure(cim(&P));
   
   enter cim (estructura pila *P)
       return(P->valors[P->cim-1]);
   ffunció
   

Buida? , indica si la pila = buida

   escriure(buida(&P));
   
   bool buida (estructura pila *P)
       var enter i; fvar
       si(P->cim = 0) retorna FALSE;
       per(i<-0;i<-P->cim;i++)
           si(P->valors[i]!=NUL)
               retorna FALSE;
           fsi
       fper
       retorna TRUE;
   ffunció
   
   

Ple?, indica si la pila = plena

   escriure(ple(&P));
   
   bool ple(estructura pila *P)
       var enter i;fvar
       per(i<-0;i<-P->cim;i++)
           si(P->valors[i]==NUL)
               retorn FALSE;
           fsi
       fper
       retorna TRUE;
   ffunció