23 lines
584 B
Text
23 lines
584 B
Text
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
|