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

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.

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

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

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 .

merci

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

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.

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.