Retour vers: Concaténation de deux files
On appelle éclatement d’une file, le partage de cette file en deux files distinctes suivant un critère donné. Dans l’algorithme suivant on scinde une file en deux files distinctes suivant le critère de parité. On veut donc obtenir une file d’éléments à valeur paire et une file d’éléments à valeur impaire. Le prédicat Pair délivre la valeur Vrai quand le valeur du param^tre est paire.
Schéma Programme Eclater-Pair-Impair
Interface
Objectif: Création de deux files distinctes suivant un critère de parité
à partir d'une file pilote
Variable file : File -- file pilote
Variable file1 : File
Variable file2 : File
Résultat: Création de deux files
Remarque: file n'est pas modifiée
Fin-Interface
Procedure Eclater_Pair_Impair (file: File, file1: File, file2: File)
Déclaration
Variable valeur : Nombre
Instruction
Premier (file)
Premier (file1)
Premier (file2)
Prendre (file,valeur)
TantQue Non (Dernier(file))
Faire
Prendre(file,valeur)
Si Pair (valeur)
Alors
Ranger (laFile2,valeur)
Sinon
Ranger (laFile1,valeur)
Fin-Si
Avancer(file)
Fin-Faire
Fin-Instruction
Fin-Procedure
Fin_Schéma