Discussion :

[jalilv6]

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 :

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

[Juju_41]

Bonjour

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

Code :

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

1
2
3
For i:=1 to k-1 do begin 
  T[i]:=T[i]; 
end;

C'est inutile.

Code :

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

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 :

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

T[k]:= val;

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

merci de bien vouloir me repondre avant le vendredi merci.

Le merci est le bienvenu ... 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

[j.p.mignot]

attention de plus

Code :

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

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 :

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

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 :

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