В каждой из матриц поменять местами две строки - 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 и выполняет следующие действия:

  1. Создается тип данных mtr, который представляет собой матрицу размером 5х4, и в которой каждый элемент является целым числом.
  2. Определяется процедура vvod, которая принимает на вход матрицу a, ее размерность m и символ c. Внутри процедуры выводится исходная матрица, а затем для каждого элемента матрицы выполняется операция генерации случайного числа от 1 до 100 и вывод этого числа.
  3. Определяется процедура obmen, которая принимает на вход матрицу a, ее размерность m, индексы строк s1 и s2. Внутри процедуры происходит обмен значениями между строками s1 и s2, а затем выводится сообщение об обмене строк. После этого выполняется цикл по всем элементам матрицы и значения этих элементов выводятся на экран.
  4. Создаются две переменные a и b типа mtr.
  5. Выполняется вызов процедуры vvod для переменной a с параметрами 4, 3 и символ A.
  6. Выполняется вызов процедуры obmen для переменной a с параметрами 4, 3, 2 и 3.
  7. Выполняется вызов процедуры vvod для переменной b с параметрами 5, 4 и символ B.
  8. Выполняется вызов процедуры obmen для переменной b с параметрами 5, 4, 1 и 3.
  9. Код завершается.

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

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