Utilisation Max et Min

Version imprimable

Bonjour,

Dans le cadre d'un exercice, j'ai créé un prog. qui permet d'écrire des données dans un fichier .dat, et un autre qui permet de lire ces données.

Nous avons une question à laquelle j'ai un peu de mal à répondre, à savoir :

dans le fichier créé, il y a des notes (Type : Réels), et on nous demande de trouver la note minimale et la note maximale !
Je sais qu'il existe des attributs Max et Min, mais j'ai un peu de mal à les mettre en oeuvre

Quelqu'un peut-il m'aider à comprendre ?

voici le programme qui crée le fichier DAT:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
-- ********************************************************
-- Nom Prog : ED11
-- Type : Application
-- Sujet : Ecriture dans un fichier
--
-- Auteur : P. RICHARD
-- Version : 1.1
-- Creation : 20/11/2002
-- Dern. Modif : 
--
-- Compilateur : GNAT 3.12p
-- Remarques : Environnement Windows XP SP2
-- ********************************************************
-- ********************************************************
-- Exemple d'utilisation des fichiers texte
-- Ecriture de "notes" dans un fichier
-- Structure Num_Ordre Num_devoir Note
-- ********************************************************
with Text_Io;
use Text_Io;
procedure Ed11 is
subtype Mes_Entiers is Integer range 0..100;
subtype Mes_Reels is Float range 0.0..20.0;
F_Out : File_Type;
Num_Ordre : Mes_Entiers;
Num_Devoir : Mes_Entiers;
Note : Mes_Reels;
Nom_Fichier : String := "FICH1.dat";
package Mes_Entiers_Io is new Integer_Io(Mes_Entiers);
use Mes_Entiers_Io;
package Mes_Reels_Io is new Float_Io(Mes_Reels);
use Mes_Reels_Io;
begin
Put_Line ("Debut - Execution ED11");
New_Line;
Put_Line ("Ecriture de ""notes"" dans un fichier FICH1.dat");
Put_Line ("-----------------------------------------------");
New_Line;
Put_Line("Creation du fichier et ecriture du nom");
New_Line;
Create (F_Out, Out_File, Nom_Fichier);
Put (F_Out, Nom_Fichier);
New_Line (F_Out);
-- ecriture des "notes" dans le fichier FICH1.dat
Num_Ordre := 10;
Num_Devoir := 1;
Note := 8.0;
Put (F_Out, Num_Ordre);
Put (F_Out, Num_Devoir);
Put (F_Out, Note);
New_Line (F_Out);
Put(Num_Ordre);
Put(Num_Devoir);
Put(Note);
New_Line;
Num_Ordre := 01;
Num_Devoir := 1;
Note := 10.0;
Put (F_Out, Num_Ordre);
Put (F_Out, Num_Devoir);
Put (F_Out, Note);
New_Line (F_Out);
Put(Num_Ordre);
Put(Num_Devoir);
Put(Note);
New_Line;
Num_Ordre := 09;
Num_Devoir := 1;
Note := 18.0;
Put (F_Out, Num_Ordre);
Put (F_Out, Num_Devoir);
Put (F_Out, Note);
New_Line (F_Out);
Put(Num_Ordre);
Put(Num_Devoir);
Put(Note);
New_Line;
Num_Ordre := 02;
Num_Devoir := 1;
Note := 4.0;
Put (F_Out, Num_Ordre);
Put (F_Out, Num_Devoir);
Put (F_Out, Note);
New_Line (F_Out);
Put(Num_Ordre);
Put(Num_Devoir);
Put(Note);
New_Line;
Num_Ordre := 08;
Num_Devoir := 1;
Note := 15.0;
Put (F_Out, Num_Ordre);
Put (F_Out, Num_Devoir);
Put (F_Out, Note);
New_Line (F_Out);
Put(Num_Ordre);
Put(Num_Devoir);
Put(Note);
New_Line;
Num_Ordre := 03;
Num_Devoir := 1;
Note := 16.0;
Put (F_Out, Num_Ordre);
Put (F_Out, Num_Devoir);
Put (F_Out, Note);
New_Line (F_Out);
Put(Num_Ordre);
Put(Num_Devoir);
Put(Note);
New_Line;
Num_Ordre := 07;
Num_Devoir := 1;
Note := 9.0;
Put (F_Out, Num_Ordre);
Put (F_Out, Num_Devoir);
Put (F_Out, Note);
New_Line (F_Out);
Put(Num_Ordre);
Put(Num_Devoir);
Put(Note);
New_Line;
Num_Ordre := 04;
Num_Devoir := 1;
Note := 14.0;
Put (F_Out, Num_Ordre);
Put (F_Out, Num_Devoir);
Put (F_Out, Note);
New_Line (F_Out);
Put(Num_Ordre);
Put(Num_Devoir);
Put(Note);
New_Line;
Num_Ordre := 05;
Num_Devoir := 1;
Note := 9.0;
Put (F_Out, Num_Ordre);
Put (F_Out, Num_Devoir);
Put (F_Out, Note);
New_Line (F_Out);
Put(Num_Ordre);
Put(Num_Devoir);
Put(Note);
New_Line;
Num_Ordre := 06;
Num_Devoir := 1;
Note := 7.0;
Put (F_Out, Num_Ordre);
Put (F_Out, Num_Devoir);
Put (F_Out, Note);
New_Line (F_Out);
Put(Num_Ordre);
Put(Num_Devoir);
Put(Note);
New_Line;
Num_Ordre := 11;
Num_Devoir := 1;
Note := 9.0;
Put (F_Out, Num_Ordre);
Put (F_Out, Num_Devoir);
Put (F_Out, Note);
New_Line (F_Out);
Put(Num_Ordre);
Put(Num_Devoir);
Put(Note);
New_Line;
Close (F_Out);
New_Line;
Put_Line ("Fin - Execution ED11");
end Ed11;

Code qui lit le fichier DAT

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
-- ********************************************************
-- Nom Prog : ED12
-- Type : Application
-- Sujet : Ecriture dans un fichier
--
-- Auteur : P. RICHARD
-- Version : 1.1
-- Creation : 20/11/2006
-- Dern. Modif : 
--
-- Compilateur : GNAT 3.12p
-- Remarques : Environnement Windows XP SP2
-- ********************************************************
-- ********************************************************
-- Exemple d'utilisation des fichiers texte
-- Ecriture de "notes" dans un fichier
-- Structure Num_Ordre Num_devoir Note
-- ********************************************************
 
with ada.Text_Io;
use ada.Text_Io;
 
procedure ED12 is
 
   subtype Mes_Entiers is Integer range 0..100;
   subtype Mes_Reels is Float range 0.0..2000.0;
   --subtype Mes_Notes is Float range 0.0..2000.0;
 
   F_In : File_Type;
   Sum_Notes              : Mes_Reels;
   --Moyenne                : Mes_Reels;
   Num_Ordre              : Mes_Entiers;
   Num_Devoir             : Mes_Entiers;
   Note                   : Mes_Reels;
   Nb_Enregistrements     : Mes_Entiers := 0;
   Nom_Fichier : String := "FICH1.dat";
   Nom : String (1 .. Nom_Fichier'Length);
 
   package Mes_Entiers_Io is new Integer_Io(Mes_Entiers);
   use Mes_Entiers_Io;
   package Mes_Reels_Io is new Float_Io(Mes_Reels);
   use Mes_Reels_Io;
   --package Mes_Reels_Io is new Float_Io(Mes_Notes);
   --use Mes_Reels_Io;
 
begin
 
   put_line("Debut - ED12");
   new_line;
   put_line("Lecture de donnees dans FICH1.dat");
   put_line("---------------------------------");
   new_line;
 
   Open (F_In, In_File, Nom_Fichier);
   Get (F_In, Nom);
   put("Nom du fichier en lecture : ");
   put(Nom);
   new_line(2);
 
   put_line("Num_Ordre  Num_Devoir  Note");
   new_line;
 
   while not End_Of_File (F_In) loop
      Nb_Enregistrements := Nb_Enregistrements + 1;
      Get (F_In, Num_Ordre); Get (F_In, Num_Devoir); Get (F_In, Note);
      put(Num_Ordre, width => 5); put("     ");
      put(Num_Devoir, width => 5); put("     ");
      put(Note, FORE => 3, AFT => 2, EXP => 0);
      Sum_Notes := Sum_Notes + Note;
      new_line;
   end loop;
 
   new_line;
   put("Nombres d'enregistrements : ");
   put(Nb_Enregistrements);
 
   new_line;
   put("Somme des notes           : ");
   put(Sum_Notes, FORE => 4, AFT => 2, EXP => 0);
 
   new_line;
   put("Moyenne                   : ");
   put(Sum_Notes/float(Nb_Enregistrements), FORE => 4, AFT => 2, EXP => 0);
 
   Close (F_In);
   new_line;
   put_line("Fin - ED12");
 
end ED12;

Merci

20/11/2006, 22h16
Poseidon62

Le Min et le Max s'appliquant uniquement aux types, çà ne peut pas fonctionner dans le cas que j'ai expliqué.

Merci à ceux qui ont cherché
21/11/2006, 10h19
jc-miranda
Citation:

Envoyé par Poseidon62

Le Min et le Max s'appliquant uniquement aux types, çà ne peut pas fonctionner dans le cas que j'ai expliqué.

Heu ... je ne comprends pas bien ce que tu entends par "s'appliquant uniquement aux types"?

Le code suivant illustre simplement l'utilisation de 'Max (C'est pareil pour 'Min)
Code:

1 2 3 4 5 6 7 8 9 with Text_Io; procedure Test_Max is Val1 : constant Float := 3.1; Val2 : constant Float := 4.5; begin Text_Io.Put_Line(Float'Image(Float'Max(Val1,Val2))); end Test_Max;
Ce programme te retournera la valeur de Val2.
Les attributs utilises pour connaitre les bornes d'un type sont 'First et 'Last.

En esperant que ca a pu t'aider. :)

A+

Juan
21/11/2006, 14h16
Hibou57

Citation:

Envoyé par Poseidon62

[...] dans le fichier créé, il y a des notes (Type : Réels), et on nous demande de trouver la note minimale et la note maximale !
Je sais qu'il existe des attributs Max et Min, mais j'ai un peu de mal à les mettre en oeuvre [...]

Poséidon.... poséidon.... tu n'as vraiment pas une petite idée de la méthode à appliquer pour trouver la plus petite et la plus grande valeur d'une série de nombre ? ;)

Je ne vais pas te donner la solution : comment ferais tu pour d'abord retrouver le plus grand ou le plus petit de deux nombres ? ;)

... je suis sûre que tu sais :D

N.B. Attention à ne pas confondre les bornes minimal et maximal d'un type et les valeurs minimal et maximal d'une série de nombre.. ça n'a rien à voir.

إلى اللقاء (à bientôt) :)

Merci de vous être penchés sur le problème

D'abord, pour répondre à jc-miranda, ce que j'entends par type, c'est précisément ce que tu as utilisé (Float, Integer, ...).

Ensuite, en réponse au post de Hibou57,

Voici ce que j'ai fait (en rouge) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
-- ********************************************************
-- Nom Prog : ED13.adb
-- Type : Application
-- Sujet : Ecriture dans un fichier
--
-- Auteur : P. RICHARD
-- Version : 1.1
-- Creation : 20/11/2006 - 22:52
-- Dern. Modif : 
--
-- Compilateur : GNAT 3.12p
-- Remarques : Environnement Windows XP SP2
-- ********************************************************
-- ********************************************************
-- Exemple d'utilisation des fichiers texte
-- Ecriture de "notes" dans un fichier
-- Structure Num_Ordre Num_devoir Note
-- ********************************************************

with ada.Text_Io;
use ada.Text_Io;

procedure ED13 is

   subtype Mes_Entiers is Integer range 0..100;
   subtype Mes_Reels is Float range 0.0..2000.0;
   --subtype Mes_Notes is Float range 0.0..2000.0;
   
   F_In : File_Type;
   Sum_Notes              : Mes_Reels;
   Num_Ordre              : Mes_Entiers;
   Min_numord             : Mes_Entiers;
   Max_numord             : Mes_entiers;
   Num_Devoir             : Mes_Entiers;
   Note                   : Mes_Reels;
   Min_note               : Mes_Reels := 20.0;
   Max_note               : Mes_Reels := 0.0;
   Nb_Enregistrements     : Mes_Entiers := 0;
   Nom_Fichier : String := "FICH1.dat";
   Nom : String (1 .. Nom_Fichier'Length);
   
   package Mes_Entiers_Io is new Integer_Io(Mes_Entiers);
   use Mes_Entiers_Io;
   package Mes_Reels_Io is new Float_Io(Mes_Reels);
   use Mes_Reels_Io;
   --package Mes_Reels_Io is new Float_Io(Mes_Notes);
   --use Mes_Reels_Io;
   
begin

   put_line("Debut - ED12");
   new_line;
   put_line("Lecture de donnees dans FICH1.dat");
   put_line("---------------------------------");
   new_line;
   
   Open (F_In, In_File, Nom_Fichier);
   Get (F_In, Nom);
   put("Nom du fichier en lecture : ");
   put(Nom);
   new_line(2);
   
   put_line("Num_Ordre  Num_Devoir  Note");
   new_line;
   
   while not End_Of_File (F_In) loop
   
      Nb_Enregistrements := Nb_Enregistrements + 1;
      
      Get (F_In, Num_Ordre); Get (F_In, Num_Devoir); Get (F_In, Note);
      
      put(Num_Ordre, width => 5); put("     ");
      put(Num_Devoir, width => 5); put("     ");
      put(Note, FORE => 3, AFT => 2, EXP => 0);
      
      Sum_Notes := Sum_Notes + Note;
      
         if Note > Max_note then
            Max_numord := Num_Ordre;
            Max_note := Note;
         elsif Note < Min_note then
            Min_numord := Num_Ordre;
            Min_note := Note;
         end if;
         
      new_line;
   end loop;
   
   new_line;
   put("Nombres d'enregistrements : ");
   put(Nb_Enregistrements);
   
   new_line;
   put("Somme des notes           : ");
   put(Sum_Notes, FORE => 4, AFT => 2, EXP => 0);
   
   new_line;
   put("Moyenne                   : ");
   put(Sum_Notes/float(Nb_Enregistrements), FORE => 4, AFT => 2, EXP => 0);
   
   new_line;
   put("Note minimale             :");
   put(Min_note, FORE => 5, AFT => 2, EXP => 0);
   put("     ");
   put("Numero d'ordre : ");
   put(Min_numord);
   
   new_line;
   put("Note maximale             :");
   put(Max_note, FORE => 5, AFT => 2, EXP => 0);
   put("     ");
   put("Numero d'ordre : ");
   put(Max_numord);
   
   Close (F_In);
   new_line;
   put_line("Fin - ED13");
   
end ED13;

çà fonctionne à merveille !!!

Merci à tous

22/11/2006, 09h44
kOrt3x

Salut a toi Poseidon62,

je suis aussi dans le cours que toi! ;)

et je bloquer justement sur les notes max et min avec l'association des numord.

je n'avais pas initialiser les valeurs Max_Numord et Min_Numord.

Mais effectivement ça marche tres bien.

Merci a toi.
;)