Application "livre"

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

Application "livre"

Message par haiethem le Lun 24 Sep - 22:46

Analyse :

=*=*=*=*=*=*=*=*=*=*=*=*=*=*

Résultat = 3) PROC affiche(l)

2) l ← t[a]

1) a ← FN min (t,n)

0) (t,n) = PROC saisir(n,t)







=*=*=*=*=*=*=*=*=*=*=*=*=*=*

Analyse des modules :

0) DEF PROC affiche(l:livre)

résultat =

1) écrire (l.aut,l.an,l.tit,l.dom,l.pag)

=*=*=*=*=*=*=*=*=*=*=*=*=*=*

0) DEF PROC saisir(var n:entier ; var t:tab)

résultat = n,t

1) n= [ ] répéter

n= donnée

jusqu'à n dans [1..20]

2) t= [ ] pour i de 1 à n faire

t[i].aut = donnée

t[i].an = donnée

t[i].tit = donnée

t[i].dom = donnée

t[i].pag = donnée

fin pour

=*=*=*=*=*=*=*=*=*=*=*=*=*=*

0) DEF FN min (t:tab ; n:entier):entier

résultat = 2) min ← a

1) a = [a ← 1] pour i de 2 à n faire

si t[i].pag < t[a].pag alors a ← i

finsi

finpour

=*=*=*=*=*=*=*=*=*=*=*=*=*=*


Dernière édition par haiethem le Lun 24 Sep - 22:53, édité 1 fois

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14345
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Remarque

Message par haiethem le Lun 24 Sep - 22:51

Les tableaux de declaration des objets locaux sont oubliés

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14345
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Programme Pascal

Message par haiethem le Lun 24 Sep - 23:21

program livres;
uses wincrt;
type
(* TYPES livre et tab : *)
livre = record
aut:string[50];
an:integer;
tit:string;
dom:string [40];
pag:integer;
end;
tab=array[1..20] of livre;

var t:tab;
n,a:integer;
l:livre;

(* SOUS PROGRAMMES *)

procedure saisir (var n:integer;var t:tab);
var i:integer;
begin
repeat
writeln('donner le nombre de livres'); readln(n);
until n in [1..50];
for i:= 1 to n do
begin
writeln('LIVRE NUMERO ',i,' : ');
readln(t[i].aut);
readln(t[i].an);readln(t[i].tit);
readln(t[i].dom);
readln(t[i].pag);
end;
end;

procedure affiche(l:livre);
begin
writeln('Le plus petit livre est :');
writeln('Auteur : ',l.aut,' année : ',l.an,' titre : ',l.tit,' domaine : ',l.dom,' nombre de pages : ',l.pag);
end;

function min(t:tab;n:integer):integer;
var i:integer;
begin
a:=1;
for i:= 2 to n do
if t[i].pag min := a;
end;

(* PROGRAMME PRINCIPAL *)
begin
saisir(n,t);
a:=min(t,n);
affiche(t[a]);
end.

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14345
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Re: Application "livre"

Message par Mondher le Jeu 27 Sep - 13:31

salut Monsieur,
je pense cetait mieux dmettre la fn min avant lproc affiche pour rendre les choses plus facile à comprendre, psk comme ça tas rendu lprogramme "plus compliqué" :/ psk si nous npretons pa attention au programme principal on va te dire ke comme ca lprogramme sera pas exécutable !

Mondher

Messages : 57
Points : 8876
Réputation : 0
Date d'inscription : 24/09/2012
Age : 22
Localisation : Tunisie

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Application "livre"

Message par haiethem le Jeu 27 Sep - 22:58

Salam.

Lors de l'analyse, l'ordre de définition des sous programmes n'est pas important. L'essentiel est de définir tous les modules.

Mais si tu parles à propos de l'analyse du programme on doit toujours commencer par le résultat et ensuite chaque nouvel objet qui apparaît doit être définit.

Salam.

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 419
Points : 14345
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Re: Application "livre"

Message par Mondher le Ven 28 Sep - 14:31

Salem,
je parle sur le programme pascal, plus precisement, sur le programme principal .. mais en tout cas cava comme sa aussi le programme est exécutable, juste j'ai voulu dire que si tas définit lfn min avant lproc affiche ça va être mieux

Mondher

Messages : 57
Points : 8876
Réputation : 0
Date d'inscription : 24/09/2012
Age : 22
Localisation : Tunisie

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: Application "livre"

Message par 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