طلب اسئلة مسابقة تقني سامي اعلام آلي جامعة تبسة

[halim1980]

[quote=fahd ayache;2078128]هذا التمرين كان في احد مواضيع مسابقة توظيف

La direction d'un journal hebdomadaire régional, tirant à 200 000 exemplaires distribués sur 200 points de vente, souhaite obtenir des informations sur ses ventes.
Vous disposez d'un fichier nommé FicMagasin en organisation séquentielle contenant les informations suivantes :
- Numéro de point de vente (Chaine de 3 caractères)
- Type de magasin (1-Tabac/Journaux 2-Papeterie/Librairie 3-Grande surface)
- Nombre d'exemplaires expédié au magasin
- Nombre d'exemplaires invendus et retournés par le magasin
1**Ecrire l'algorithme permettant à partir du fichier FicMagasin d'afficher :
- Le nombre total d'exemplaires vendus
- Le nombre total d'exemplaires retournés
2**Ecrire l'algorithme permettant à partir du fichier FicMagasin de stocker dans un autre fichier :
- Le numéro de point de vente
- Le nom du gérant du magasin
pour lesquels on observe 70% de retours et plus.

Solution:
1**Description des objets

Type enrvente
- nopoint : Numéro de point de vente : Chaine (3)
- typemag : Type de magasin : Chaine (1)
- codezone : (1 à 6) : Chaine (1)
- nom : Nom du gérant du magasin : Chaine
- nbexp : Nombre d'exemplaires expédiés au magasin : Entier
- nbinv : Nombre d'exemplaires invendus et retournés par le magasin : Entier
var
FicMagasin : Fichier séquentiel de enrvente
unevente : enrvente
nbtotven : Nombre total d'exemplaires vendus : Entier
nbtotret : Nombre total d'exemplaires retournés : Entier
CODE
Début
(* Mise à zéro des cumuls *)
nbtotvent<-- 0
nbtotret<-- 0

(* Ouverture du fichier en lecture *)
Ouvrir (FicMagasin, lecture, séquentiel)

(* Lecture du 1er enregistrement *)
Lire (FicMagasin, uneVente)

Tant que Non FinFichier(FicMagasin)

nbtotven <-- nbtotven + (uneVente.nbexp - uneVente.nbinv)
nbtotret <-- nbtotret + (uneVente.nbinv

(* Lecture de l'enregistrement suivant *)
Lire (FicMagasin, uneVente)

Fin tant que

Afficher "Le nombre total d'exemplaires vendus : " ; nbtotven
Afficher "Le nombre total d'exemplaires retournés : " ; nbtotret

Fermer (FicMagasin)
Fin

2**Description des objets

Type enrvente
- nopoint : Numéro de point de vente : Chaine (3)
- typemag : Type de magasin : Chaine (1)
- codezone : (1 à 6) : Chaine (1)
- nom : Nom du gérant du magasin : Chaine
- nbexp : Nombre d'exemplaires expédiés au magasin : Entier
- nbinv : Nombre d'exemplaires invendus et retournés par le magasin : Entier
var
FicMagasin : Fichier séquentiel de enrvente
uneVente : enrvente

Type enr70
- nopoint : Numéro de point de vente : Chaine (3)
- nom : Nom du gérant du magasin : Chaine

Vente70 : Fichier séquentiel de enr70
uneVente70 : enr70
CODE

Début

(* Ouverture des fichiers *)
Ouvrir (Vente70, écriture, séquentiel)
Ouvrir (FicMagasin, lecture, séquentiel)

(* Lecture du 1er enregistrement de Vente *)
Lire (FicMagasin, uneVente)

Tant que Non FinFichier(FicMagasin)

Si (uneVente.nbinv / uneVente.nbexp) * 100 >= 70
Alors
uneVente70.nopoint <-- uneVente.nopoint
uneVente70.nom <-- uneVente.nom

(* Ecriture dans uneVente70 *)
Ecriture (Vente70, uneVente70)
FSI

(* Lecture suivantes dans Vente *)
Lire (FicMagasin, uneVente)

Fin Tant Que

Fermer (FicMagasin)
Fermer (Vente70)

Fin

هذا التمرين كان في امتحان مسابقة الخزينة الجهوية سطيف جرى بجامعة ممنتوري قسنطينة يوم 31/10/2008 شكــــــرا للأخ fahd ayache