Problème: Exercice: Fichier: Enregistrement: SNCFT

Sujet:


Pour les statistiques d'une société de transport on enregistre dans un
fichier les fiches de chacun de ses trains.
Cette fiche comporte les
informations suivantes:

• Le code représentant le seul
  identificateur de train (entier de 4 chiffres)
  
• La date des
  voyages de la semaine représentée sous forme de numéro de semaine de
  l'année *Exemple 2/2007: correspond à la 2éme semaine de l'année 2007
  *Exemple 52/2007: correspond à la dernière semaine de 2007
  *NB:
  Une année compte 52 semaines au maximum
  
• Le nombre de
  voyageurs de chaque jour de la semaine notés respectivement dans un
  tableau de 7 entiers.
  

D'où les structures de données à
utiliser en Pascal seront déclarés comme suit:

Code:


 [b]Type[/b]
  Date = RECORD
         
s, a:integer;
          end;
  tab_nb_voy = array[1..7] of
integer;
  Train = RECORD
          Code:integer;
         
Semaine: date;
          Nb_voy:tab_nb_voy;
          end;
 
 Fichier = file of train;
 [b]Var[/b]
 f:fichier;
 

On vous demande de proposer un programme Pascal
organisé par un menu qui permet de choisir à chaque fois une tâche à
faire:

1. Afficher toutes les fiches
   
2. Ajouter
   un fiche
   
3. Rechercher le meilleur score
   
4. Quitter
   l'application
   

Donc
on vous demande de proposer:
a. une procédure INIT permettant d'ouvrir le fichier
"C:\fichier.bird" s'il existe et le créer sinon.
b. une procédure AFFICHAGE permettant d'afficher fiche
par fiche le contenu de ce fichier.
c. une procédure AJOUT permettant d'ajouter une autre
fiche.
d. une procédure MEILLEUR-SCORE
permettant de rechercher et d'afficher la fiche d'un train ayant le
meilleur score (celui dont le nombre des voyageurs de la semaine est le
plus important).