Поменять элементы матрицы, лежащие выше и ниже главной диагонали - Turbo Pascal
Формулировка задачи:
Дана матрица чисел mxm. Составить программу меняющая местами элементы
лежащие выше главной диагонали с элементами лежащие ниже главной диагонали.
Решение задачи: «Поменять элементы матрицы, лежащие выше и ниже главной диагонали»
textual
Листинг программы
- uses crt;
- const nmax=10;
- var a:array[1..nmax,1..nmax] of integer;
- n,i,j,x: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;
- for i:=2 to n do
- for j:=1 to i-1 do
- begin
- x:=a[i,j];
- a[i,j]:=a[j,i];
- a[j,i]:=x;
- end;
- writeln('Обмен элементов выше главной диагонали и ниже главной диагонали');
- for i:=1 to n do
- begin
- for j:=1 to n do
- write(a[i,j]:3);
- writeln;
- end;
- readln
- end.
Объяснение кода листинга программы
- Создаётся переменная
nmax
со значением 10. - Создаётся переменная
a
типаarray[1..nmax,1..nmax] of integer;
. - Создаются переменные
n
,i
,j
,x
типаinteger;
. - Выполняется цикл
repeat
, который запрашивает у пользователя размер матрицы от 2 до 10. - В цикле
repeat
выводится сообщениеРазмер матрицы от 2 до 10 n=
. - Пользователю предлагается ввести размер матрицы от 2 до 10.
- Полученный размер сохраняется в переменной
n
. - Выводится сообщение
Исходная матрица:
для каждого размера матрицы от 2 до 10. - Для каждого размера матрицы от 2 до 10 выполняется цикл
for i:=1 to n do
, внутри которого:- Выполняется цикл
for j:=1 to n do
, внутри которого:- Генерируется случайное число от 0 до 50 и присваивается переменной
x
. - Присваивается переменной
a[i,j]
значениеx
. - Выводится значение
x
(случайное число от 0 до 50). - Выводится символ новой строки (
\n
). - Выполняется операция обмена элементов
a[i,j]
иa[j,i]
(присваивается значениеa[j,i]
значениеa[i,j]
и наоборот). - Выводится значение
a[i,j]
(значение элемента, который был обменен). - Выводится символ новой строки (
\n
). - Выполняется операция обмена элементов
a[i,j]
иa[j,i]
(присваивается значениеa[j,i]
значениеa[i,j]
и наоборот). - Выводится значение
a[i,j]
(значение элемента, который был обменен). - Выводится символ новой строки (
\n
).
- Генерируется случайное число от 0 до 50 и присваивается переменной
- Выполняется цикл
- Выводится сообщение
Обмен элементов выше главной диагонали и ниже главной диагонали
. - Для каждого размера матрицы от 2 до 10 выполняется цикл
for i:=1 to n do
, внутри которого:- Выполняется цикл
for j:=1 to n do
, внутри которого:- Выводится значение
a[i,j]
(значение элемента, который был обменен). - Выводится символ новой строки (
\n
).
- Выводится значение
- Выполняется цикл
- Выводится сообщение
Readln
.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д