Devoir de controle n°1 (Lycée Hannibal Ariana)

Voir le sujet précédent Voir le sujet suivant Aller en bas

Devoir de controle n°1 (Lycée Hannibal Ariana)

Message  Houssem Mabrouki le Mar 4 Nov - 23:55

Un fichier contenant les references des livres d'une livres d'une bibliothéque est déjà crée et se trouve sur le disque dur "C",dans le dossier "Livre_Bib" sous le nom "manuels".Chaque référence contient les informations suivants :
- Le titre du livre (chaine de 401 caracteres)
- L'auteur (chaine de 25 caracteres)
- Le prix (réel)
- L'année d'édition (entier non signé)


On désire :
a/ Afficher la moyenne des prix des livres.
b/ Afficher la liste des livres ldont le prix dépasse un montant donnée.


Questions :
1- Donner la structure de données adéquate.
2- Ecrire les analyses et les algorithmes des différents modules du programme permettant les affichages demandés.un fichier contenant les references des livres d'une livres d'une bibliothéque est déjà crée et se trouve sur le disque dur "C",dans le dossier "Livre_Bib" sous le nom "manuels".Chaque référence contient les informations suivants :
- Le titre du livre (chaine de 401 caracteres)
- L'auteur (chaine de 25 caracteres)
- Le prix (réel)
- L'année d'édition (entier non signé)


On désire :
a/ Afficher la moyenne des prix des livres.
b/ Afficher la liste des livres ldont le prix dépasse un montant donnée.


Questions :
1- Donner la structure de données adéquate.
2- Ecrire les analyses et les algorithmes des différents modules du programme permettant les affichages demandés.


Dernière édition par Houssem Mabrouki le Mer 26 Nov - 21:16, édité 1 fois
avatar
Houssem Mabrouki

Messages : 4
Date d'inscription : 30/10/2008
Age : 27

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Devoir de controle n°1 (Lycée Hannibal Ariana)

Message  Hanafi le Mer 5 Nov - 16:19

Salut, Houssem ! Merci bien pour le partage, c'est généraux. J'espère que nos élèves vont réussir ce devoir. Bonne chance pour toi sunny
avatar
Hanafi

Messages : 106
Date d'inscription : 25/10/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Données adéquate ?

Message  Saafi RAMI le Jeu 6 Nov - 0:48

Salut houssem
J'ai pas compris cette question
Donner la structure de données adéquate No
avatar
Saafi RAMI

Messages : 37
Date d'inscription : 16/10/2008
Age : 27

Voir le profil de l'utilisateur http://www.imraude.skyrock.com

Revenir en haut Aller en bas

Re: Devoir de controle n°1 (Lycée Hannibal Ariana)

Message  Houssem Mabrouki le Jeu 6 Nov - 1:00

Dans ce question tu écrit les structure qui sont données.
exp dans ce exercice:
1)-Structure de données adéquate :
- Une structure enregistrement pour les informations des livres.
- Une structure fichier de données .
avatar
Houssem Mabrouki

Messages : 4
Date d'inscription : 30/10/2008
Age : 27

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Devoir de controle n°1 (Lycée Hannibal Ariana)

Message  Houssem Mabrouki le Jeu 6 Nov - 1:01

merci
avatar
Houssem Mabrouki

Messages : 4
Date d'inscription : 30/10/2008
Age : 27

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Données adéquate

Message  Hanafi le Jeu 6 Nov - 1:04

Salut Rami ! Ici, adéquate : qui convient. Vous devez proposer un type d'enregistrement et un type de fichier etc...
avatar
Hanafi

Messages : 106
Date d'inscription : 25/10/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Essai

Message  Saafi RAMI le Jeu 6 Nov - 2:44

Ah ok Mme
Je demande juste car j'ai pas vu ce type de question avant
bon voila c'est mon essai

program devoire;
uses wincrt;
type
info = record
titr : string [40];
Aut : string [20];
pr :real;
an :word;
end;
lvr = file of info;
var
f: lvr;
enr : info;
procedure ouverture (var f:lvr );
begin
assign (f,'e:\Livre_Bib\manuels');
reset (f);
end;

function Moyenne (VAR f: lvr) : real;
var somme : real;
begin
somme := 0;
while not (eof (f)) do
begin
read (f, enr);
somme := somme + enr.Pr;
end;
Moyenne := somme;
writeln('Fichier contient ',filesize(f),' enregistrements');
end;
procedure Liste (VAR f : lvr);
var m:real;
begin
writeln ('Entrer le montant du livre : ') ;
readln (m);
reset (f);
while not (eof (f)) do
read (f,enr);
if (enr.Pr > M) then
writeln (enr.Titr)
end;
begin
Ouverture (f);
writeln ('La moyenne des prix des livres est :', Moyenne (f)) ;
Liste (f);
close (f);
end.
avatar
Saafi RAMI

Messages : 37
Date d'inscription : 16/10/2008
Age : 27

Voir le profil de l'utilisateur http://www.imraude.skyrock.com

Revenir en haut Aller en bas

Re: Devoir de controle n°1 (Lycée Hannibal Ariana)

Message  Hanafi le Jeu 6 Nov - 18:07

Salut, Rami ! C'est bien ! Votre programme est juste, sauf pour le calcul de moyenne, vous avez oublié de diviser sur le nombre des livres. Parce que vous calculez la somme et pour le calcul de moyenne on peut utiliser une autre variable p:=filesize(f); moyenne:=somme/p; ou bien vous pouvez ecrire directement moyenne:=somme/filesize(f);. Pour la procédure Liste il faut écrire begin après
while not eof(f) et end; après writeln (enr.Titr). Sinon, le programme n'affiche qu'une seule valeur.
Sa7itik ya Rami !!! Bonne continuation. Smile
avatar
Hanafi

Messages : 106
Date d'inscription : 25/10/2008

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Devoir de controle n°1 (Lycée Hannibal Ariana)

Message  Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum