Транспортировать матрицу

[sidestep]

Требуется транспортировать матрицу, то есть поменять столбцы со строками
например
123
123
123

надо в 111
222
333

[sidestep]

на Паскале

[sidestep]

Вся программа цикл в цикле,
A[i,j] меняется A[j,i]
Указать от чего i меняется, а от чего j

[Вадим Мошев]

Сделаю за 50 рублей.

[sidestep]

нее какие деньги?
я 2 дня назад начал изучать паскаль
вот написал
где ошибки и как надо дописать?

program trans;
var i,j,n,k :integer;
A: array[1..n,1..n] of integer;
begin
read(n);
for i:=1 to n do
  for j:=1 to n do
   begin
     A[i,j]:=k;
     A[j,i]:=A[i,j];
     A[j,i]:=k;
   end;
write(A[i,j],A[j,i]);
end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Вадим Мошев]

Ага, хорошо...

var i,j,n,k :integer;
A: array[1..n,1..n] of integer;

Размер для переменной должен быть известен в момент её объявления. Но у вас не известно, сколько памяти выделять под массив. Рекомендую написать так:

var i,j,n,k :integer;
A: array[1..10,1..10] of integer;

Кстати, вам надо получить транспонированную матрицу, или же просто вывести на экран исходную, но в транспонированном виде?

[Serge_Bliznykov]

у Вас в коде ошибка. дело в том, что Вы сначала меняете два элемента местами, потом, когда цикл доходит до элемента, который ранее был поменен, меняет его ещё раз (он становится на место.

самый простой способ решения - воспользоваться дополнительным массивом, куда и переносить данные.

есть и более сложные (в написании алгоритма) способы, не требующие дополнительной памяти.
Зато они потребуют чёткого представления, какой элемент на какое место должен быть поставлен...

Рекомендую написать так:

A: array[1..10,1..10] of integer;

а я рекомендую написать так:

const n = 10;
var 
  A: array[1..n,1..n] of integer;
...

Сообщение от Вадим Мошев

Кстати, вам надо получить транспонированную матрицу, или же просто вывести на экран исходную, но в транспонированном виде?

Кстати, да! Это принципиально важный вопрос!

[sidestep]

да исходную матрицу в транспонированном виде

[sidestep]

program trans;
var i,j,k :integer;
A: array[1..10,1..10] of integer;
begin
for i:=1 to 10 do
for j:=1 to 10 do
begin
A[i,j]:=k;
A[j,i]:=A[i,j];
A[j,i]:=k;
end;

Не знаю что дальше писать

end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Вадим Мошев]

Ну, тогда чтобы вам была пища для размышления, не буду писать полностью прогу, а только вывод.

for i:=1 to n do
	begin
	for j:=1 to n do
			write(A[j, i], ' ');

	WriteLn;
	end;

P.S. sidestep
Для того, чтобы опубликовать код, пользуйтесь кнопочкой