Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 03.09.2014
Сообщений: 51
1

Сортировка двухмерного массива по строкам. Расставить строки в порядке возрастания суммы их элементов

09.10.2014, 09:20. Просмотров 1625. Ответов 1
Метки нет (Все метки)

Паскаль. Нужно отсортировать двухмерный массив по строкам. Т.е строки выстроить в порядке возрастания. (Нужно посчитать сумму каждой строчки,и самая маленькая сумма(значит и строка) встанет на первое место.аналогично так и выстраивать в порядке возрастания.самая большая сумма(значит и строчка) будет стоять на последнем месте
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.10.2014, 09:20
Ответы с готовыми решениями:

Отсортировать строки массива в порядке возрастания суммы элементов строк
отсортировать строки массива в порядке возрастания суммы элементов строк Добавлено через 1...

Функция раcполагающая строки массива в порядке возрастания суммы их элементов
Нужно написать функцию которая раcполагает строки массива в порядке возрастания суммы их елементов...

Сортировка символьного массива по строкам в порядке возрастания слов
Добрый вечер! Задали написать программу, удовлетворяющую следующему условию: "Дан текст, по одному...

Расставить строки матрицы в порядке возрастания их первых элементов.
Помогите решить Дана матрица размером N*M.Расставить строки матрицы в порядке возрастания их...

1
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5652 / 3374 / 2422
Регистрация: 22.11.2013
Сообщений: 9,488
09.10.2014, 10:19 2
Лучший ответ Сообщение было отмечено Lizook как решение

Решение

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
const
  m=8; n=8; W=4;
var
  a: array [0..m,1..n] of Integer;
  s: array [0..m] of Integer;
  i, j: Integer;
  Done: Boolean;
begin
  Randomize;
  WriteLn('A=');
  for i:=1 to m do begin
    {s[i]:=0;}
    for j:=1 to n do begin
      a[i,j]:=Random(100);
      s[i]:=s[i]+a[i,j];
      Write(a[i,j]:W);
    end; WriteLn(' |',s[i]:W+1);
  end;
  repeat
    Done:=True;
    for i:=1 to m-1 do
      if s[i]>s[i+1] then begin
        s[0]:=s[i]; s[i]:=s[i+1]; s[i+1]:=s[0];
        a[0]:=a[i]; a[i]:=a[i+1]; a[i+1]:=a[0];
        Done:=False;
      end;
  until Done;
  WriteLn('A''=');
  for i:=1 to m do begin
    for j:=1 to n do Write(a[i,j]:W); WriteLn(' |',s[i]:W+1);
  end;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.10.2014, 10:19

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

Расставить строки матрицы в порядке возрастания их первых элементов
Дана матрица размером N*M.Расставить строки матрицы в порядке возрастания их первых элементов....

Расставить строки матрицы в порядке возрастания наибольших элементов в строках.
Расставить строки матрицы в порядке возрастания наибольших элементов в строках.

Расставить строки матрицы в порядке возрастания количества нулевых элементов
Имееется задача:Дана матрица A порядка n. Расставить строки матрицы в порядке возрастания...

Расставить строки матрицы в порядке возрастания элементов побочной диагонали
Расставить строки матрицы в порядке возрастания элементов побочной диагонали.


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

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

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