حل لمادة م ق لأنظمة المعلومات و البطاقية

[جزائري 100%]

السلام عليكم و رحمة الله تعالى و بركاته
أقترح عليكم في أول مشاركة لي حل للسؤال الثاني من مادة المبادئ القاعدية لأنظمة المعلومات و البطاقية لامتحان تقني سامي إعلام آلي المجرى في قسنطينة أكتوبر 2008
نص التمرين

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
Ecrire l'algorithme permettant à partir du fichier FicMagasin d'afficher -
Le nombre total d'exemplaires vendus
Le nombre total d'exemplaires retournés

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

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

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

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

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

أتمنى أن أكون قد أفدتكم وبإذن الله سأنزل في موضوع لاحق الحلول لباقي التمرين التي متأكد من صحتها
أرجو من الله التوفيق للجميع