Question

Задана квадратная матрица. Получить транспонированную матрицу, т.е. матрицу, где столбцы и строки меняются местами. Программа на Паскаль.

Answer 1

Напиши 2 цикла вложенных по i j от 1 до размерности

Внутри циклов

B(i,j) = A(j,i)

 

Надеюсь, циклы писать умеешь и массивы объявлять тоже.

Answer 2

Вот пример программы на языке Pascal, которая получает транспонированную матрицу для заданной квадратной матрицы:

pascalCopy code
program TransposeMatrix;

const
  N = 3; // Размерность квадратной матрицы

type
  Matrix = array[1..N, 1..N] of Integer;

procedure Transpose(var A: Matrix);
var
  i, j, temp: Integer;
begin
  for i := 1 to N do
  begin
    for j := i + 1 to N do
    begin
      // Меняем элементы на диагонали
      temp := A[i, j];
      A[i, j] := A[j, i];
      A[j, i] := temp;
    end;
  end;
end;

procedure PrintMatrix(A: Matrix);
var
  i, j: Integer;
begin
  for i := 1 to N do
  begin
    for j := 1 to N do
      Write(A[i, j]:4);
    Writeln;
  end;
end;

var
  A: Matrix;
  i, j: Integer;
begin
  // Заполняем матрицу случайными значениями
  for i := 1 to N do
    for j := 1 to N do
      A[i, j] := Random(10); // Здесь можно изменить границы случайных значений

  Writeln('Исходная матрица:');
  PrintMatrix(A);

  Transpose(A);

  Writeln('Транспонированная матрица:');
  PrintMatrix(A);
end.

Программа создает квадратную матрицу размером N x N, где N равно 3 (это значение можно изменить). Затем она заполняет матрицу случайными значениями от 0 до 9 и выводит исходную матрицу. Затем вызывается процедура Transpose, которая изменяет матрицу, меняя столбцы и строки местами. После этого программа выводит полученную транспонированную матрицу.