Discussion :

[The future scientist]

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

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 :

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

[M.Dlb]

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

[zizo89]

Bonsoir

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

[gadalla]

tu peut faire aussi

Code :

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

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

[droggo]

Kiu,

tu peut faire aussi

Code :

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

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.

[zizo89]

Code :

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

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

[The Bronx 05]

Voilà la solution :

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