Discussion :

[jalilv6]

Ce programme a pour but de SUPPRIMER LA VALEUR DE POSITION 'k' DU VECTEUR T (décalage à gauche).
Voila le code mais je ne suis pas sûr de lui.

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
 
Program exo;
Var                 T : array [1..10] of integer;
                        N,i,k: integer;
Begin 
Read(n);
For i :=1 to n do
                         read(T[i]);
For i:=1 to n do 
                        write(T[i]);
read(k);
For i:=1 to k-1 do begin 
                                      T[i]:=T[i];
                              end;
 
For i:= k to n-1 do begin
                                       T[i]:=T[i-1];      	  
                               end;
 
For i:=1 to n-1 do 
                             Write(T[i]);
Readln;readln;
End.

merci de bien vouloir m'éclairer.

Traduit du SMS en français par Alcatîz

[neilbgr]

Extrait du réglement du forum :

3.3. Titre de votre message clair
Prenez le temps qu'il faut pour bien choisir le titre de votre question.

Les titres de questions sans aucuns sens du genre "Au secours" , "Help !!!", "aidez moi", "une question" , "Petit problème", etc. font perdrent un temps considérable aux lecteurs, qui doivent cliquer sur les messages dont le titre n'évoque rien. C'est pire encore quand vous faites une recherche sur les anciens messages.

Les messages aux titres inadéquats pourront être soit édités, soit supprimés, soit boycottés, suivant l'humeur des lecteurs et des modérateurs.

[Juju_41]

Bonjour

Pour commencer, cette partie du code est inutile :

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;

T[i] := T[i] ne sert pas dans votre algorithme.

Sinon :

Code :

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

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

Pour les éléments k à n-1, vous affectez la valeur de l'élément précédent du tableau à la place d'affecter la valeur de l'élément suivant

En espérant avoir pu vous aider

Bon courage