Discussion :

[erickson]

J'aimerais inverser les chiffres d'un tableau par la boucle tant que. Voila mon programme; à ce niveau il fonctionne mais je bloque sur l'inversion :

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
program tableau;
uses winCrt;
var i,l,p,imax,tmp : integer;
t : array[1..10] of integer;               
var t1,t2 : real;
 
begin
     writeln('saisir les valeurs du tableau l:');
     for i:=1 to 3 do
             begin
             write('t[',i,']=') ; read(t[i]);
             end;
 
        for i:=1 to 3 do
        begin
        writeln('t[',i,']=',t[i]);
        end;
 
        while i<1 do   
 
         imax:= 6 div 2;
         for i:=1  to imax do
         tmp:=i;
         t[i]:=t[3-imax+1];
         t[i]:=tmp;          
 
 
end.

[M.Dlb]

Merci de lire les règles du forum : http://club.developpez.com/regles

Pour ton 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
 
var
  i, taille, tmp : integer;
  t : array[0..9] of integer;               
begin
  writeln('saisir les valeurs du tableau l:');
  for i := 0 to 2 do write('t[',i,']=') ; read(t[i]);
  for i := 0 to 2 do writeln('t[',i,']=',t[i]);
 
  taille := 3 div 2;
  i := 0;
  while i <= taille do
  begin
    tmp := t[i];
    t[i] := t[taille - i];
    t[taille - i] := tmp;
  end;
end.

[erickson]

slt, merci bocoup sa marche .