Решаем задачи Абрамян на Паскале. Matrix77

Matrix77. Дана матрица размера $$M \times N$$. Упорядочить ее столбцы так, чтобы их последние элементы образовывали убывающую последовательность.

Решение:

program Matrix77;
type
  matrix = array [1..10,1..10] of integer;

var
  a:matrix;
  M, N, N2, i, j, j2:Integer;

procedure Swap(var X,Y:Integer);
begin
 if x<>y then
  begin
   X:=X+Y;
   Y:=X-Y;
   X:=X-Y;
  end;
end;

procedure SwapMatrixColumn(var mat:matrix; X,Y:Integer);
var
 i:integer;
begin
 if x<>y then
  for i:=1 to M do
   swap(mat[i,x], mat[i,y]);
end;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 N2:=N;
 for j:=1 to N-1 do
  begin
   j2:=1;
   N2:=N2-1;
   while (j2<=N2) do
    begin
     if a[M,j2]<a[M,j2+1] then
      begin
       SwapMatrixColumn(a, j2, j2+1);
      end;
     inc(j2);
    end;
   end;

 for  i:=1 to M do
  begin
   for j:=1 to N do
    begin
     Write(' : ',a[i,j]);
    end;
   writeln(' : ');
  end;
end.

program Matrix77;

type

matrix = array [1..10,1..10] of integer;

var

a:matrix;

M, N, N2, i, j, j2:Integer;

procedure Swap(var X,Y:Integer);

begin

if x<>y then

begin

X:=X+Y;

Y:=X-Y;

X:=X-Y;

end;

procedure SwapMatrixColumn(var mat:matrix; X,Y:Integer);

var

i:integer;

begin

if x<>y then

for i:=1 to M do

swap(mat[i,x], mat[i,y]);

end;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

N2:=N;

for j:=1 to N-1 do

begin

j2:=1;

N2:=N2-1;

while (j2<=N2) do

begin

if a[M,j2]<a[M,j2+1] then

begin

SwapMatrixColumn(a, j2, j2+1);

end;

inc(j2);

end;

for i:=1 to M do

begin

for j:=1 to N do

begin

Write(' : ',a[i,j]);

end;

writeln(' : ');

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Комментарии 1

program Matrix77;//pabc.net

begin
  var m := 5;
  var n := 6;
  
  var a := MatrRandom(m, n, 0, 99); a.Println;
  
  //сортировка пузырьком по элементам m-1-й строки матрицы
  for var l := 0 to n - 2 do
    for var j := 0 to n - 2 - l do//j-индекс столбца матрицы
      if a[m - 1, j] < a[m - 1, j + 1] then
        for var i := 0 to m - 1 do
          Swap(a[i, j], a[i, j + 1]);
  
  Println;
  a.Println
end.

program Matrix77;//pabc.net

var m := 5;

var n := 6;

var a := MatrRandom(m, n, 0, 99); a.Println;

//сортировка пузырьком по элементам m-1-й строки матрицы

for var l := 0 to n - 2 do

for var j := 0 to n - 2 - l do//j-индекс столбца матрицы

if a[m - 1, j] < a[m - 1, j + 1] then

for var i := 0 to m - 1 do

Swap(a[i, j], a[i, j + 1]);

Println;

a.Println

Ответить

Решаем задачи Абрамян на Паскале. Matrix77

Комментарии:

Комментарии 1

Добавить комментарий Отменить ответ