Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
This_is_SPARK
3 / 3 / 5
Регистрация: 06.11.2015
Сообщений: 33
1

Упорядочение строк матрицы

15.12.2015, 17:16. Просмотров 797. Ответов 1
Метки нет (Все метки)

Помогите с заданием

Упорядочить строки целочисленной прямоугольной матрицы по возрастанию количества одинаковых элементов в каждой строке, и все это в процедуре.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.12.2015, 17:16
Ответы с готовыми решениями:

Создать матрицы А[n,m] и B[n,m]. Определить суммы строк каждой матрицы.Переставить строки по возрастанию сумм строк в каждой матрице.
Создать матрицы А и B. Определить суммы строк каждой матрицы. Переставить строки по...

Для матрицы из 3 столбцов и 7 строк отпечатать номера тех строк, в которых третий элемент больше суммы двух
Для матрицы из 3 столбцов и 7 строк отпечатать номера тех строк, в которых третий элемент больше...

Поменять первые элементы столбцов матрицы с минимальными элементами строк матрицы
uses crt; const n = 4; m = 5; var matrix: array of integer; max, min, i, j, k:...

Найти седловой элемент матрицы и упорядочить элементы строк матрицы по возрастанию
Дана целочисленная матрица размера M x N. 1) Найти элемент, являющийся максимальным в свое строке...

Из матрицы получить массив, состоящий из средних арифметических строк матрицы
Добрый день! Помогите найти ошибку в коде. Задание: Из заданной пользователем матрицы получить...

1
Cyborg Drone
Модератор
5403 / 3213 / 2451
Регистрация: 17.08.2012
Сообщений: 10,289
17.12.2015, 19:53 2
Лучший ответ Сообщение было отмечено This_is_SPARK как решение

Решение

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
const mi = 10;
      mj = 19;
 
type matrix = array [1..mi, 1..mj] of integer;
 
procedure gen(var x: matrix);
var i, j: integer;
begin
  randomize;
  for i := 1 to mi do
    for j := 1 to mj do
      x[i, j] := random(10)
end;
 
procedure prn(s: string; x: matrix);
var i, j: integer;
begin
  writeln(s);
  for i := 1 to mi do
    begin
      for j := 1 to mj do write(x[i, j]:2);
      writeln
    end
end;
 
procedure cnt(var z: array of integer; var c: integer);
var i, j, n: integer;
begin
  c := 1;
  for i := low(z) to high(z) - 1 do
    begin
      n := 1;
      for j := i + 1 to high(z) do if z[j] = z[i] then inc(n);
      if c < n then c := n
    end
end;
 
procedure sort(var x: matrix);
var i, j, p, t: integer;
    k: array [1..mi] of integer;
begin
  writeln('Количество одинаковых элементов по строкам:');
  for i := 1 to mi do
    begin
      cnt(x[i], k[i]);
      write(k[i]:3)
    end;
  writeln;
  for i := 1 to mi - 1 do
    begin
      p := i;
      for j := i + 1 to mi do if k[p] > k[j] then p := j;
      if p <> i then for j := 1 to mj do
        begin
          t := x[p, j];
          x[p, j] := x[i, j];
          x[i, j] := t;
          t := k[p];
          k[p] := k[i];
          k[i] := t
        end
    end
end;
 
var a: matrix;
 
begin
  gen(a);
  prn('Исходная матрица:', a);
  sort(a);
  prn('Отсортированная матрица:', a);
  readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2015, 19:53

Найти сумму строк матрицы, среднее значение элементов матрицы и минимальный элемент
Сумма строк (сделать это все в Паскаль) Задана двумерная матрица размером 10х10 элементов,...

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

Через процедуру поменять первые элементы столбцов матрицы с минимальными элементами строк матрицы
var b:matrix; i, j, jmin: integer; k:char; Procedure App (var a:matrix); begin clrscr;...


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

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

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