транспонирование прямоугольной матрицы

[che91]

Вроде простая задачка, но я сообразить не могу
Пишу:

program M_N_K;

uses wincrt;

const row=4;
      col=3;

type matr=array [1..row,1..col] of integer;
     vect=array [1..row] of integer;

var i,j : byte;
	X, B: vect;
	A, A_T, A_O: matr;
    k,n: integer;

BEGIN
k:=0;
for i:=1 to col do
  begin
    clrscr;
    for j:=1 to row do
      begin
      k:=k+1;
      A[j,i]:=k;

      end;
  end;
for i:=1 to row do
  begin
    for j:=1 to col do
      write(A[i,j]:4);
      writeln;
  end;

writeln('col ', col);
writeln('row ',row);
writeln;

i:=0;
J:=0;


for i:=1 to row do
  begin
    for j:=1 to col do
       begin
         A_T[j,i]:=A[i,j];
       end;
  end;

writeln;
for i:=1 to col do
  begin
    for j:=1 to row do
      write(A_T[i,j]:4);
      writeln;
  end;

END.

Вывод последней матрицы:
1 2 3 4
4 6 7 8
8 10 11 12

Как преобразовать эту часть:

for i:=1 to row do
  begin
    for j:=1 to col do
       begin
         A_T[j,i]:=A[i,j];
       end;
  end;

для получения результата?
Заранее благодарен

[Vanta11a]

Вот сообщение подходящее, правда для с++.

Сообщение от Гром

for (int i = 0; i < n - 1; i++)
 for (int j = i + 1; j < n; j++)
  swap(a[i][j], a[j][i]);

Ну а уж как реализовать функцию обмена значений между двумя переменными (swap) - оставляется читателю в качестве несложного домашнего упражнения. Благо задача эта даже не классическая, а боянистая.

На Pascal будет примерно так:

for i:=1 to n-1 do
for j:=1 to n do
swap (a[i,j],a[j,i]

[che91]

Матрица прямоугольная, n -- это число строк или столбцов?
И есть подозрение, что я пару часов назад это уже пробовал, и не дало желаемого
Я уже как только не извращался, гугл не дает однозначной и полезной инфы(

[che91]

С синтаксисом Си я знаком, можно и на Си, если вам так удобнее

[Vanta11a]

Во 2м цикле заменить n на m, ошибся. n - строки, m - столбцы.
Главный вопрос и он же проблема - в том, что матрицу (даже прямоугольную) в паскале нужно изначально объявлять квадратной с размером max(n,m), чтобы не было выхода за границы массива.

[Serge_Bliznykov]

che91, ничего не получится у Вас при таком подходе.

очевидно же, что если исходная матрица не квадратная (прямоугольная) и имеет размерность row x col
то транспонированная будет иметь размерность col x row

Ну и переменные для соответствующие матриц должны иметь такие размерности.
В вашем же случае исходная и траспонированная имеют одинаковую размерность. Это неправильно!

Добавлено

Главный вопрос и он же проблема - в том, что матрицу (даже прямоугольную) в паскале нужно изначально объявлять квадратной с размером max(n,m), чтобы не было выхода за границы массива.

или так.
или делать различные объявления (разную размерность) для исходной и траспонированной матриц:

var A : array [1..row,1..col] of integer;
     A_T : array [1..col,1..row] of integer;

[che91]

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

for i:=1 to col do
  begin
    for j:=1 to row do
       begin
         A_T[i,j]:=A[j,i];
       end;
  end;

это не решает проблемы.. или я туплю уже просто.

[che91]

Спасибо, товарищи! глаза мне открыли, туплю сижу весь вечер.

[Serge_Bliznykov]

Но если её объявит квадратной, то при замене эл-ты не встанут на нужные места,

глупости! Встанут куда надо.
Нужно только помнить, что у Вас есть число строк (row) и число столбцов (col). В транспонированной матрице они взаимно поменяют свой смысл (число строк станет числом столбцов и наоборот), но значения у них останутся! Нужно не забывать их использовать в циклах и всё у Вас получится!


p.s. кстати, а зачем Вам траспонировать матрицу то?!
Если вы будете к исходной обращаться в обратном порядке. и не нужно никакой дополнительной структуры!!

[che91]

Всё работает, свою глупейшую ошибку исправил, как мне вас отблагодарить?