Discussion :

[stephane_gilbert]

Bonjour, j'ai un problème d'affichage de tableau
mon programme m'affiche seulement la dernière valeur ???

voici une parti du code

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
  If (r>300) And (dom=1) Then
               env[a]:=env[a]+1;    // additionne le nombre de case utilise dans tableau
               h:=env[a];            // h est le total de case utilisé
 
                   //début entre donné
                   Begin
                       Writeln('Entrer le chiffre');
                       Readln(n);
                                     If (r>300) And (dom=1) Then
                                        n40[d]:=n;
                                        i:=n40[d];
 
For i:= 1 to h do  // h = nombre de case utilisé
               Begin
                    Writeln(n40[d],' ');   // il indique seulement la dernière donné r
               End;

si les conditions sont remplis le nombre est inséré dans le tableau. Si h=5 j'ai 5 fois la même valeur
L'utilisateur doit entré d'autre données et peut revenir plusieurs fois pour entré un chiffre, il ne prend que la dernière valeur entré.

Si on peut m'éclairé S.V.P.

[SergioMaster]

Code :

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

1
2
3
4
 For i:= 1 to h do  // h = nombre de case utilisé
               Begin
                    Writeln(n40[d],' ');   // il indique seulement la dernière donné r
               End;

Je crois que c'est un simple problème d'indice dans la boucle

Code :

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

1
2
3
4
 For i:= 1 to h do  // h = nombre de case utilisé
               Begin
                    Writeln(n40[I],' ');   // il indique seulement la dernière donné r
               End;

[stephane_gilbert]

Malheureusement j'ai essayé et il m'affiche que des zéros !!! j'ai fait plusieurs essai mais toujours rien

Merci

[anapurna]

salut

si j'ai bien tout compris

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
 
  If (r>300) And (dom=1) Then
   env[a]:=env[a]+1;    // additionne le nombre de case utilise dans tableau
 
   h:=env[a];      // h est le total de case utilisé
                    //début entre donné
  Begin
    Writeln('Entrer le chiffre');
    Readln(n);
    If (r>300) And (dom=1) Then
       n40[h]:=n; // on Ecrit la nouvelle valeur dans le dernier enregistrement 
   //    i:=n40[d]; cet affectation ne sert a rien ici
 
    For i:= 1 to h do  // h = nombre de case utilisé
    Begin
       Writeln(n40[i],' ');   // 
   End;

il nous manque des donnée
tu demande d'afficher un tableau de donnée le problème est que tu n'as pas de boucle de remplissage

@+ Phil