République Algérienne Démocratique Et Populaire

Ministère de la Formation et de l'Enseignement Professionnels

Institut National Spécialisé de la Formation Professionnelle
CFPA Zouaie Mebarek Sedrata

Spécialité : Technicien informatique de Formatrice PSFEP02 : Yagoubi Wafia.

gestion. Semestre N° : 02.
Module : Elaborer des algorithmes Durée : 02H.
complexes/Maitriser un langage procédural.
‫مركز التكوين المهني والتمهين زواي مبارك سدراتة‬

Exercice N°01 :
CONTROLE n°01
On s’intéresse à la gestion des véhicules d’un parc auto. Chaque véhicule est caractérisé par un matricule,
une marque, un modèle, une couleur, le nombre de places, une puissance fiscale.
1- Donner l’enregistrement permettant de décrire un véhicule.
2- Ecrire un algorithme qui permet de :
Stocker les informations d’un parc auto regroupent au max 50 véhicules en utilisant les structures
adéquates ;
Etablir la liste (matricule, marque, modèle, puissance) des véhicules d’une couleur donnée ;
Etablir un tableau statistique contenant le nombre de véhicules immatriculés par wilaya ;

Exercice N°02 :
Soient F1 et F2 deux fichiers de chaînes de caractères. Chaque chaîne représente un mot. Ecrire un algorithme qui
construit un fichier F3, tel que F3 contient les mots de F1 qui n’existent pas dans F2.

Bon courage

Fiche de notation du contrôle

 Code de la section : INF 1205
Semestre N° : 02
Spécialité : Technicien informatique de Gestion

Notes Eléments à apprécier ou à noter

1/ La portée du tablier

1/ Respect des règles d’hygiène et de sécurité

1/ Le respect des étapes

8/ Interprétation correcte de l’exercice 1

5/ Interprétation correcte de l’exercice 2

4/ Le résultat final
Temps Alloué (T) Temps passé (t)
Total
H 02

Note finale=Note + (T-t)

Responsible
PSFEP 02: Yagoubi.W

Corrigé type - Controle n°1 -

Exercice 01 :
1-
Type TVehicule=Enregistrement
Matricule :chaine[11];
Marque :chaine[20];
Modele :chaine[10] ;
Nbp,Puis :entier ;
Fin ;
2-
Algorithme Parc ;
Type TMatricule=Enregistrement
/*déclarer les différents champs comme chaine afin de pouvoir afficher les 0
/*sans faire de traitements
Num :chaine[6] ;
Cat :caractère ;
Annee :chaine[2] ;
Cw :chaine[2] ;
Fin ;
TVehicule=Enregistrement
Matricule :TMatricule;
Marque :chaine[20];
Modele,Couleur :chaine[10] ;
Nbp,Puis :entier ;
Fin ;
Var TP :Tableau[1..500] de Tvehicule ;
TW :Tableau[1..48] de entier ;
V :TVehicule ;
I,N,A :entier ;
Col :chaine[10] ;
/*Fonction permettant de convertir une chaine en un entier ;
FonctionValCh(ch :chaine[10]) :entier ;
Var I,T,P,V :entier ;
Debut
P←1 ; ValCh←0 ; T←Taille(ch) ;
Pour I←1 à T
Faire Cas ch[T-I+1] Vaut
‘0’ :V←0 ;
‘1’ :V←1 ;
‘2’ :V←2 ;
‘3’ :V←3 ;
‘4’ :V←4 ;
‘5’ :V←5 ;
‘6’ :V←6 ;
‘7’ :V←7 ;
‘8’ :V←8 ;
‘9’ :V←9 ;
Fincas ;
ValCh←ValCh+V*P ;
P←P*10;
Fin;
Debut
Ecrire(‘Donner N’) ;
Repeter Lire(N) ; Jusqu’à N>0 et N≤500 ;
/*lecture du tableau des Véhicules
Pour I←1 à N
Faire
Avec V,V.Matricule
Faire
Lire(Num,Cat,Annee) ;
Lire(Marque,Modele,Couleur,Nbp,Puis) ;
Fait ;
TP[I]←V;
Fait;
Ecrire(‘Donner une couleur’) ; Lire(Col) ;
Pour I←1 à N
Faire Avec TP[I], TP[I].Matricule
Faire
Si Col=Couleur
Alors
Ecrire(Num,’-‘,Cat+Annee,’-‘,Cw) ;
Ecrire(Marque,Modele, ,Puis) ;
Fsi ;
Fait ;
Fait;
/*nombre de véhicules par wilaya ;
/*initialiser à 0 ;
Pour I←1 à 48 Faire TW[I]←0 ; Fait ;
Pour I←1 à N
Faire A← ValCh(TP[I].Matricule.Cw); TW[A]← TW[A]+1; Fait;
/*affichage
Pour I←1 à 48 Faire Ecrire(‘Wilaya ‘,I,’ Nombre ‘,TW[I]) ; Fait ;
Fin.
Exercice 02 :

Algorithme Mot123 ;
Var F1,F2,F3 : fichier de chaine[30] ;
X,Y :Chaine[30] ;
Trouve :booleen ;
Debut
Assigner(F1,’File1’) ; Assigner(F2,’File2’) ; Assigner(F3,’File3’) ;
Relire(F1) ; Reecrire(F3) ;
Tantque Non FDF(F1)
Faire
Lire(F1,X) ; /*Lire un mot de F1
Trouve←Faux ; /*on suppose que le mot n’existe pas dans F2
Relire(F2) ; /*revenir à chaque itération au debut du fichier F2
Tantque Non FDF(F2) et Non Trouve
Faire
Lire(F2,Y) ;
Si Y=X Alors Trouve ←Vrai Fsi ;
Fait ;
/* Si le mot n’est pas trouvé après le FDF de F2 on le met dans F3
Si Non Trouve Alors Ecrire(F3,X) Fsi ;
Fermer(F2) ;
Fait ;
Fermer(F1) ; Fermer(F3) ;
Fin.