Insérer une valeur dans un vecteur

Version imprimable

Salut je suis étudiant en 1ère année.
J'ai écrit un programme mais il ne me donne pas le bon résultat.
Le but de ce programme est d'INSERER UNE VALEUR VAL ENTIERE à LA POSITION K DUN VECTEUR T (décalage à droite).
Voici le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Program exo;
Var                 T : array [1..10] of integer;
                        N,i,k,val : integer;
Begin 
Read(n);
For i :=1 to n do
                         read(T[i]);
For i:=1 to n do 
                        write(T[i]);
read(k);read(val);
For i:=1 to k-1 do begin 
                                      T[i]:=T[i];
                            end;
T[k]:= val;
 
For i:= k+1 to n+1 do begin
                                            T[i]:=T[i+1];      	
                                   end;
 
For i:=1 to n+1 do 
                             Write(T[i]);
Readln;readln;
End.

D'apràs moi il est juste mais il ne me donne pas le bon résultat.
Merci de bien vouloir me répondre avant le vendredi merci.

Traduit du SMS en français par Alcatîz

06/04/2006, 09h40
Juju_41
Bonjour :)

Grossomodo, mêmes remarques que j'ai fait sur votre autre message à savoir :
Code:

1 2 3 For i:=1 to k-1 do begin T[i]:=T[i]; end;
C'est inutile.
Code:

1 2 3 For i:= k+1 to n+1 do begin T[i]:=T[i+1]; end;
Vous affectez à chaque élément du tableau la valeur de l'élément suivant à la place de la valeur de l'élément précédent

Code:

T[k]:= val;

Attention, vous devez placer cette ligne de code à un endroit précis et judicieux :wink:

Citation:

Envoyé par jalilv6

merci de bien vouloir me repondre avant le vendredi merci.

Le merci est le bienvenu :D ... le reste n'est pas nécessaire, les membres du forum répondent du mieux qu'ils le peuvent quand ils ont le temps, et il n'y a pas de messages plus prioritaires que d'autres :wink:

attention de plus

Code:

1
2
3
4
5
6
7
8
9
 
Var                 T : array [1..10] of integer;
...
Read(n);
...
 
For i:= k+1 to n+1 do begin
                                            T[i]:=T[i+1];         
                                   end;

il serait prudent de limiter n à 1..8 ! de même limiter k à 1..10

faire des readln / writeln pour la prise de données, écriture du résultat peut aider!
Si il est question de remplacer 1 élément, la boucle

Code:

1
2
3
4
5
 
 
For i:= k+1 to n+1 do begin
                                            T[i]:=T[i+1];         
                                   end;

est fausse..
De pus elle assigne T[n-1] à T[n+1] et t[n] à t[n+2] qui sont tous 2 non initialisés ?
Je pense que votre code devrais plutôt ressembler à

Code:

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
 
 
 
uses crt;
 
const MX = 10;
Var                  T          : array [1..MX] of integer;
                     N,i,k,val  : integer;
                     c          : char;
Begin
clrscr;
write('Donnez n 1.. ' ,MX,'   :  '); Readln(n);
if (n <=0) or (n > MX) then
   begin
   writeln('n hors limites');
   readln;
   halt
   end;
For i :=1 to n do begin write('T[',i,'] = ');  readln(T[i]); end;
writeln;
writeln('Voici la liste');
For i:=1 to n do write(T[i],' ');
writeln;
write('Modifier <M> ou inserer <I> un element:');
   repeat
   c:=UpCase(ReadKey);
   until c in ['I','M'];
writeln('  ',c);
if (c='I') and (n=MX) then
   begin
   write('Impossible : Liste  pleine!');
   readln;
   halt
   end;
if c='M' then
   write('Index … modifier <1..',n,'> et nouvelle valeur :  ')
else
   write('On insere entre k et k+1. donner k  1..',n,'>  :  ');
read(k);
readln(val);
if ( k < 1) or (k > n ) then
   begin
   write('k hors limites');
   readln;
   halt
   end;
if c='M' then
   begin
   For i:=k to n-1 do T[i+1]:=T[i];
   T[k]:= val;
   end
else
   begin
   if k < n then
      for i:=n downto k+1 do t[i+1]:=t[i];
   t[k+1]:=val;
   inc(n);
   end;
writeln('Nouvelle liste');
 
For i:=1 to n do  Write(T[i],' ');
writeln;
Readln;
End.