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

Узнай цену своей работы

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

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

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

textual
Листинг программы
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.

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

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

Оцени полезность:

14   голосов , оценка 4.071 из 5
Похожие ответы