flyingscorpio/efrei
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Write pile

Browse source
This commit is contained in:
flyingscorpio@arch-desktop 2021-09-06 15:40:17 +02:00
parent adc83e2fb2
commit b7debe51f3
2 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
algorithmique/piles-files/file.algo
View file

@ -3,9 +3,8 @@ Algorithme : Création d'une file
Début Début
Variable F : File Variable F : File
Procédure InitialiserFile(var F : File) Procédure InitialiserFile(var F : File)
var F : File F.Tête <- 0
F.Tête = 0 F.Queue <- 0
F.Queue = 0
FinProcédure FinProcédure
Fonction EstFileVide(var F : File) : Booléen Fonction EstFileVide(var F : File) : Booléen
Si F.Tête = F.Queue: Si F.Tête = F.Queue:

14
algorithmique/piles-files/pile.algo
View file

@ -3,15 +3,21 @@ Algorithme : Création d'une pile
Début Début
Variable P : Pile Variable P : Pile
Procédure InitialiserPile(var P : Pile) Procédure InitialiserPile(var P : Pile)
... P.Tête <- 0
P.Queue <- 0
FinProcédure FinProcédure
Fonction EstPileVide(var P : Pile) : Booléen Fonction EstPileVide(var P : Pile) : Booléen
... Si P.Tête = P.Queue:
Retourner(Vrai)
FinSi
Retourner(Faux)
FinFonction FinFonction
Procédure Empiler(var x : Entier, var P : Pile) Procédure Empiler(var x : Entier, var P : Pile)
... P.Queue <- P.Queue + 1
P^.Queue <- x
FinProcédure FinProcédure
Procédure Dépiler(var x : Entier, var P : Pile) Procédure Dépiler(var x : Entier, var P : Pile)
... x <- P^.Tête
P.Tête <- P.Tête - 1
FinProcédure FinProcédure
Fin Fin