Algorithme : Création d'une pile

Début
    Variable P : Pile
    Procédure InitialiserPile(var P : Pile)
        P.Tête <- 0
        P.Queue <- 0
    FinProcédure
    Fonction EstPileVide(var P : Pile) : Booléen
        Si P.Tête = P.Queue:
            Retourner(Vrai)
        FinSi
        Retourner(Faux)
    FinFonction
    Procédure Empiler(var x : Entier, var P : Pile)
        P.Queue <- P.Queue + 1
        P^.Queue <- x
    FinProcédure
    Procédure Dépiler(var x : Entier, var P : Pile)
        x <- P^.Tête
        P.Tête <- P.Tête - 1
    FinProcédure
Fin