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

[Serge_Bliznykov]

ничего дальше писать не надо!
Перечитайте мой пост выше!
это раз.
Ответь на вопрос Вадима - Вам надо вывести транспонированную матрицу на экран или изменить исходную матрицу в памяти компьютера. Это два.

Подумать о том, откуда в исходной матрице возьмутся начальные значения. Три.

[sidestep]

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

можно это в коде отобразить? я не совсем понимаю

[sidestep]

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

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

Сообщение от sidestep

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

Я вам ответил уже вот здесь
http://www.programmersforum.ru/showp...7&postcount=10

[sidestep]

Подумать о том, откуда в исходной матрице возьмутся начальные значения. Три.

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;

- я правильно понял?

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

Правильно-то правильно, если не ошибаюсь, но откуда у вас в переменной k что-то появится, вы же туда ничего не записываете? (!!!)
Да и матрица у вас пустая. (!!!)

[sidestep]

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

begin
k:=A[i,j];
A[i,j]:=A[j,i];
A[j,i]:=k;
end;

а как матрицу заполнить?

A[i]:=i;
A[j]:=j;

как-то так заполнить?

A[i,j]:=random(100);

_____________________________
Форум - не чат!
Не надо плодить подряд несколько коротких сообщений!
Это нарушение правил...
для того, чтобы через минуту/другую дописать сообщение,
не надо создавать ещё один новый пост.
нажимайте на предыдущем кнопку "Правка"
и дописывайте в своё сообщение, что Вы хотели добавить!

Модератор.

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

Сообщение от sidestep

A[i,j]:=random(100);

Да, можно и так.

И ещё: не постите сразу несколько сообщений подряд. пользуйтесь правкой. Это кнопочка "Edit" в правом нижнем углу ваших сообщений.

[sidestep]

program trans;
const n=10;
var i,j,k :integer;
A: array[1..n,1..n] of integer;
B: array[1..n,1..n] of integer;
begin
k:=0;
for i:=1 to 10 do
for j:=1 to 10 do
A[i,j]:=random(100);
for i:=1 to n do

begin
for j:=1 to n do
k:=A[i,j];
A[i,j]:=A[j,i];
A[j,i]:=k;
end;


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

	WriteLn;
	end;

end.

Не получается написать все-таки много вопросов. можете исходный код написать, я по нему буду разбираться и вопросы задавать в том, что не понятно. Заранее спасибо.

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

for i:=1 to n do

begin
for j:=1 to n do
k:=A[i,j];
A[i,j]:=A[j,i];
A[j,i]:=k;
end;

Если вам надо вывести ИСХОДНУЮ МАТРИЦУ, но в транспонированном виде, то зачем вы стараетесь транспонировать её программно, то есть преобразовываете массив?
А матрица A у вас, как написал выше Serge_Bliznykov у вас на выходе не изменится.

Массив B вы зачем-то объявили, но не используете.