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

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

Решение:

program Matrix79;
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;

function GetValueMatrixColumnMax(var mat:matrix; X:Integer):integer;
var
 i,Max:integer;
begin
 Max:=1;
 if x>0 then
  begin
   for i:=1 to M do
    if mat[i,x]>mat[Max,x] then Max:=i;
   GetValueMatrixColumnMax:=mat[Max,x];
  end;
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 GetValueMatrixColumnMax(a,j2)>GetValueMatrixColumnMax(a,j2+1) then
       SwapMatrixColumn(a, j2, j2+1);
     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 Matrix79;

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;

function GetValueMatrixColumnMax(var mat:matrix; X:Integer):integer;

var

i,Max:integer;

begin

Max:=1;

if x>0 then

begin

for i:=1 to M do

if mat[i,x]>mat[Max,x] then Max:=i;

GetValueMatrixColumnMax:=mat[Max,x];

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 GetValueMatrixColumnMax(a,j2)>GetValueMatrixColumnMax(a,j2+1) then

SwapMatrixColumn(a, j2, j2+1);

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 Matrix79;//pabc.net

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

program Matrix79;//pabc.net

var m := 5;

var n := 6;

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

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

for var l := 0 to n - 2 do

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

if a.Col(j).Max > a.Col(j + 1).Max then

for var i := 0 to m - 1 do

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

Println;

a.Println

Ответить

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

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

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

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