Lecture de nombres réels et recherche des deux plus grands

Version imprimable

Bonjour,

J'ai un exercice à résoudre ; au lieu de voir le deuxième maximum, c'est le minimum qui s'affiche !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program xyz;
const fin=0;
var x,max1,max2:real;
begin
read(x);
max1:=x;
max2:=x;
while(x<>fin) do
  begin
  read(x);
  if x>max1 then max1:=x else
  if (x>max2) and (max2<max1) then max2:=x;
  end;
  readln;
  write('max1=',max1);
  write('max2=',max2); 
  end.

19/09/2012, 20h50
droggo

Mie,

Personne ici ne fera ton travail.

Montre-nous ce que tu as déjà fait, explique-nous ce qui te bloque, et on verra. :)
22/09/2012, 11h22
Alcatîz
Bonjour,

Sans vouloir te froisser, il y a plusieurs problèmes dans ton programme. ;)

Tout d'abord, le fait de commencer à affecter à max1 et à max2 le tout premier nombre lu : si, par la suite, moins de deux nombres lus sont supérieurs à ce premier nombre, le résultat de ton programme sera faux.
Il vaudrait mieux commencer par affecter à max1 et max2 des valeurs nulles :
Code:

1 2 max1:=0; max2:=0;
Ensuite, l'endroit où tu lis les nombres dans ta boucle n'est pas bon : en sortie de boucle, tu auras toujours le nombre 0 qui aura été pris en compte, alors qu'il ne doit pas être traité.
Ta boucle devrait donc être agencée différemment :
Code:

1 2 3 4 5 6 read(x) while(x<>fin) do begin (* --- *) read(x); end;
Enfin, tes tests ne sont pas parfaits ; tu peux t'en rendre compte en exécutant ton programme sur papier. Une piste pour les améliorer : si le nombre lu est supérieur à max1, max2 doit recevoir la valeur de max1 et max1 doit recevoir ce nombre.

;)

Help

Il y a beaucoup d'erreurs dans votre code. Est-ce que l'utilisateur doit entrer trois entiers ou plusieurs entier au choix ?
// si c'est trois entiers ou plus

Code:

1
2
3
4
5
6
7
8
9
10
11
 
// Tu peux te servir de ces fonctions
Function min (num_1, num_2 : Longint) :Longint;
Begin
         If (num_1 <= num_2) Then min:= num_1 Else min:= num_2; 
End;
Function max (num_1, num_2 : Integer) :Integer;
Begin
         If (num_1 <= num_2) Then max:= num_2 Else min:= num_1; 
End;
// ou alors passer pas les tableaux

Hoa,
Citation:
Envoyé par EtherOS
Il y a beaucoup d'erreurs dans votre code. Est-ce que l'utilisateur doit entrer trois entiers ou plusieurs entier au choix ?
// si c'est trois entiers ou plus
Code:

1 2 3 4 5 6 7 8 9 10 11 // Tu peux te servir de ces fonctions Function min (num_1, num_2 : Longint) :Longint; Begin If (num_1 <= num_2) Then min:= num_1 Else min:= num_2; End; Function max (num_1, num_2 : Integer) :Integer; Begin If (num_1 <= num_2) Then max:= num_2 Else min:= num_1; End; // ou alors passer pas les tableaux
Attention de rester cohérent : soit les variables sont des Longint, soit des Integer, ne pas changer de type selon la fonction appelée. :)

01/10/2012, 22h20
EtherOS

explication

je n'ai pas mis les Type Longint et Integer par erreur , je l'ai mis pour expliquer que ses entiers peuvent etre long ou court.A cet effet, j'ai pri un premier cas avec des Longints et le second avec des Integers .
01/10/2012, 23h33
Roland Chastain

Veuillez noter que le titre de la discussion est : "Lecture de nombre réels". ;)

Code:

var x,max1,max2:real;