Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 1
Регистрация: 20.11.2012
Сообщений: 58
1

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

24.11.2012, 12:32. Просмотров 323. Ответов 2
Метки нет (Все метки)

как эффективно отсортировать матрицу по убыванию первых элементов строк, если описывается она так

Pascal
1
2
3
type
  t_row = array [1..n] of integer;
  t_matr = array [1..m] of t_row;
вот код который написал я, но мне сказали что можно отсортировать проще

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure sort_matr(var a: t_matr);
var
  i, j, k, l: integer;
begin
  repeat
    l := 0;
    for i := 1 to n - 1 do
      if a[i, 1] < a[i + 1, 1] then
        for j := 1 to m do
        begin
          k := a[i, j];
          a[i, j] := a[i + 1, j];
          a[i + 1, j] := k;
          l := 1;
        end;
  until l = 0;
end;
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.11.2012, 12:32
Ответы с готовыми решениями:

Отсортировать строки матрицы по убыванию максимальных элементов строк
Помогите пожалуйста решить задание. Написать программу, которая создаёт динамический массив...

Отсортировать строки матрицы по убыванию сумм элементов каждой строк
Помогите решить задачу. Заданная статическая матрица B(N,N). Отсортировать ее строки по убыванию...

Упорядочить строки матрицы по убыванию первых элементов строк, если это возможно
помогите... Дана матрица. Упорядочить ее строки по убыванию первых элементов строк, если это...

Упорядочить матрицу по не убыванию суммы элементов строк
упорядочить матрицу по не убыванию суммы элементов строк.

2
2 / 2 / 1
Регистрация: 02.10.2012
Сообщений: 10
24.11.2012, 13:19 2
гугл тебе в помощь. либо поищи на форуме по любому есть темы сортировки массивов.
0
Модератор
62500 / 46689 / 32181
Регистрация: 18.05.2008
Сообщений: 112,956
24.11.2012, 13:28 3
Можно так.
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
uses crt;
const nmax=15;
type row=array[1..nmax] of integer;
     mtr=array[1..nmax] of row;
procedure Sort(var a:mtr;m:byte);
var i,j:byte;
    x:row;
begin
for i:=1 to m-1 do
for j:=i+1 to m do
if a[i,1]<a[j,1] then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
end;
var a:mtr;
    m,n,i,j:byte;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
Sort(a,m);
writeln('Строки отсортированы по убыванию первых элементов:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.11.2012, 13:28

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дана матрица. Упорядочить ее строки по убыванию первых элементов строк, если это возможно.
помогите плиз..... Дана матрица. Упорядочить ее строки по убыванию первых элементов строк, если...

Дана матрица. Упорядочить ее строки по убыванию первых элементов строк, если это возможно
Доброго времени суток. Помогите написать следующее: &quot;Дана матрица. Упорядочить ее строки по...

Отсортировать матрицу по увеличению суммы элементов её строк
В общем это ужас.... Я уже три дня не могу найти эту ошибку и так и сяк... ну никак оно не...

Дана матрица. Написать программу, которая упорядочивает строки этой матрицы по убыванию первых элементов строк
Дана матрица А(nxn). Написать программу, которая упорядочивает строки этой матрицы по убыванию...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.