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

[kigeri]

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.

[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.

[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.

[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

[droggo]

Hoa,

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 :

Attention de rester cohérent : soit les variables sont des Longint, soit des Integer, ne pas changer de type selon la fonction appelée.

[EtherOS]

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 .

[Roland Chastain]

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

Code :

var x,max1,max2:real;