| Vladimir_S |
27.11.2015 09:43 |
Цитата:
Сообщение от Дарья71
(Сообщение 1182119)
Транспонировать матрицу размером A(m,n). Турбо паскаль
|
Разрешите доложить.
Ваше задание - выполнено!
Впервые в истории человечества!
Я бы не взялся, но - приказ есть приказ!
Разрешите идти?
Код:
Var
A,AT:Array[1..100,1..100] of Real;
M,N,i,j:Byte;
Begin
Write('Number of lines = ');
Readln(M);
Write('Number of columns = ');
Readln(N);
for i:=1 to M do
for j:=1 to N do
begin
write('A[',i,',',j,'] = ');
readln(A[i,j]);
AT[j,i]:=A[i,j];
end;
writeln;
writeln('Initial matrix:');
for i:=1 to M do
begin
for j:=1 to N do write(A[i,j]:8:3);
writeln;
end;
writeln('Transposed matrix:');
for i:=1 to N do
begin
for j:=1 to M do write(AT[i,j]:8:3);
writeln;
end;
Readln
End.
|
