Delphi Транспонирование Матрицы

Транспонирование матрицы – это операция, при которой строки и столбцы матрицы меняются местами. В Delphi для транспонирования матрицы можно создать функцию, которая будет принимать исходную матрицу и возвращать транспонированную матрицу.

function TransposeMatrix(const AMatrix: array of array of Integer): TArray>;

Приведем пример кода на Delphi:

function TransposeMatrix(const AMatrix: array of array of Integer): TArray>;
var
  i, j: Integer;
  TransposedMatrix: TArray>;
begin
  SetLength(TransposedMatrix, Length(AMatrix[0]), Length(AMatrix));
  for i := Low(AMatrix) to High(AMatrix) do
    for j := Low(AMatrix[i]) to High(AMatrix[i]) do
      TransposedMatrix[j][i] := AMatrix[i][j];
  Result := TransposedMatrix;
end;

Эта функция создает переменную TransposedMatrix, в которой будет храниться результирующая матрица. Затем она использует вложенный цикл for для перебора исходной матрицы. На каждой итерации цикла значения из исходной матрицы копируются в соответствующую позицию транспонированной матрицы. Результат функция возвращает в формате двумерного массива.