Travail à Faire :
- Faire l’algorithme d’une action qui lit un fichier d’entiers et affiche tous les entiers de ce fichier qui sont pairs.
- Ecrire une action qui lit un fichier d’entiers et met dans un autre fichier d’entiers les valeurs paires.
- Faire une fonction qui recherche un entier x dans un fichier d’entiers et retourne vrai si x est dans le fichier.
Rappel:
Pour ouvrir un fichier :
OuvrirFichier (IdFic, ModeOuverture)
Avec ModeOuverture = lecture ou écriture ou rajout.
Pour fermer un fichier
FermerFichier (IdFic)
Pour lire un fichier
LireFichier (IdFic, élément) cela correspond à Lire(n) Ù cin>>n
Pour écrire un fichier
EcrireFichier (IdFic, élément) cela correspond à Ecrire(n) Ù cout<
Action EntierPairs (E : Fic : fichier d’entiers)
Var n : entier
Début
OuvrirFichier (Fic, lecture)
Si EtatFichier (Fic) = succès alors
LireFichier (Fic, n)
Tant que (EtatFichier (Fic) ? FdF) faire {ou FdF signifie Fin de
Fichier}
Si n%2=0 alors Ecrire(n)
LireFichier(n)
FermerFichier (Fic)
Sinon Ecrire (« Erreur, impossible d’ouvrir le fichier en lecture »)
Fin
Action EntiersPairsFichier (E : f1 : fichier d’entiers, ES : f2 : fichier d’entiers)
Var n : entier
Début
OuvrirFichier (f1, lecture)
Si EtatFichier (f1) = succès alors
OuvrirFichier (f2, écriture)
Si EtatFichier (f2) = succès alors
LireFichier (f1, n)
Tant que EtatFichier(f1)?FdF faire
Si n%2=0 alors EcrireFichier(f2, n)
LireFichier (f1, n)
FermerFichier(f2)
Sinon écrire (« Erreur en écriture »)
FermerFichier (f1)
Sinon écrire (« Erreur en lecture »)
Fin
Fonction Recherche (x : entier, f : fichier d’entiers) : booléen
Var bool repÍ false
Début
OuvrirFichier (f, lecture)
Si EtatFichier(f)=succès alors
LireFichier(f, n)
Tant que (EtatFichier(f) ? FdF ET n?x) faire
LireFichier(f, n)
Si n=x alors repÍ true
FermerFichier (f)
Sinon Ecrire (« Erreur en lecture »)
Fin
