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

[جزائري 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
أتمنى أن أكون قد أفدتكم وبإذن الله سأنزل في موضوع لاحق الحلول لباقي التمرين التي متأكد من صحتها
أرجو من الله التوفيق للجميع

[tarekus]

يارك الله فيك اخي
ارجوا منكم الدعوة الصادقة لكي أنجح انا وزوجتي.

[zinna2]

بارك الله فيك و جزاك الله كل الخير،
لقد اتى موضوعك في وقته، عندي الأسبوع المقبل امتحان في نفس المادة و مواد اخرى الخوارزمية و انظمة التشغيل الخاصة بالتقني السامي،اذا كانت عندك اخي مواضيع اخرى و حلولها في هذا الصدد فلا تبخل علينا. مشكور اخي.
اتمنى النجاح لكل الممتحنين.
:19:

[لجين1985]

مشكور وجزاك الله خير
أرجوا لكل من له cours fichiers "دروس البطاقيات " أن يفيدني بها في أقرب وقت لاني مقبلة علي امتحان رتبة تقني سامي.
شكرا مسبقا.