Chaîne de fichiers texte : lire ligne par ligne, transformer, écrire un fichier résultat au format imposé

Un fichier texte "Couples.txt", enregistré à la racine du disque D, contient dans chaque ligne deux entiers strictement positifs a et b séparés par un seul espace. On se propose de générer un fichier texte "Triplets.txt" (racine du disque D) contenant, pour chaque couple tel que a² + b² est le carré d'un entier c, la ligne "a b c" formée des trois entiers séparés par un espace, puis d'afficher le contenu de "Triplets.txt".

Exemple de contenu du fichier "Couples.txt" :

3 4
5 7
8 15
6 9
20 21
12 35

Travail demandé :

1. Donner le contenu du fichier "Triplets.txt" pour cet exemple.
2. Écrire l'algorithme d'une fonction Racine(n) qui retourne l'entier c tel que c² = n si n est un carré parfait, et −1 sinon.
3. Écrire l'algorithme d'une procédure Triplets qui crée et remplit "Triplets.txt" à partir de "Couples.txt", puis affiche son contenu. Dresser son tableau de déclaration des objets locaux.

NB : le candidat n'est pas appelé à remplir le fichier "Couples.txt".

Un magasin enregistre ses ventes d'une semaine dans une matrice M de N lignes et 7 colonnes (5 ≤ N ≤ 50), de type Mat, déjà remplie par le programme appelant : M[i, j] est le nombre d'articles du produit numéro i vendus le jour j. Les lignes et les colonnes sont numérotées à partir de 0 ; le jour 0 est le lundi.

On se propose de créer, à la racine du disque D, un fichier texte "Bilan.txt" au format suivant :

• la première ligne est l'en-tête Produit;Total;Meilleur jour ;
• puis, pour chaque produit i, une ligne Pi;total;j où total est le nombre d'articles vendus dans la semaine et j le numéro du jour des plus fortes ventes (le premier de ces jours en cas d'égalité), les champs étant séparés par un point-virgule ;
• la dernière ligne est Produits sans vente un jour au moins : k, où k est le nombre de produits dont la ligne contient au moins un 0.

Exemple pour N = 3 (les 7 valeurs de chaque ligne de M, du lundi au dimanche) :

ligne 0 : 4 0 7 7 2 5 1
ligne 1 : 3 6 2 8 8 1 4
ligne 2 : 0 0 5 3 9 2 6

Travail demandé :

1. Donner le contenu du fichier "Bilan.txt" pour cet exemple.
2. Écrire l'algorithme d'une procédure Generer_Bilan(M, N) qui crée et remplit le fichier "Bilan.txt".
3. Dresser le tableau de déclaration des objets locaux de cette procédure.

Le fichier texte "Moyennes.txt", enregistré à la racine du disque D, contient dans chaque ligne le numéro d'inscription d'un candidat (6 chiffres), un espace, puis sa moyenne (un réel écrit avec un point, par exemple 11.25).

On se propose de créer, en un seul parcours de "Moyennes.txt", deux fichiers texte à la racine du disque D :

• "Admis.txt" : les lignes des candidats dont la moyenne est supérieure ou égale à 10 ;
• "Controle.txt" : les lignes des candidats dont la moyenne est dans l'intervalle [7, 10[.

Les lignes sont recopiées telles qu'elles figurent dans "Moyennes.txt". Les autres candidats ne sont écrits dans aucun fichier. À la fin, on affiche le nombre de candidats de chacune des trois catégories (admis, contrôle, refusés).

Exemple de contenu du fichier "Moyennes.txt" :

120451 12.5
120452 9.75
120453 6.5
120454 10
120455 7
120456 15.25
120457 8.5

Travail demandé :

1. Donner le contenu des fichiers "Admis.txt" et "Controle.txt" et les trois nombres affichés pour cet exemple.
2. Écrire l'algorithme d'une procédure Repartir qui réalise ce traitement, avec son tableau de déclaration des objets locaux.

NB : le candidat n'est pas appelé à remplir le fichier "Moyennes.txt".

Le fichier texte "Chemins.txt", situé dans le dossier D:\Cours, contient au moins une ligne. Chaque ligne contient le chemin d'accès complet d'un fichier texte existant, par exemple D:\Cours\algo.txt.

On se propose de créer, dans le même dossier, le fichier texte "Stat.txt". Chaque ligne de ce fichier contient le chemin d'un fichier listé, suivi de " : " et de son nombre de lignes. Une dernière ligne contient Plus long : suivi du chemin du fichier qui a le plus de lignes (le premier rencontré en cas d'égalité).

Exemple : "Chemins.txt" contient les trois lignes ci-dessous, et les fichiers algo.txt, bd.txt et web.txt comportent respectivement 12, 7 et 12 lignes.

D:\Cours\algo.txt
D:\Cours\bd.txt
D:\Cours\web.txt

Travail demandé :

1. Donner le contenu du fichier "Stat.txt" pour cet exemple.
2. Écrire l'algorithme d'une fonction NbLignes(chemin) qui retourne le nombre de lignes du fichier texte dont le chemin d'accès est chemin.
3. Écrire l'algorithme d'une procédure Statistiques qui crée et remplit le fichier "Stat.txt".
4. Si la boucle de comptage était écrite directement dans Statistiques, expliquer pourquoi on ne pourrait pas ouvrir chaque fichier listé avec le nom logique Fc déjà associé à "Chemins.txt".

Le fichier texte "Stock.txt", enregistré à la racine du disque D, contient au plus 100 lignes, à raison d'un article par ligne. Chaque ligne est formée du code de l'article (4 chiffres), d'un point-virgule, puis de la quantité en stock (un entier positif ou nul).

On se propose de réécrire ce même fichier en supprimant les articles dont la quantité est nulle, et en rangeant les lignes restantes par quantité décroissante.

Exemple de contenu initial du fichier "Stock.txt" :

4510;12
3302;0
7781;45
1209;7
5566;45
2014;0
6630;19

Travail demandé :

1. Déclarer les types TabCh et TabEnt, tableaux de 100 chaînes et de 100 entiers.
2. Écrire l'algorithme d'une procédure Charger(T, Q, n) qui range dans T les lignes de "Stock.txt" dont la quantité est non nulle, dans Q les quantités correspondantes, et dans n leur nombre.
3. Écrire l'algorithme d'une procédure Trier(T, Q, n) qui trie T et Q par quantité décroissante (tri par sélection).
4. Écrire l'algorithme d'une procédure Reecrire(T, n) qui réécrit le fichier "Stock.txt" ligne par ligne à partir de T.
5. Donner le contenu du fichier "Stock.txt" après traitement de l'exemple, puis expliquer pourquoi Charger doit fermer le fichier avant que Reecrire ne l'ouvre.

Dans les sujets des sessions 2015 à 2020, les fichiers texte étaient manipulés avec les primitives Associer, Ouvrir(F), Recréer, Lire_nl et Ecrire_nl. Voici un module écrit dans cette notation :

0) DEF PROC Copier (Var F1, F2 : Texte)
1) Associer (F1, "C:\Notes.txt")
   Associer (F2, "C:\Copie.txt")
   Ouvrir (F1)
   Recréer (F2)
2) Tant que Non (Fin_fichier (F1)) Faire
       Lire_nl (F1, ch)
       Si Long (ch) > 0 Alors
           Ecrire_nl (F2, ch)
       Fin Si
   Fin Tant que
3) Fermer (F1), Fermer (F2)
4) Fin Copier

Travail demandé :

1. Donner le rôle du module Copier.
2. Recopier et compléter le tableau de correspondance suivant.
3. Réécrire le module Copier dans la notation en vigueur, sous la forme d'une procédure Copier(ch1, ch2) dont les paramètres ch1 et ch2 contiennent les chemins d'accès des deux fichiers.
4. Le fichier "Notes.txt" contient les cinq lignes Algo 15, une ligne vide, BD 12, une ligne vide, Web 17. Donner le contenu du fichier "Copie.txt" après l'appel du module.