В каждой из матриц поменять местами две строки - Pascal ABC
Формулировка задачи:
В каждой из матриц A(4x3),B(5x4) поменять местами две строки: в А вторую и третью строки,в В-первую и третью .
Решение задачи: «В каждой из матриц поменять местами две строки»
textual
Листинг программы
type mtr=array[1..5,1..4] of integer; procedure vvod(var a:mtr;m,n:byte;c:char); var i,j:byte; begin writeln('Исходная матрица ',c); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=random(100); write(a[i,j]:3); end; writeln; end; end; procedure obmen(var a:mtr;m,n,s1,s2:byte); var i,j:byte; x:integer; begin for j:=1 to n do begin x:=a[s1,j]; a[s1,j]:=a[s2,j]; a[s2,j]:=x; end; writeln('Обмен строк ',s1,' и ',s2); for i:=1 to m do begin for j:=1 to n do write(a[i,j]:3); writeln; end; end; var a,b:mtr; begin vvod(a,4,3,'A'); obmen(a,4,3,2,3); vvod(b,5,4,'B'); obmen(b,5,4,1,3); end.
Объяснение кода листинга программы
Данный код написан на языке Pascal ABC и выполняет следующие действия:
- Создается тип данных
mtr
, который представляет собой матрицу размером 5х4, и в которой каждый элемент является целым числом. - Определяется процедура
vvod
, которая принимает на вход матрицуa
, ее размерностьm
и символc
. Внутри процедуры выводится исходная матрица, а затем для каждого элемента матрицы выполняется операция генерации случайного числа от 1 до 100 и вывод этого числа. - Определяется процедура
obmen
, которая принимает на вход матрицуa
, ее размерностьm
, индексы строкs1
иs2
. Внутри процедуры происходит обмен значениями между строкамиs1
иs2
, а затем выводится сообщение об обмене строк. После этого выполняется цикл по всем элементам матрицы и значения этих элементов выводятся на экран. - Создаются две переменные
a
иb
типаmtr
. - Выполняется вызов процедуры
vvod
для переменнойa
с параметрами4
,3
и символA
. - Выполняется вызов процедуры
obmen
для переменнойa
с параметрами4
,3
,2
и3
. - Выполняется вызов процедуры
vvod
для переменнойb
с параметрами5
,4
и символB
. - Выполняется вызов процедуры
obmen
для переменнойb
с параметрами5
,4
,1
и3
. - Код завершается.