Отсортировать массив матриц по возрастанию значений сумм элементов этих матриц

@Ирина_2 · Регистрация: 20.10.2019

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

вот по этому примеру
(здесь условие:дан массив квадратных целочисленных матриц. Отсортировать его по возрастанию значений произведений минимального и максимального элементов этих матриц.)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
uses matrix;
var o1,o2,o3:integer; n:byte; a,b,c:mas_2;
begin;
writeln('Матрица А: ');
  inp2(n, a); 
  outp2(n,a);
  writeln('Матрица В: ');
  inp2(n, b); 
  outp2(n,b);
  writeln('Матрица С: ');
  inp2(n, c); 
  outp2(n,c);
  o1:=pr_min_max(n,a);
  writeln('Произведение минимального и максимального элементов матрицы А: ',o1);
   o2:=pr_min_max(n,b);
   writeln('Произведение минимального и максимального элементов матрицы В: ',o2);
    o3:=pr_min_max(n,c);
    writeln('Произведение минимального и максимального элементов матрицы С: ',o3);
    if ((o1<o2)and(o1<o3))then
    begin
    if (o2<o3) then begin
    outp2(n,a);outp2(n,b);outp2(n,c);
    end
    else begin outp2(n,a);outp2(n,c);outp2(n,b); end;
    end;
    
    if ((o2<o1)and(o2<o3))then
    begin
    if (o1<o3) then begin
    outp2(n,b);outp2(n,a);outp2(n,c);
    end
    else begin outp2(n,b);outp2(n,c);outp2(n,a); end;
    end;
    
    if ((o3<o1)and(o3<o2))then
    begin
    if (o1<o2) then begin
    outp2(n,c);outp2(n,a);outp2(n,b);
    end
    else begin outp2(n,c);outp2(n,b);outp2(n,a); end;
    end;
end.

@ZX Spectrum-128 · 07.01.2020, 12:38

Взято отсюда: Отсортировать массив в порядке возрастания значений определителей матриц

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
uses crt;
 
const
  mmax = 20;
  nmax = 10;
 
type
  matrica = array[1..nmax, 1..nmax]of real;
 
var
  a, a1: array[1..mmax] of matrica;{2 матрицы, т.к. первая при вычислении
                                      определителя преобразуется}
  d: array[1..mmax] of real;{массив определителей}
  m, n, i, j, k: byte;{размеры, счетчики}
  x: matrica;{буфер для обмена матриц}
  y: real;{буфер для обмена определелителей}
 
function sum_matr(q: matrica; n: byte): real;
var
  summa: real;
  i, j: integer;
begin
  summa := 0;
  for i := 1 to n do
    for j := 1 to n do
      summa := summa + q[i, j];
  sum_matr := summa;
end;
 
begin
  textbackground(0);
  textcolor(15);
  clrscr;
  randomize;
  repeat
    write('Введите количество матриц до ', mmax, ' m=');
    readln(m);
  until m in [1..mmax];
  repeat
    write('Введите размер матриц до ', nmax, ' n=');
    readln(n);
  until n in [1..nmax];
  clrscr;
  writeln('Исходный массив:');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      gotoXY((n * 5) * (i - 1) + 1, j + 1);{выведем матрицы в ряд, входит на экран
                              примерно 5х3 или 4х4}
      for k := 1 to n do
      begin
        a[i][j, k] := 9 * random;
        write(a[i][j, k]:4:1);
        a1[i][j, k] := a[i][j, k];{запомним все матрицы до изменения}
      end;
    end;
    gotoXY((n * 5) * (i - 1) + 1, n + 2);
    d[i] := sum_matr(a[i], n);
    write('Sum=', d[i]:0:0)
  end;
  for i := 1 to m - 1 do{отсортируем матрицы по возрастанию }
    for j := i + 1 to m do
      if d[i] > d[j] then
      begin
        y := d[i];
        d[i] := d[j];
        d[j] := y;
        x := a1[i];
        a1[i] := a1[j];
        a1[j] := x;
      end;
  gotoXY(1, n + 4);
  writeln('Массив, отсортированый по возрастанию сумм элементов этих матриц :');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      gotoXY((n * 5) * (i - 1) + 1, n + 5 + j);
      for k := 1 to n do
        write(a1[i][j, k]:4:1);{выведем запомненные, не преобразованные матрицы}
    end;
    gotoXY((n * 5) * (i - 1) + 1, 2 * n + 7);
    write('Sum=', d[i]:0:0);{выведем определители запомненных матриц}
  end;
  readln
end.

@Ирина_2 · 07.01.2020, 12:48 **[ТС]**

а как переделать, чтобы были целые числа?

@ZX Spectrum-128 · 07.01.2020, 17:11

Замените

Pascal
1
2
type
  matrica = array[1..nmax, 1..nmax]of real;

на

Pascal
1
2
type
  matrica = array[1..nmax, 1..nmax]of integer;

Добавлено через 2 минуты

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
uses crt;
 
const
  mmax = 20;
  nmax = 10;
 
type
  matrica = array[1..nmax, 1..nmax]of integer;
 
var
  a, a1: array[1..mmax] of matrica;{2 матрицы, т.к. первая при вычислении
                                      определителя преобразуется}
  d: array[1..mmax] of integer;{массив определителей}
  m, n, i, j, k: byte;{размеры, счетчики}
  x: matrica;{буфер для обмена матриц}
  y: integer;
 
function sum_matr(q: matrica; n: byte): integer;
var
  summa: integer;
  i, j: integer;
begin
  summa := 0;
  for i := 1 to n do
    for j := 1 to n do
      summa := summa + q[i, j];
  sum_matr := summa;
end;
 
begin
  textbackground(0);
  textcolor(15);
  clrscr;
  randomize;
  repeat
    write('Введите количество матриц до ', mmax, ' m=');
    readln(m);
  until m in [1..mmax];
  repeat
    write('Введите размер матриц до ', nmax, ' n=');
    readln(n);
  until n in [1..nmax];
  clrscr;
  writeln('Исходный массив:');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      gotoXY((n * 5) * (i - 1) + 1, j + 1);{выведем матрицы в ряд, входит на экран
                              примерно 5х3 или 4х4}
      for k := 1 to n do
      begin
        a[i][j, k] := random(9);
        write(a[i][j, k]:4);
        a1[i][j, k] := a[i][j, k];{запомним все матрицы до изменения}
      end;
    end;
    gotoXY((n * 5) * (i - 1) + 1, n + 2);
    d[i] := sum_matr(a[i], n);
    write('Sum=', d[i]:0)
  end;
  for i := 1 to m - 1 do{отсортируем матрицы по возрастанию }
    for j := i + 1 to m do
      if d[i] > d[j] then
      begin
        y := d[i];
        d[i] := d[j];
        d[j] := y;
        x := a1[i];
        a1[i] := a1[j];
        a1[j] := x;
      end;
  gotoXY(1, n + 4);
  writeln('Массив, отсортированый по возрастанию сумм элементов этих матриц :');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      gotoXY((n * 5) * (i - 1) + 1, n + 5 + j);
      for k := 1 to n do
        write(a1[i][j, k]:4);{выведем запомненные, не преобразованные матрицы}
    end;
    gotoXY((n * 5) * (i - 1) + 1, 2 * n + 7);
    write('Sum=', d[i]:0);{выведем определители запомненных матриц}
  end;
  readln
end.

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Киев стоит - украинская песня zorxor 28.01.2026 wfWdiRqdTxc О Господи, Вечный, Ты . . . Я помоги, Бесконечный. . . Я прошу Ты. . . Я погибаю, спаси. . . Я прошу Тебя Вечный. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@Ирина_2 0 / 0 / 0 Регистрация: 20.10.2019 Сообщений: 23
	07.01.2020, 12:48 [ТС]
	а как переделать, чтобы были целые числа? 0

Отсортировать массив матриц по возрастанию значений сумм элементов этих матриц

Решение