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
    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