flyingscorpio/efrei
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Write file

Browse source
This commit is contained in:
flyingscorpio@arch-desktop 2021-09-06 15:36:51 +02:00
parent bbaf5fea8e
commit adc83e2fb2
1 changed files with 12 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
algorithmique/piles-files/file.algo
View file

@ -3,15 +3,22 @@ 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 Emfiler(var x : Entier, var F : File)
...
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