Отсортировать матрицы в порядке возрастания суммы их элементов

@~~hoch~~ · 18.09.2014, 14:18. **Показов** 824. **Ответов** 4

Author24 — интернет-сервис помощи студентам

Задан массив матриц. Требуется расположить их в порядке
возрастания суммы элементов каждой матрицы. Начальное и
конечное расположение матриц вывести на экран в два ряда.
В первом ряду матрицы заданные рандомно
Во втором ряду отсортированные матрицы.
Решение.
Я тут долго ломал голову над тем как решить эту задачу.
Можно например, не мудрствуя лукаво, задать все матрицы,
вычислить суммы элементов всех матриц и отсортировать
эти числа (их поместить в линейный массив), запомнив их
индексы. Но я пошёл по пути наибольшего сопротивления и
задал массив матриц, хотя изначально не знал как с ним
обращаться, но задачу решил. Вероятно программа выглядит
так себе. А есть ли иные решения этой задачи. Например,
я думал и о таком экзотической варианте, как соединить все
матрицы в одну (это годится конечно для распечатки матриц)
А что? Я считаю что это оригинально, хотя непрактично.

Pascal

uses Crt;
const
   n = 2;
   m = 5;
type
   matr = array[1..n, 1..n] of integer;
   mass = array[0..m] of matr;
var
   k: byte;
   a: mass;
 
procedure ini(var c:mass);
var i,j:integer;
begin
   for k:= 0 to m do
   for i:= 1 to n do
   for j:= 1 to n do
      c[k][i,j]:= Random(10);
end;
 
procedure print(c:mass;l:byte);
var i,j:integer;
begin
   for k:= 0 to m do
   for i:= 1 to n do
   for j:= 1 to n do begin
      gotoXY(2*j + 8*k, i+l);
      write(c[k][i,j])
   end
end;
 
function sum(c:mass; k:byte):integer;
var
   i,j,s: integer;
begin
   s:= 0;
   for i:= 1 to n do
   for j:= 1 to n do
      s:= s + c[k][i,j];
   sum:= s
end;
 
procedure zwo(var c:mass);
var
   i,j:integer;
   r:mass;
begin
   for i:= 0 to m-1 do
   for j:= i+1 to m do
      if sum(c,i) > sum(c,j)then
        begin
          r[i]:= c[i];
          c[i]:= c[j];
          c[j]:= r[i];
        end
end;
 
begin
   randomize;
   clrscr;
   ini(a);
   print(a,1);
   zwo(a);
   print(a,5);
end.

@Puporev · 18.09.2014, 14:33

Pascal

1	mass = array[0..m] of matr;

А зачем от 0? Замени везде по коду где циклы 0 на 1.
И это

Pascal

procedure zwo(var c:mass);
var
   i,j:integer;
   r:matr;
begin
   for i:= 1 to m-1 do
   for j:= i+1 to m do
      if sum(c,i) > sum(c,j)then
        begin
          r:= c[i];
          c[i]:= c[j];
          c[j]:= r;
        end
end;

@~~hoch~~ · 18.09.2014, 14:54 **[ТС]**

Спасибо!
С нулем я конечно перестарался.
А вот за подсказку в коде, где действительно
переставляются только матрицы, а я ввёл
нечто более сложное Вам большое спасибо!!
В другой раз буду писать аккуратней, хотя это
у меня первая программа подобного рода и
накладок было не избежать.
Ещё раз Спасибо!

@bormant · 18.09.2014, 23:44

hoch,
зачем пересчитывать сумму матриц каждый раз внутри цикла? Можно посчитать один раз, потом менять местами синхронно с матрицами:

Pascal

function sum(const c: matr): Integer;
var
   i, j, s: Integer;
begin
  s:=0;
  for i:=1 to n do for j:= 1 to n do
    s:=s+c[i,j];
  sum:=s;
end;
procedure zwo(var c: mass);
var
  i, j, t: Integer;
  r: matr;
  s: array [1..m] of Integer;
begin
  for i:=1 to m do s[i]:=sum(c[i]);
  for i:= 1 to m-1 do
    for j:= i+1 to m do
      if s[i]>s[j] then begin
        r:=c[i]; c[i]:=c[j]; c[j]:=r;
        t:=s[i]; s[i]:=s[j]; s[j]:=t;
      end;
end;

Добавлено через 4 минуты
Или без функции sum():

Pascal

procedure zwo(var c: mass);
var
  i, j, t: Integer;
  r: matr;
  s: array [1..m] of Integer;
begin
  FillChar(s,SizeOf(s),#0);
  for t:=1 to m do for i:=1 to n do for j:=1 to n do s[t]:=c[t,i,j];
  for i:=1 to m-1 do for j:=i+1 to m do
    if s[i]>s[j] then begin
      r:=c[i]; c[i]:=c[j]; c[j]:=r;
      t:=s[i]; s[i]:=s[j]; s[j]:=t;
    end;
end;

@~~hoch~~ · 19.09.2014, 07:59 **[ТС]**

Bormant
Спасибо! Я как то об этом не подумал.
У меня это первая программа подобного рода и я более
всего беспокоился, как бы где не ошибиться, то есть
уделял больше внимания синтаксическим конструкциям,
а не коду и об оптимизации думал в последнюю очередь.
Но все хорошо, что хорошо кончается.
Спасибо Вам ещё раз!

@~~hoch~~ Заблокирован
	18.09.2014, 14:54 [ТС]	3
	Спасибо! С нулем я конечно перестарался. А вот за подсказку в коде, где действительно переставляются только матрицы, а я ввёл нечто более сложное Вам большое спасибо!! В другой раз буду писать аккуратней, хотя это у меня первая программа подобного рода и накладок было не избежать. Ещё раз Спасибо! 0

@~~hoch~~ Заблокирован
	19.09.2014, 07:59 [ТС]	5
	Bormant Спасибо! Я как то об этом не подумал. У меня это первая программа подобного рода и я более всего беспокоился, как бы где не ошибиться, то есть уделял больше внимания синтаксическим конструкциям, а не коду и об оптимизации думал в последнюю очередь. Но все хорошо, что хорошо кончается. Спасибо Вам ещё раз! 0