[Débutant] Transposée d'une matrice
Bonsoir à tous !
Voilà, j'ai essayé de faire un petit programme qui calcule la transposée d'une matrice mais j'ai deux problèmes en fait !
Est-il possible d'afficher sous forme d'une matrice dans un programme Pascal ou pas ? 8O Car là, à la fin, il ne m'affiche les chiffres comme si c'était un tableau d'une dimension; je ne vois pas pourquoi :roll:
Voila mon code :
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
25
26
27
28
29
30
31
32
33
| Program Transposee;
var i,j,a,b : integer;
Tab : array [1..20 , 1..20] of integer;
Tab2 : array [1..20 , 1..20] of integer;
begin
writeln(' Colonnes ? ');
readln(a);
writeln(' lignes ? ' );
readln(b);
for i:= 1 to a do
begin
for j:=1 to b do
begin
writeln( ' Donner les valeurs ', i, ' ' ,j, ' de votre matrice ');
read(Tab[i,j]);
end;
end;
for i:=1 to b do
begin
for i:=1 to a do
Tab2[i,j] := Tab[j,i];
end;
for i:=1 to b do
begin
for j:=1 to a do
write(' la transposée de votre matrice est ==>',Tab2[i,j]);
readln;
end;
end. |
Je vous remercie pour vos réponses d'avance. A bientôt et bon courage à tous !
