2021-09-06 15:26:16 +02:00
|
|
|
Algorithme : Création d'une file
|
|
|
|
|
|
|
|
|
|
Début
|
|
|
|
|
Variable F : File
|
|
|
|
|
Procédure InitialiserFile(var F : File)
|
2021-09-06 15:36:51 +02:00
|
|
|
var F : File
|
|
|
|
|
F.Tête = 0
|
|
|
|
|
F.Queue = 0
|
2021-09-06 15:26:16 +02:00
|
|
|
FinProcédure
|
|
|
|
|
Fonction EstFileVide(var F : File) : Booléen
|
2021-09-06 15:36:51 +02:00
|
|
|
Si F.Tête = F.Queue:
|
|
|
|
|
Retourner(Vrai)
|
|
|
|
|
FinSi
|
|
|
|
|
Retourner(Faux)
|
2021-09-06 15:26:16 +02:00
|
|
|
FinFonction
|
2021-09-06 15:36:51 +02:00
|
|
|
Procédure Enfiler(var x : Entier, var F : File)
|
|
|
|
|
F.Queue <- F.Queue + 1
|
|
|
|
|
F^.Queue <- x
|
2021-09-06 15:26:16 +02:00
|
|
|
FinProcédure
|
|
|
|
|
Procédure Défiler(var x : Entier, var F : File)
|
2021-09-06 15:36:51 +02:00
|
|
|
x <- F^.Tête
|
|
|
|
|
F.Tête <- F.Tête + 1
|
2021-09-06 15:26:16 +02:00
|
|
|
FinProcédure
|
|
|
|
|
Fin
|
