From b7debe51f30625b7b63511f4d8e447534dc88162 Mon Sep 17 00:00:00 2001 From: "flyingscorpio@arch-desktop" Date: Mon, 6 Sep 2021 15:40:17 +0200 Subject: [PATCH] Write pile --- algorithmique/piles-files/file.algo | 5 ++--- algorithmique/piles-files/pile.algo | 14 ++++++++++---- 2 files changed, 12 insertions(+), 7 deletions(-) diff --git a/algorithmique/piles-files/file.algo b/algorithmique/piles-files/file.algo index 1827d35..db9a697 100644 --- a/algorithmique/piles-files/file.algo +++ b/algorithmique/piles-files/file.algo @@ -3,9 +3,8 @@ Algorithme : Création d'une file Début Variable F : File Procédure InitialiserFile(var F : File) - var F : File - F.Tête = 0 - F.Queue = 0 + F.Tête <- 0 + F.Queue <- 0 FinProcédure Fonction EstFileVide(var F : File) : Booléen Si F.Tête = F.Queue: diff --git a/algorithmique/piles-files/pile.algo b/algorithmique/piles-files/pile.algo index 0f72967..0a07bf1 100644 --- a/algorithmique/piles-files/pile.algo +++ b/algorithmique/piles-files/pile.algo @@ -3,15 +3,21 @@ 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