23 lines
584 B
Text
23 lines
584 B
Text
Algorithme : Création d'une file
|
|
|
|
Début
|
|
Variable F : File
|
|
Procédure InitialiserFile(var F : File)
|
|
F.Tête <- 0
|
|
F.Queue <- 0
|
|
FinProcédure
|
|
Fonction EstFileVide(var F : File) : Booléen
|
|
Si F.Tête = F.Queue:
|
|
Retourner(Vrai)
|
|
FinSi
|
|
Retourner(Faux)
|
|
FinFonction
|
|
Procédure Enfiler(var x : Entier, var F : File)
|
|
F.Queue <- F.Queue + 1
|
|
F^.Queue <- x
|
|
FinProcédure
|
|
Procédure Défiler(var x : Entier, var F : File)
|
|
x <- F^.Tête
|
|
F.Tête <- F.Tête + 1
|
|
FinProcédure
|
|
Fin
|