[TP] Remplir un tableau à partir des données d'un autre tableau

Salut
Aidez-moi à résoudre ce problème :

Citation:

Ecrivez un programme qui saisit un entier naturel non nul n suivi de n réels à placer dans un tableau A. Il remplit un 2eme tableau B par les élements de A en commençant par le dernier. C à d : B[1] contiendra A[n], B[2] contiendra A[n-1] et ainsi de suite.

Mon travail :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Program T; uses wincrt; var n,i,j:integer; A,B:array[1..100] of integer; begin readln(n); for j:= 1 to n do begin readln(A[j]); end; for i:= n downto 1 do begin readln(B[i]); end; end.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Program T;
uses wincrt;
var
n,i,j:integer;
A,B:array[1..100] of integer;
begin
readln(n);
for j:= 1 to n do
    begin
    readln(A[j]);
    end;
for i:= n downto 1 do
    begin
    B[i] := A[(n - i) + 1];
    end;
end.

c'est la solution

Bonsoir

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 remplir;
uses wincrt;
Type
  Tab=array[1..100]of integer;
var
  a,b:tab;
  n,i,j:integer;
begin
  repeat
    readln(n);
  until (n>0);
  for i:=1 to n do
    begin
      readln(A[i]);
    end;
  for j:=n downto 1 do
    begin
      B[n-j+1]:=A[j];
    end;
  for i:=1 to n do
    begin
      write(B[i]:4);
    end;
end.

C'est résolu
end.

tu peut faire aussi

Code:

1
2
3
4
for i ;= 1 to n do;
for j := n downto 1 do
b[i] := a[j];
end;

Kiu,
Citation:
Envoyé par gadalla
tu peut faire aussi
Code:

1 2 3 4 for i ;= 1 to n do; for j := n downto 1 do b[i] := a[j]; end;
Aïe, Aïe, Aïe, Aïe

Attention aux fautes de syntaxe.

ET, essaye de faire tourner ton code, et dis-nous s'il fait le travail prévu. :D

another solution

Code:

1
2
3
4
for i:=1 to n do 
begin
T[i]:=A[i];
end;

Voilà la solution :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Program T;
uses wincrt;
var
n,i,j:integer;
A,B:array[1..100] of integer;
begin
readln(n);
for i:= 1 to n do
    begin
    readln(A[i]);
    end;
j:=n;
for i:=1 to n do
    begin
    A[i]:=B[j];
    j:=j-1;
    end;
end.