Программирование
+3Составить программу транспонирования целочисленных матриц.
Помогите составить программу транспонирования целочисленных матриц на Delphi.
По дате
По рейтингу
Проще транспонировать копированием в другую матрицу.
Транспонирование матрицы a[1..n, 1..m] в матрицу b[1..m, 1..n]:
for i := 1 to n do for j := 1 to m do b[j, i] := a[i, j];
пусть есть массив mas[1..256, 1..256] тип Integer
есть временная целая переменная tmp,
целые i, j и M-кол строк матрицы, N-кол. столбцов (не больше 256 конечно)
for i:=1 to M do for j:=1 to N do
begin
if i<>j then
begin
tmp := mas[i,j];
mas[i,j] := mas[j,i];
mas[j,i] := tmp;
end;
end;
tmp := M;
M := N;
N := tmp;
Если массив динамический, то сложнее, но разберетесь