Discussion :

[Dimitri3009]

Bonjour,

Je débute en Pascal, j'essaye de créer un tableau où l'on rentre une valeur, et cette valeur va être classée par ordre croissant dans le tableau.
Mais il me met une erreur, que je n'arrive pas à solutionner.
Pourriez-vous regarder et m'aider svp ?

Merci

Voilà mon programme

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
PROGRAM Tableau ;
TYPE
Tab = array[1..10] of integer ;
 
VAR
T : Tab;
a, i, c : Integer;
 
BEGIN
 
i:=2;
 
Writeln('Veuillez rentrer un premier nombre svp.');
Readln(a);
T[1]:=a;
 
 
While i<11 do
Begin
Writeln('Veuillez rentrer un',i,'ème nombre svp.');
Readln(a);
 
c:=1;
 
For c:=1 to i do
Begin
If a<T[c]
   Then T[c+1]:=T[c];
        T[c]:=a
   Else c:=c+1;
 
 
End:
End;
i:=1
For i:= 1 to 10 do
Begin
Writeln(T[i]);
i:=i+1;
End;
 
END.

[anapurna]

Salut
avant de donner une solution il faut paut etre comprendre ce que l'on programme ^^

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
PROGRAM Tableau ;
TYPE
  Tab = array[1..10] of integer ;
VAR
  T : Tab; 
  a, i, c : Integer;
 
BEGIN
   i:=2;
 
  Writeln('Veuillez rentrer un premier nombre svp.');
  Readln(a);
  T[1]:=a;
 
  While i<11 do
  Begin
    Writeln('Veuillez rentrer un',i,'ème nombre svp.');
    Readln(a);
    c:=1;
    For c:=1 to i do
    Begin
      If a < T[c] Then 
        T[c+1]:=T[c];  //Plantage assuré a la dixieme saisie 10+1 = 11 en dehors des limite du tableau 
      T[c]:=a
       Else c:=c+1;  // ??? il est attaché au if par quelle miracle ?
                           //  de plus dans une boucle for tu ne peut pas changer la variable d’incrément
 
     End:
     // manquerez pas l’incrément du i dans ta boucle ?
  End; // End of while ?
  i:=1
  For i:= 1 to 10 do
  Begin
    Writeln(T[i]);
    i:=i+1;
  End;
END.

voila déjà avant de faire un trie il faut t'assurer que la saisie des nombre soit correcte
ensuite tu pourras faire ton trie