Комментарий к сортировке массива

@AlexOk · Регистрация: 30.05.2010

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

Кто-нибудь может подробнее прокоментировать эту программу. Заранее Спасибо!

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
program L_6_2;
var
 i,j,n,stolbets,stroka:integer;
 b:array[1..100] of integer;
 a:array[1..20,1..20] of integer;
 
 procedure input; {a i n beretsya iz globalnih peremennih}
 var i,j:integer;
 begin
  for i:=1 to n do
   for j:=1 to n do
   begin
    write('Element a[',i,',',j,']= ');
    readln(a[i,j]);
   end;
  end;
 
 procedure output; {A beretsya iz globalnih peremennih}
 var i,j:integer;
 begin
  for i:=1 to n do
  begin
   for j:=1 to n do write(a[i,j]:3);
   writeln;
  end;
 end;
 
 procedure obmen(i2,j2:integer);
 var i:integer;
 begin
  i:=a[i2,j2];
  a[i2,j2]:=a[i2+1,j2];
  a[i2+1,j2]:=i;
 end;
 
begin
 writeln('Vvedite razmernost matrix.');
 readln(n);
 input;
 
 stolbets:=0;
 REPEAT
 
  inc(stolbets);
  stroka:=1;
  repeat
   If a[stroka,stolbets]>=a[stroka+1,stolbets] then Inc(stroka)
   else
   begin
    obmen(stroka,stolbets);
    If stroka>1 then dec(stroka);
   end;
  until stroka=n;
 
 until stolbets=n;
 
 
 output;
 readln;
end.

@Hidalgo08 · 31.05.2010, 14:11

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
program L_6_2;
 
var
  n, stolbets, stroka: integer;
  b: array[1..100] of integer;
  a: array[1..20, 1..20] of integer;
//процедура заполнения массива не генератором случайных чисел
procedure input;{a i n beretsya iz globalnih peremennih}
var
  i, j: integer;
begin
//используем счетчик для вывода и организации
  for i := 1 to n do
    for j := 1 to n do
    begin
      write('Element a[', i, ',', j, ']= ');//записываев элементы
      readln(a[i, j]);//выводим эелементы
    end;
end;
//процедура вывода массива на экран
procedure output;{A beretsya iz globalnih peremennih}
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do write(a[i, j]:3);
    writeln;
  end;
end;
 
procedure obmen(i2, j2: integer); //процедура сортировки элементов
var
  i: integer; //вспомогательная переменая для обмена значений
begin
//начинаем производить обмен местами для упорядочивания  
  i := a[i2, j2]; 
  a[i2, j2] := a[i2 + 1, j2];
  a[i2 + 1, j2] := i;
end;
 
begin
//выводим на экран сообщение
  writeln('Vvedite razmernost matrix.');
  readln(n);
//вызов процедуры ввода
  input;
  
  stolbets := 0;
//в этом цыкле производим сортировку и обмен 
  repeat    
    inc(stolbets);
    stroka := 1;
    repeat
      if a[stroka, stolbets] >= a[stroka + 1, stolbets] then Inc(stroka)
      else
      begin
        obmen(stroka, stolbets);
        if stroka > 1 then dec(stroka);
      end;
    until stroka = n;
    
  until stolbets = n;
  
  //вывод на экран результат
  output;
  readln;
end.

@AlexOk · 31.05.2010, 14:21 **[ТС]**

А вот этот момент можно более подробнее? Есть моменты неизвестные!

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 stolbets := 0;
//в этом цыкле производим сортировку и обмен 
  repeat    
    inc(stolbets);
    stroka := 1;
    repeat
      if a[stroka, stolbets] >= a[stroka + 1, stolbets] then Inc(stroka)
      else
      begin
        obmen(stroka, stolbets);
        if stroka > 1 then dec(stroka);
      end;
    until stroka = n;
    
  until stolbets = n;

@Hidalgo08 · 31.05.2010, 14:33

пытался писать как только можно доступно...

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
begin
//выводим на экран сообщение
  writeln('Vvedite razmernost matrix.');
  readln(n);
//вызов процедуры ввода
  input;
 //для начала stolbets присваиваем начальное 0
  stolbets := 0;
//в этом цыкле производим сортировку и обмен 
  repeat    
    inc(stolbets); // увеличюем колечество stolbets
    stroka := 1; //для начала переменой stroka присваиваим 1
    repeat // внутрений вложеный цыкл
    //если выполняеться условие  то цвеличуем stroka на 1
      if a[stroka, stolbets] >= a[stroka + 1, stolbets] then Inc(stroka)
      // в ином случае
      else
      begin
      //вызываем процедуру обмена 
        obmen(stroka, stolbets);
        // если stroka больше еденицы то уменьшаем на 1  
        if stroka > 1 then dec(stroka);
      end;
      // цыкл заканчивается когда stroka будет равной n
    until stroka = n;
    // цыкл заканчивается когда stolbets будет равной n
  until stolbets = n;
  
  //вывод на экран результат
  output;
  readln;
end.

@AlexOk · 31.05.2010, 14:39 **[ТС]**

И еще один вопрос. Думаю что последний. А зачем вводить масив b если он не используется в програме? (разве не так?)

@Hidalgo08 · 31.05.2010, 14:49

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

И еще один вопрос. Думаю что последний. А зачем вводить масив b если он не используется в програме? (разве не так?)

не нужен он:

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
program L_6_2;
 
var
  n, stolbets, stroka: integer;
  //b: array[1..100] of integer;
  a: array[1..20, 1..20] of integer;
//процедура заполнения массива не генератором случайных чисел
procedure input;{a i n beretsya iz globalnih peremennih}
var
  i, j: integer;
begin
  //используем счетчик для вывода и организации
  for i := 1 to n do
    for j := 1 to n do
    begin
      write('Element a[', i, ',', j, ']= ');//записываев элементы
      readln(a[i, j]);//выводим эелементы
    end;
end;
//процедура вывода массива на экран
procedure output;{A beretsya iz globalnih peremennih}
var
  i, j: integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to n do write(a[i, j]:3);
    writeln;
  end;
end;
 
procedure obmen(i2, j2: integer);//процедура сортировки элементов
var
  i: integer; //вспомогательная переменая для обмена значений
begin
  //начинаем производить обмен местами для упорядочивания  
  i := a[i2, j2]; 
  a[i2, j2] := a[i2 + 1, j2];
  a[i2 + 1, j2] := i;
end;
 
begin
  //выводим на экран сообщение
  writeln('Vvedite razmernost matrix.');
  readln(n);
  //вызов процедуры ввода
  input;
  //для начала stolbets присваиваем начальное 0
  stolbets := 0;
  //в этом цыкле производим сортировку и обмен 
  repeat    
    inc(stolbets); // увеличюем колечество stolbets
    stroka := 1; //для начала переменой stroka присваиваим 1
    repeat // внутрений вложеный цыкл
      //если выполняеться условие  то цвеличуем stroka на 1
      if a[stroka, stolbets] >= a[stroka + 1, stolbets] then Inc(stroka)
      // в ином случае
      else
      begin
        //вызываем процедуру обмена 
        obmen(stroka, stolbets);
        // если stroka больше еденицы то уменьшаем на 1  
        if stroka > 1 then dec(stroka);
      end;
      // цыкл заканчивается когда stroka будет равной n
    until stroka = n;
    // цыкл заканчивается когда stolbets будет равной n
  until stolbets = n;
  
  //вывод на экран результат
  output;
  readln;
end.

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@AlexOk 0 / 0 / 0 Регистрация: 30.05.2010 Сообщений: 33
	31.05.2010, 14:39 [ТС]
	И еще один вопрос. Думаю что последний. А зачем вводить масив b если он не используется в програме? (разве не так?) 0