Algo tableauFile

enregistrement impFile
	tab[1:50]:tableau d'entiers
	fst : entier
	lst : entier
FinEnregistrement

var
	f : impFile
	
	
procedure enfiler(E/S f:impFile, E e:entier)
debut
	Si f.prem=f.dern+1 alors
		ecrire("La file est vide")
	sinon
		f.tab[f.lst mod 50 +1]
		f.lst:=(f.lst+1) mod 50
	FinSi
fin

fonction défiler(E/S f:impFile):entier
debut
	Si f.prem=f.dern+2 mod 50 alors
		ecrire("la file est pleine")
	sinon
		f.fst:=(f.fst mod 50 +1
		retourner(f.tab[f.fst])
	FinSi
fin
	
	
Debut
Fin