Написать процедуру транспонирования матрицы - Turbo Pascal

Формулировка задачи:

Описать процедуру Transp(A, M), выполняющую транспонирование (то есть зеркальное отражение относительно главной диагонали) квадратной вещественной матрицы A порядка M. Матрица A является входным и выходным параметром. Используя эту процедуру, транспонировать данную матрицу A порядка M.

Решение задачи: «Написать процедуру транспонирования матрицы»

Листинг программы

uses crt;
const nmax=10;
type mtr=array[1..nmax,1..nmax] of integer;
procedure trans(var a:mtr;m:integer);
var i,j,x:integer;
begin
for i:=2 to m do
for j:=1 to i-1 do
 begin
  x:=a[i,j];
  a[i,j]:=a[j,i];
  a[j,i]:=x;
 end;
end;
var a:mtr;
    n,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    write(a[i,j]:3);
   end;
  writeln;
 end;
trans(a,n);
writeln('Транспонированная матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая обеспечивает работу с консолью.
Затем определяется константа nmax, которая ограничивает размер матрицы до 10 строк и 10 столбцов.
Определяется тип данных mtr, который представляет собой массив целых чисел размером nmax x nmax.
Создается процедура trans, которая принимает матрицу a и ее размер m в качестве параметров.
Внутри процедуры trans используется два вложенных цикла for для транспонирования матрицы. Первый цикл идет от 2 до m, второй - от 1 до i-1.
Внутри циклов переменная x инициализируется значением a[i,j], а значения a[i,j] и a[j,i] меняются местами.
Затем определяется переменная a, которая представляет собой матрицу размером n x n.
В цикле чтения размеров матрицы с клавиатуры проверяется, что введенный размер находится в диапазоне от 2 до nmax.
После того, как размер матрицы определен, выводится исходная матрица с помощью цикла for, аналогичного тому, который использовался внутри процедуры trans.
Затем вызывается процедура trans, передавая ей матрицу a и ее размер m.
После того, как транспонированная матрица выведена на экран, читается введенное с клавиатуры значение.
Цикл чтения размеров матрицы повторяется до тех пор, пока введенный размер не будет находиться в диапазоне от 2 до nmax.
В конце программы выводится сообщение о том, что транспонированная матрица была успешно получена.