Переформировать массив таким образом, чтобы строки располагались по возрастанию их первых элементов

@tommy0 · Регистрация: 01.04.2017

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

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

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
program Project3;
const
n1=20;
m1=20;
 
 
type tarr = array [1..n1,1..m1] of integer;
 
 
procedure out_arr(n,m: integer; var x: Tarr);
var
  i,j: integer;
begin
  for i := 0 to n-1  do
  begin
   writeln;
 
  for j := 0 to m-1 do
 
    write(x[i,j]:5);
  end;
end;
 
procedure rand (n,m:integer;var mas:tarr);
var i,j:integer;
 begin
 randomize;
for i := 0 to n-1 do
 
 
for j := 0 to m-1 do
  mas[i,j]:=random(100);
 
 
 
end;
 
procedure swap_rows(var mas:tarr;i1,i2,r:integer);
var i,tmp: integer;
begin
 for i:= 1 to r do
   begin
     tmp:=mas[i1,i]; mas[i1,i]:=mas[i2,i];mas[i2,i]:=tmp;
   end;
 
end;
 
procedure booble_sort (k,r:integer;var mas:tarr);   // k - кол-во строк   , r -кол-во столбоцов
 
var i, tmp, n: Integer;
Sort: Boolean;
begin
Sort:=True;
n:=0;
while Sort do
  begin
   Sort:=False;
   for i:=0 to k-1-n do
     if mas[i,1]>mas[i+1,1] then
       begin
         Sort:=True;
         //tmp:=mas[i,1]; mas[i,1]:=mas[i+1,1]; mas[i+1,1]:=tmp;
         swap_rows(mas,i,i+1,r);
       end;
   n:=n+1;
  end;
end;
 
var p,p1:integer; x:tarr;
 
begin
 writeln('введите кол-во строк и столбцов');
 read(p);
 read(p1);
 rand(p,p1,x);
 out_arr(p,p1,x);
 booble_sort(p,p1,x);
 
  readln;
 
end.

@Alexandr212 · 20.04.2017, 20:58

В циклах прогон идет от 0 до "переменная -1", а массив от 1 до "переменная"

Добавлено через 3 минуты
поменяйте циклы с

Pascal
1
for (переменная):=0 to (переменная - 1) do

На

Pascal
1
for (переменная):=1 to (переменная) do

@tommy0 · 21.04.2017, 12:09 **[ТС]**

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

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
program Project3;
const
n1=20;
m1=20;
 
 
type tarr = array [1..n1,1..m1] of integer;
 
 
procedure out_arr(n,m: integer; var x: Tarr);
var
  i,j: integer;
begin
  for i := 1 to n  do
  begin
   writeln;
 
  for j := 1 to m do
 
    write(x[i,j]:5);
  end;
end;
 
procedure rand (n,m:integer;var mas:tarr);
var i,j:integer;
 begin
 randomize;
for i := 1 to n do
 
 
for j := 1 to m do
  mas[i,j]:=random(100);
  out_arr(n,m,mas);
  writeln;
 
 
 
end;
 
procedure swap_rows(var mas:tarr;i1,i2,r:integer);
var i,tmp: integer;
begin
 for i:= 1 to r do
   begin
     tmp:=mas[i1,i]; mas[i1,i]:=mas[i2,i];mas[i2,i]:=tmp;
   end;
 
end;
 
procedure booble_sort (k,r:integer;var mas:tarr);   // k - кол-во строк   , r -кол-во столбоцов
 
var i, tmp, n: Integer;
Sort: Boolean;
begin
Sort:=True;
n:=0;
while Sort do
  begin
   Sort:=False;
   for i:=0 to k-1-n do
     if mas[i,1]>mas[i+1,1] then
       begin
         Sort:=True;
         //tmp:=mas[i,1]; mas[i,1]:=mas[i+1,1]; mas[i+1,1]:=tmp;
         swap_rows(mas,i,i+1,r);
       end;
   n:=n+1;
  end;
end;
 
var p,p1:integer; x:tarr;
 
begin
 writeln('введите кол-во строк и столбцов');
 read(p);
 read(p1);
 rand(p,p1,x);
 out_arr(p,p1,x);
 booble_sort(p,p1,x);
 
  readln;    readln;
 
end.

@Constantin Cat · 21.04.2017, 13:08

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

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

Что Вы написали, то и получили.

Pascal
1
2
3
rand(p,p1,x); - создает и выводит
 out_arr(p,p1,x); - выводит
booble_sort(p,p1,x); - сортирует

@tommy0 · 21.04.2017, 15:33 **[ТС]**

что то я не могу понять что не так. и как мне вывести именно отсортированный массив

@Alexandr212 · 21.04.2017, 16:49

Ты сначала вызываешь процедуру вывода, а ПОТОМ процедуру сортировки, поменяй их местами.

@tommy0 · 21.04.2017, 21:11 **[ТС]**

всем спасибо,разобрался)

Новые блоги и статьи Все статьи Все блоги /
Семь 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. На борту пять. . .	Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .

@tommy0 0 / 0 / 0 Регистрация: 01.04.2017 Сообщений: 24
	21.04.2017, 15:33 [ТС]
	что то я не могу понять что не так. и как мне вывести именно отсортированный массив 0

@Alexandr212 101 / 98 / 112 Регистрация: 28.11.2016 Сообщений: 528
	21.04.2017, 16:49
	Ты сначала вызываешь процедуру вывода, а ПОТОМ процедуру сортировки, поменяй их местами. 1

@tommy0 0 / 0 / 0 Регистрация: 01.04.2017 Сообщений: 24
	21.04.2017, 21:11 [ТС]
	всем спасибо,разобрался) 0