DEVOIR SURVEILLE N°1 - SFAX - 4.Sciences Informatique - Tunisie

Exercice N° 1 : (10 pts)

1) Déclarer en algorithmique et Pascal :
- Le type enregistrement Vols comprenant les champs suivants :
* matricule est une chaîne de 10 caractères ;
* dest est une chaîne de 10 caractères qui désigne la ville d’arrivée,
* décision un booléen qui indique si le vol est annulé ou non;
* compagnie est un énuméré parmi TUNISAIR, NOUVELAIR ou KARTAGO ;
* liste_ps désigne la liste des passagers enregistrés pour ce vol.
Le nombre de passagers est entre 10 et 150 et le champ dat_vol est un enregistrement composé de 2 champs (j: entier, m: chaîne).
- Le type enregistrement Passagers qui mémorise l’ensemble de passagers .Ce type comporte les champs suivants :
· Le champ num_passport est un entier.
· le champ nom est une chaîne de 20 caractères.
· le champ age est un entier.
· le champ e-mail est une chaîne de 20 caractères.
· le champ adresse est une chaîne de 30 caractères.
· Le champ qte_bg est un réel qui désigne la quantité de bagage. Ce nombre est égal à 0 si le passager est sans bagages.
- Les vols sont stockés dans un tableau T_Vol de n vols.

2) Ecrire l’analyse et l’algorithme d’une procédure Affiche qui permet d’afficher les noms des passagers sans bagages pour un vol donné.

3) Ecrire l’algorithme d’une procédure AffichInf qui pour la compagnie TUNISAIR affiche les informations concernant les vols annulés pendant le mois de Juillet et ayant comme destination « Rome », ou bien affiche le message"Pas de vol annulé " dans le cas ou aucun vol à Rome est annulé pendant ce mois ou affiche le message " pas de vol", dans le cas aucun vol n’est organisé à Rome dans ce mois.
N.B : Tracer le tableau de déclaration des objets pour chaque procédure (si cela est nécessaire).

Exercice N° 2 : (5 pts)
On se propose d’enregistrer la liste des passagers d’un vol dans un fichier « C:\Passager.dat ».
1- Ecrire une fonction Vérif qui permet de vérifier la validité de l’adresse e-mail d’un passager. (Un e-mail est valide s’il contient le caractère @).
2- Ecrire l’analyse et l’algorithme de la procédure Saisie qui permet de saisir la liste des passagers et les sauvegarder dans le fichier. (Utiliser la fonction Vérif définie à la question n°1)

Exercice N° 3 : (5 pts)
Soit la procédure suivante :

Code:

Procedure Inconnu (………………………………………………………. ) ;
Var  …………………. ;
begin
For i : = 1 to (n-1) do
Begin
    For j : = n  downto  (i 1) do
        begin
                            IF T[ j ] < T [ j - 1] Then 
                                                          begin
                                                            Permut (T[j] , T[j-1])
                                                          end ;
        end ;
    end ;
        assign (F , 'C:\liste.dat') ;
        …………………………. ;
For i:=1 to n do
Begin
Write (F , T[i]) ;
End;
End;