17 lines
388 B
Text
17 lines
388 B
Text
Algorithme : Création d'une file
|
|
|
|
Début
|
|
Variable F : File
|
|
Procédure InitialiserFile(var F : File)
|
|
...
|
|
FinProcédure
|
|
Fonction EstFileVide(var F : File) : Booléen
|
|
...
|
|
FinFonction
|
|
Procédure Emfiler(var x : Entier, var F : File)
|
|
...
|
|
FinProcédure
|
|
Procédure Défiler(var x : Entier, var F : File)
|
|
...
|
|
FinProcédure
|
|
Fin
|