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

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

Решение:

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

var
  a:matrix;
  M, M2, N, i, i2, j: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 SwapMatrixRow(var mat:matrix; X,Y:Integer);
var
 j:integer;
begin
 if x<>y then
  for j:=1 to N do
   swap(mat[x,j], mat[y,j]);
end;

function GetValueMatrixRowMin(var mat:matrix; X:Integer):integer;
var
 j,Min:integer;
begin
 Min:=1;
 if x>0 then
  begin
   for j:=1 to N do
    if mat[x,j]>mat[x,Min] then Min:=j;
   GetValueMatrixRowMin:=mat[x,Min];
  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;

M2:=M;
 for i:=1 to M-1 do
  begin
   i2:=1;
   M2:=M2-1;
   while (i2<=M2) do
    begin

if GetValueMatrixRowMin(a,i2)<GetValueMatrixRowMin(a,i2+1) then
       SwapMatrixRow(a, i2, i2+1);

inc(i2);
    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 Matrix78;

type

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

var

a:matrix;

M, M2, N, i, i2, j:Integer;

procedure Swap(var X,Y:Integer);

begin

if x<>y then

begin

X:=X+Y;

Y:=X-Y;

X:=X-Y;

end;

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

var

j:integer;

begin

if x<>y then

for j:=1 to N do

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

end;

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

var

j,Min:integer;

begin

Min:=1;

if x>0 then

begin

for j:=1 to N do

if mat[x,j]>mat[x,Min] then Min:=j;

GetValueMatrixRowMin:=mat[x,Min];

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;

M2:=M;

for i:=1 to M-1 do

begin

i2:=1;

M2:=M2-1;

while (i2<=M2) do

begin

if GetValueMatrixRowMin(a,i2)<GetValueMatrixRowMin(a,i2+1) then

SwapMatrixRow(a, i2, i2+1);

inc(i2);

end;

for i:=1 to M do

begin

for j:=1 to N do

begin

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

end;

writeln(' : ');

end;

end.

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

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

program Matrix78;//pabc.net

begin

var m := 5;

var n := 6;

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

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

for var k := 0 to m - 2 do

for var i := 0 to m - 2 - k do

if a.Row(i).Min < a.Row(i + 1).Min then

for var j := 0 to n - 1 do

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

Println;

a.Println

end.

Ответить

одной сортировкой :

var
  m, n, i, j, q: integer;
  a: array [1..10, 1..10] of real;
  a1: array [1..10] of real;
  x, x1, min: real;

begin
  readln(m, n);// ввод размеров матрицы
  for i := 1 to m do
    for j := 1 to n do read(a[i, j]);// цикл ввода исходной матрицы
  
  for i := 1 to m do // цикл поиска минимумов матрицы
  begin
    min := a[i, j];
    for j := 1 to n do if a[i, j] < min then min := a[i, j];
    a1[i] := min//с записью в отдельный массив
  end;
  
  for q := 1 to m - 1 do 
    for i := q + 1 to m do // стандартная сортировка пузырьком
      
      if a1[q] < a1[i] then // одномерного массива с записанными туда минимумами матрицы
      begin
        x := a1[q]; 
        a1[q] := a1[i];
        a1[i] := x;
        for j := 1 to n do // к которому привязан цикл перестановки элементов двухмерного массива
        begin
          x := a[q, j];
          a[q, j] := a[i, j];
          a[i, j] := x;
        end;
      end;
  for i := 1 to m do 
  begin
    writeln;
    for j := 1 to n do print(a[i, j]);// цикл вывода матрицы в результате 
  end;
  
end.

var

m, n, i, j, q: integer;

a: array [1..10, 1..10] of real;

a1: array [1..10] of real;

x, x1, min: real;

begin

readln(m, n);// ввод размеров матрицы

for i := 1 to m do

for j := 1 to n do read(a[i, j]);// цикл ввода исходной матрицы

for i := 1 to m do // цикл поиска минимумов матрицы

begin

min := a[i, j];

for j := 1 to n do if a[i, j] < min then min := a[i, j];

a1[i] := min//с записью в отдельный массив

end;

for q := 1 to m - 1 do

for i := q + 1 to m do // стандартная сортировка пузырьком

if a1[q] < a1[i] then // одномерного массива с записанными туда минимумами матрицы

begin

x := a1[q];

a1[q] := a1[i];

a1[i] := x;

for j := 1 to n do // к которому привязан цикл перестановки элементов двухмерного массива

begin

x := a[q, j];

a[q, j] := a[i, j];

a[i, j] := x;

end;

for i := 1 to m do

begin

writeln;

for j := 1 to n do print(a[i, j]);// цикл вывода матрицы в результате

end;

end.

Ответить

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

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

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

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