Нумерация порядковых номеров

@Rockman · Регистрация: 16.09.2010

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

Здравствуйте, у меня такой вопрос.
Вот у меня есть два массива m1 и m2
В m1 содержаться различные числа
В m2 порядковые номера.
То есть создается первый массив и заполняется числами, и тут же создается второй с порядковыми номера.

Вот так примерно выглядет

6(1) 4(2) 7(3) 2(4) 1(5)

в скобках это второй массив, содержащий порядковые номера, а без скобок это первый.

Далее идет сортировка слиянием ( вот по этому примеру https://www.cyberforum.ru/post378252.html )

И вот мне нужно что бы после сортировки, во втором массиве элементы расположились соотвественно своим элементам первого массива.

Должно получиться вот так

1(5) 2(4) 4(2) 6(1) 7(3)

то есть числа упорядочились а порядковые номера остались при своих числах, вот подскажите как это сделать в данной сортировке

@Puporev · 24.10.2010, 16:32

Просто параллельно с перестановками в массиве значений делаются перестановки в массиве номеров.

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
program SortSlian;
uses crt;
type mas=array[1..1000] of integer;
procedure Sliv(var a,n:mas;p,q : integer);
{процедура сливающая массивы, p-начало, q-конец}
var r,i,j,k : integer;
    b,c:mas;
begin
 r:=(p+q) div 2;{делим массив}
 i:=p;{начало левой половины}
 j:=r+1;{начало правой половины}
 for k:=p to q do{смотрим от начала до конца}
 if (i<=r) and ((j>q) or (a[i]<a[j])) then
 {переставляем элементы из половин в новый массив, упорядочивая пары}
  begin
   b[k]:=a[i];
   c[k]:=n[i]; {параллельно переставляем массив номеров}
   i:=i+1;
  end
 else
  begin
   b[k]:=a[j];
   c[k]:=n[j];
   j:=j+1;
  end ;
 for k:=p to q do
  begin
   a[k]:=b[k];
   n[k]:=c[k];
  end;
end;
{рекурсивная процедура сортировки, проверяет если осталось
больше одного элемента, повторяет слияние в левой или правой частях массива}
procedure Sort(var a,n:mas;p,q : integer); {p,q - индексы начала и конца сортируемой части массива}
begin
 if p<q then {массив из одного элемента тривиально упорядочен}
 begin
  Sort(a,n,p,(p+q) div 2);{сортируем левую половину}
  Sort(a,n,(p+q) div 2 + 1,q);{правую половину}
  Sliv(a,n,p,q);{сливаем две половины}
 end;
end;
var mznach,mnom:mas;
    n,i:integer;
begin
 clrscr;
 randomize;
 write('Размер массива n=');
 readln(n); {Определение размера массива A - N) и его заполнение}
 writeln('Исходный массив значений:');
 for i:=1 to n do
  begin
   mznach[i]:=random(50);
   mnom[i]:=i;
   write(mznach[i]:4);
  end;
 writeln;
 writeln('Массив номеров:');
 for i:=1 to n do
 write(mnom[i]:4);
 writeln;
 {запуск сортирующей процедуры, сортируем от первого до последнего элемента}
 Sort(mznach,mnom,1,N);
 {Вывод отсортированного массива A}
 writeln('Результат сортировки:');
 writeln('Массив значений:');
 for i:=1 to n do
 write(mznach[i]:4);
 writeln;
 writeln('Массив номеров:');
 for i:=1 to n do
 write(mnom[i]:4);
 readln
end.

@Rockman · 24.10.2010, 16:46 **[ТС]**

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

@Puporev · 24.10.2010, 16:59

Сообщение от Rockman

некорректно работает, не то совсем получается

У меня все корректно, проверял.

@Puporev · 24.10.2010, 17:01

Вот результат.

@Rockman · 24.10.2010, 17:10 **[ТС]**

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
procedure sliv(var a,a2:mas; p,q:integer);
var r,i,j,k: integer;
b,b2:mas;
begin
r:=(p+q) div 2;
i:=p;
j:=r+1;
for k:=p to q do
if (i<=r) and ((j>q) or (m1[i]<m1[j])) then
begin
b[k]:=a[i];
b2[k]:=a2[i];
i:=i+1;
end
else
begin
b[k]:=a[j];
b2[k]:=a2[j];
j:=j+1;
end;
for k:=p to q do
a[k]:=b[k];
a2[k]:=b2[k];
end;
 
procedure ssort(var a,a2:mas;p,q:integer);
begin
if p<q then
begin
ssort(a,a2,p,(p+q) div 2);
ssort(a,a2,(p+q) div 2 + 1,q);
sliv(a,a2,p,q);
end;

вот так делаю. вообще бред получается с номерами. Но сортирует правильно

@Puporev · 24.10.2010, 18:12

Сообщение от Rockman

вот так делаю. вообще бред получается с номерами. Но сортирует правильно

Так посмотри как у меня написано, что тебе еще-то нужно? У меня же нормально все сортирует...

@Rockman · 24.10.2010, 21:58 **[ТС]**

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

@Puporev · 24.10.2010, 22:46

Значит неверно вызываешь в программе. Чего же код программы не показал?

@Rockman · 25.10.2010, 10:34 **[ТС]**

Просто там все очень запутанно, ну разобрался и ладно. еще раз спасибо

Добавлено через 10 часов 54 минуты
Еще один вопросик возник. Как сосчитать кол-во операций сравнения в данной сортировке ?
По идее это будет число равное кол-ву итераций цикла ?
Пробовал прибавлять 1 к переменной перед каждым сравнением,но сортировка переставала работать.

@WatsOne · 25.10.2010, 10:41

ну по идее считать надо только когда сравниваются элементы цикла. я увидел это только в одном месте (могу ошибаться), в 13 строке, однако чтобы добавить туда наращивание счётчика - придётся тело цикла взять в операторные скобки (begin - end)... что типо того:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
for k:=p to q do begin{смотрим от начала до конца}
 //вот тут наращивай счётчик сравнений
 if (i<=r) and ((j>q) or (a[i]<a[j])) then
 {переставляем элементы из половин в новый массив, упорядочивая пары}
  begin
   b[k]:=a[i];
   c[k]:=n[i]; {параллельно переставляем массив номеров}
   i:=i+1;
  end
 else
  begin
   b[k]:=a[j];
   c[k]:=n[j];
   j:=j+1;
  end;
end;

@Puporev · 25.10.2010, 10:56

Я вот так написал, всегда выдает количество сравнений на 1 больше размера массива, надо теорию почитать, правильно это или нет.

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
program SortSlian;
uses crt;
type mas=array[1..1000] of integer;
procedure Sliv(var a,n:mas;p,q : integer; var ksr:integer);
{процедура сливающая массивы, p-начало, q-конец}
var r,i,j,k : integer;
    b,c:mas;
begin
 r:=(p+q) div 2;{делим массив}
 i:=p;{начало левой половины}
 j:=r+1;{начало правой половины}
 ksr:=0;
 for k:=p to q do{смотрим от начала до конца}
  begin
   ksr:=ksr+1;
   if (i<=r) and ((j>q) or (a[i]<a[j])) then
  {переставляем элементы из половин в новый массив, упорядочивая пары}
   begin
    b[k]:=a[i];
    c[k]:=n[i]; {параллельно переставляем массив номеров}
    i:=i+1;
   end
  else
   begin
    b[k]:=a[j];
    c[k]:=n[j];
    j:=j+1;
   end ;
  end;
 for k:=p to q do
  begin
   a[k]:=b[k];
   n[k]:=c[k];
  end;
end;
{рекурсивная процедура сортировки, проверяет если осталось
больше одного элемента, повторяет слияние в левой или правой частях массива}
procedure Sort(var a,n:mas;p,q : integer;var s:integer); {p,q - индексы начала и конца сортируемой части массива}
begin
 s:=0;
 if p<q then {массив из одного элемента тривиально упорядочен}
 begin
  Sort(a,n,p,(p+q) div 2,s);{сортируем левую половину}
  Sort(a,n,(p+q) div 2 + 1,q,s);{правую половину}
  Sliv(a,n,p,q,s);{сливаем две половины}
  s:=s+1;
 end;
end;
var mznach,mnom:mas;
    n,i,k,srav:integer;
begin
 clrscr;
 randomize;
 write('Размер массива n=');
 readln(n); {Определение размера массива A - N) и его заполнение}
 writeln('Исходный массив значений:');
 for i:=1 to n do
  begin
   mznach[i]:=random(50);
   mnom[i]:=i;
   write(mznach[i]:4);
  end;
 writeln;
 writeln('Массив номеров:');
 for i:=1 to n do
 write(mnom[i]:4);
 writeln;
 {запуск сортирующей процедуры, сортируем от первого до последнего элемента}
 Sort(mznach,mnom,1,N,srav);
 {Вывод отсортированного массива A}
 writeln('Результат сортировки:');
 writeln('Массив значений:');
 for i:=1 to n do
 write(mznach[i]:4);
 writeln;
 writeln('Массив номеров:');
 for i:=1 to n do
 write(mnom[i]:4);
 writeln;
 write('Количество сравнений=',srav);
 readln
end.

@WatsOne · 25.10.2010, 11:10

имхо, но можно было со счётчиком работать, как с глобальной переменной, чем нагружать процедуру лишним параметром

Добавлено через 10 минут
Puporev, формула для количества сравнений для массива заполненного рандом: 2*N*(Ln(N)/Ln(2)+1)
могу ошибаться

@Puporev · 25.10.2010, 11:17

WatsOne, Да, конечно, просто пытался с параметрами разобраться...

Добавлено через 7 минут
Во, так-то лучше, и количество сравнений реальнее стало...

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
program SortSlian;
uses crt;
var srav:integer;
type mas=array[1..1000] of integer;
procedure Sliv(var a,n:mas;p,q : integer);
{процедура сливающая массивы, p-начало, q-конец}
var r,i,j,k : integer;
    b,c:mas;
begin
 r:=(p+q) div 2;{делим массив}
 i:=p;{начало левой половины}
 j:=r+1;{начало правой половины}
 for k:=p to q do{смотрим от начала до конца}
  begin
   inc(srav);
   if (i<=r) and ((j>q) or (a[i]<a[j])) then
  {переставляем элементы из половин в новый массив, упорядочивая пары}
   begin
    b[k]:=a[i];
    c[k]:=n[i]; {параллельно переставляем массив номеров}
    i:=i+1;
   end
  else
   begin
    b[k]:=a[j];
    c[k]:=n[j];
    j:=j+1;
   end ;
  end;
 for k:=p to q do
  begin
   a[k]:=b[k];
   n[k]:=c[k];
  end;
end;
{рекурсивная процедура сортировки, проверяет если осталось
больше одного элемента, повторяет слияние в левой или правой частях массива}
procedure Sort(var a,n:mas;p,q : integer); {p,q - индексы начала и конца сортируемой части массива}
begin
 if p<q then {массив из одного элемента тривиально упорядочен}
 begin
  Sort(a,n,p,(p+q) div 2);{сортируем левую половину}
  Sort(a,n,(p+q) div 2 + 1,q);{правую половину}
  Sliv(a,n,p,q);{сливаем две половины}
 end;
end;
var mznach,mnom:mas;
    n,i:integer;
begin
 clrscr;
 randomize;
 write('Размер массива n=');
 readln(n); {Определение размера массива A - N) и его заполнение}
 writeln('Исходный массив значений:');
 for i:=1 to n do
  begin
   mznach[i]:=random(50);
   mnom[i]:=i;
   write(mznach[i]:4);
  end;
 writeln;
 writeln('Массив номеров:');
 for i:=1 to n do
 write(mnom[i]:4);
 writeln;
 {запуск сортирующей процедуры, сортируем от первого до последнего элемента}
 Sort(mznach,mnom,1,N);
 {Вывод отсортированного массива A}
 writeln('Результат сортировки:');
 writeln('Массив значений:');
 for i:=1 to n do
 write(mznach[i]:4);
 writeln;
 writeln('Массив номеров:');
 for i:=1 to n do
 write(mnom[i]:4);
 writeln;
 write('Количество сравнений=',srav);
 readln
end.

Новые блоги и статьи Все статьи Все блоги /
Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.

Нумерация порядковых номеров

Решение

Решение

@Rockman 17 / 17 / 4 Регистрация: 16.09.2010 Сообщений: 128

	Нумерация порядковых номеров 24.10.2010, 16:13. Показов 3568. Ответов 13 Метки нет (Все метки) Здравствуйте, у меня такой вопрос. Вот у меня есть два массива m1 и m2 В m1 содержаться различные числа В m2 порядковые номера. То есть создается первый массив и заполняется числами, и тут же создается второй с порядковыми номера. Вот так примерно выглядет 6(1) 4(2) 7(3) 2(4) 1(5) в скобках это второй массив, содержащий порядковые номера, а без скобок это первый. Далее идет сортировка слиянием ( вот по этому примеру https://www.cyberforum.ru/post378252.html ) И вот мне нужно что бы после сортировки, во втором массиве элементы расположились соотвественно своим элементам первого массива. Должно получиться вот так 1(5) 2(4) 4(2) 6(1) 7(3) то есть числа упорядочились а порядковые номера остались при своих числах, вот подскажите как это сделать в данной сортировке 0

@Rockman 17 / 17 / 4 Регистрация: 16.09.2010 Сообщений: 128
	24.10.2010, 16:46 [ТС]
	первым делом так и попробовал сделать. некорректно работает, не то совсем получается 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.10.2010, 17:01
	Вот результат. Миниатюры 0

@Rockman 17 / 17 / 4 Регистрация: 16.09.2010 Сообщений: 128
	24.10.2010, 21:58 [ТС]
	да все получилось, спасибо за помощь. Пытаюсь сравнить мой код и ваш и в упор не вижу разницы, разве что в названиях переменных ... 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	24.10.2010, 22:46
	Значит неверно вызываешь в программе. Чего же код программы не показал? 0

@Rockman 17 / 17 / 4 Регистрация: 16.09.2010 Сообщений: 128
	25.10.2010, 10:34 [ТС]
	Просто там все очень запутанно, ну разобрался и ладно. еще раз спасибо Добавлено через 10 часов 54 минуты Еще один вопросик возник. Как сосчитать кол-во операций сравнения в данной сортировке ? По идее это будет число равное кол-ву итераций цикла ? Пробовал прибавлять 1 к переменной перед каждым сравнением,но сортировка переставала работать. 0

@WatsOne 36 / 37 / 13 Регистрация: 10.10.2010 Сообщений: 115
	25.10.2010, 11:10
	имхо, но можно было со счётчиком работать, как с глобальной переменной, чем нагружать процедуру лишним параметром Добавлено через 10 минут Puporev, формула для количества сравнений для массива заполненного рандом: 2N(Ln(N)/Ln(2)+1) могу ошибаться 1