Discussion :

[kOrt3x]

Bonjour,

je souhaite faire un programme qui fait le calcul de note à rentrer, en indiquant a chaque saisie :" rentrer la saisie au rang 1: N".
"N" étant n entier.

Puis avec une operation de moyenne des differrentes sommes rentré.
ex :
saisie au rang 1: N
saisie au rang 2: N
saisie au rang 3: N
...
Et faire stopper l'operation en rentrant la somme 0.

saisie au rang 1: 0

Fin de la saisie.
La somme est ?
La moyenne est ?.


Merci.

[plegat]

Salut,

je souhaite faire un programme
[...]
Merci.

Ben de rien...
Et que nous vaut l'honneur de cette missive?

[kOrt3x]

j'ai fais ça, pouvez vous regarder?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
with Ada.Text_Io, Ada.Float_Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Float_Text_Io, Ada.Integer_Text_Io;
 
procedure Ed05 is 
 
   Rang  : Integer := 1;  
   N     : Integer;  
   Somme : Integer := 0;  
   Moy   : Float;  
   -- Debut du programme                   
begin
   Put_Line ("**************************");
   Put_Line ("*                        *");
   Put_Line ("*  Calcul d'une moyenne  *");
   Put_Line ("*                        *");
   Put_Line ("**************************");
 
   New_Line;
   Put_Line ("   Entrer une saisie  ");
   Put_Line ("----------------------");
   New_Line;
   New_Line;
   Put ("Rentre une saisie :");
 
Get (N);
put ("Nom saisie au rang");
 
   New_Line;
 
   while N > 0 loop
 
      if N > 0 then
         Put ("Nombre saisie au Rang");
         Put (Rang, 2);
         Put (":");
         ;
         New_Line;
 
 
         Somme := Somme + N;
         Rang := Rang + 1;
 
      end if;
 
   end loop;
   if Rang - 1 =0 then
      Put_Line ("------------------------");
      Put_Line ("Ancun nombre saisie.");
   else
      Put_Line ("--------------------------");
      New_Line;
      Put ("Le nombre de rang est ");
      Put (Rang -1, 0);
      New_Line;
      Put ("La somme est ");
      Put (Somme , 0);
      New_Line;
      Moy := Float (Somme)/ Float (Rang -1);
      Put ("La moyenne est de ");
      Put (Moy,
        Fore => 5, 
        Aft  => 2, 
        Exp  => 0);
      New_Line;
      New_Line;
      Put_Line ("Fin du Programme.");
   end if;
end Ed05;

Merci.

[Celelibi]

Et bien c'est un jolie code.
Peut-être devrais-tu expliquer quel est le problème. Et pas un simple "ça marche pas"...

[kOrt3x]

Le problème est au niveau du calcule de la somme? et prends en compte le rang de la derniere saisie.

mais je vois pas ou et le pb.

[plegat]

Tu as une boucle infinie dans ton code (si on enlève le point-virgule qui traine au milieu...)

Une fois que l'on corrige ce premier soucis, et que l'on insère un Get(N) dans la boucle, on tombe sur d'autres soucis...

Tu ne prends pas en compte le premier N entré dans ta somme.

Tu divises par un rang de trop.

En gros, algorithme à revoir...

[kOrt3x]

ok, merci.

donc j'ai ajouter la valeur de N. pour ça c'est ok,
mais maintenant, il faut que je trouve comment faire pour qu'il prends le dernier rang avant la saisie de 0.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
with Ada.Text_Io, Ada.Float_Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Float_Text_Io, Ada.Integer_Text_Io;
 
procedure Ed05 is 
 
   Rang  : Integer := 1;  
   N     : Integer :=1 ;  
   Somme : Integer := 0;  
   Moy   : Float;  
   -- Debut du programme                   
begin
   Put_Line ("**************************");
   Put_Line ("*                        *");
   Put_Line ("*  Calcul d'une moyenne  *");
   Put_Line ("*                        *");
   Put_Line ("**************************");
 
   New_Line;
   Put_Line ("   Entrer une saisie  ");
   Put_Line ("----------------------");
   New_Line;
 
 
   while N > 0 loop
 
      if N > 0 then
 
 
         Put ("Nombre saisie au Rang");
         Put (Rang, 2);
         Put (":");   
         Get (N);
         New_Line;
 
 
         Somme := Somme + N;
         Rang := Rang + 1;
 
 end if;
   end loop;
       if Rang - 1 =0 then
      Put_Line ("------------------------");
      Put_Line ("Ancun nombre saisie.");
 
   else
      Put_Line ("--------------------------");
      New_Line;
      Put ("Le nombre de rang est ");
      Put ( Rang-1 , 0);
      New_Line;
      Put ("La somme est ");
      Put (Somme , 0);
      New_Line;
      new_line;
      Moy := Float (Somme + N)/ Float (( Rang)-1);
      Put ("La moyenne est de ");
      Put (Moy,
        Fore => 5, 
        Aft  => 2, 
        Exp  => 0);
      New_Line;
      New_Line;
 
      Put_Line ("Fin du Programme.");
   end if;
 
end Ed05;

quelqu'un aurai un indice?

Merci.

[kOrt3x]

problème résolu.

Il fallait juste remettre la nouvelle valeur de RANG, avec " RANG := RANG -1; "
et ça fonctionne.

Merci.