Второй столбец массива упорядочить по возрастанию

@МасловЕвгений · Регистрация: 31.03.2010

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

Всем доброго времени суток, помогите кому не сложно написать програмку в паскале:
1)Массив размером 12 строк 12 столбцов заполняется числами из входного текстового файла. Исходный массив распечатывается. Второй столбец массива упорядочить по возрастанию методом пересчета в одномерный массив. Созданный массив распечатать.

Заранее благодарю

@Puporev · 31.03.2010, 14:34

Сообщение от МасловЕвгений

методом пересчета

Поясните этот метод, я как-то не слышал такое название.

@МасловЕвгений · 31.03.2010, 15:06 **[ТС]**

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

Поясните этот метод, я как-то не слышал такое название.

Не имею понятия, задачник написан преподами с моего универа, если можно сделайте любым методом, это не так важно.

@Puporev · 31.03.2010, 15:23

МасловЕвгений, Возможно имелся ввиду метод подсчета? А разница в методе есть, ибо это особый метод и ели сделать например обменом, то могут и не принять.

@МасловЕвгений · 31.03.2010, 15:41 **[ТС]**

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

@Puporev · 31.03.2010, 15:57

Можете посмотреть описание алгоритма сортировки здесь.
http://docs.com.ru/algoritm_2.php
Создайте в блокноте, в папке с программой файл, где в первой строке напишите размер массива, потом матрицу, типа так.

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
12
1 2 3 4 5 6 7 8 9 10 11 12
25 12 3 5 4 15 9 14 6 8 9 2
1 15 8 4 5 6 7 8 9 10 11 12
1 9 11 4 5 6 7 8 9 10 11 12
1 8 0 4 5 6 7 8 9 10 11 12
1 15 25 4 5 6 7 8 9 10 11 12
1 12 14 4 5 6 7 8 9 10 11 12
1 21 9 4 5 6 7 8 9 10 11 12
1 29 21 4 5 6 7 8 9 10 11 12
1 12 15 4 5 6 7 8 9 10 11 12
1 9 29 4 5 6 7 8 9 10 11 12
1 0 11 4 5 6 7 8 9 10 11 12

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
uses crt;
var f:text;
    a:array[1..20,1..20] of byte;
    b:array[1..20] of byte;
    c:array[byte] of integer;
    n,i,j:integer;
    name:string;
begin
clrscr;
write('Имя файла : ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
writeln('Исходная матрица:');
read(f,n);
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
close(f);
writeln('Второй столбец, упорядоченный по возрастанию:');
{сортировка данных}
for i:=0 to 255 do
c[i]:=0;
for i:=1 to n do
c[a[i,2]]:=c[a[i,2]]+1;
for i:=1 to 255 do
c[i]:=c[i-1]+c[i];
for i:=n downto 1 do
 begin
   b[c[a[i,2]]]:=a[i,2];
   c[a[i,2]]:=c[a[i,2]]-1;
 end;
{Вывод массива B}
writeln('Отсортированный масив:');
for i:=1 to n do
write(b[i],' ');
readln
End.

@МасловЕвгений · 31.03.2010, 16:38 **[ТС]**

Спасибо большое.

Добавлено через 23 минуты
И еще вопрос: кто-нибудь может набросать примерную блок-схему по этой программе?
Сори за наглость, просто сам ни бум-бум в этих темах, информатику преподают один семестр для галочки.

@WolfCF · 31.03.2010, 17:36

вот...

@Puporev · 31.03.2010, 17:37

Вот схема в редакторе, перерисуй нормально.

@МасловЕвгений · 31.03.2010, 17:47 **[ТС]**

Всем спасибо огромное за помощь.

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор значений справочника Maks 21.03.2026 Установка программного отбора значений справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

@МасловЕвгений 1 / 1 / 0 Регистрация: 31.03.2010 Сообщений: 10

	Второй столбец массива упорядочить по возрастанию 31.03.2010, 13:44. Показов 1774. Ответов 9 Метки нет (Все метки) Всем доброго времени суток, помогите кому не сложно написать програмку в паскале: 1)Массив размером 12 строк 12 столбцов заполняется числами из входного текстового файла. Исходный массив распечатывается. Второй столбец массива упорядочить по возрастанию методом пересчета в одномерный массив. Созданный массив распечатать. Заранее благодарю 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	31.03.2010, 15:23
	МасловЕвгений, Возможно имелся ввиду метод подсчета? А разница в методе есть, ибо это особый метод и ели сделать например обменом, то могут и не принять. 0

@МасловЕвгений 1 / 1 / 0 Регистрация: 31.03.2010 Сообщений: 10
	31.03.2010, 15:41 [ТС]
	Возможно опечатка была в задачнике, если есть метод подсчета, то сделайте с помощью него. У нас вообще главное сделать, а на условие задачи не обращают внимание практически. 0

@МасловЕвгений 1 / 1 / 0 Регистрация: 31.03.2010 Сообщений: 10
	31.03.2010, 16:38 [ТС]
	Спасибо большое. Добавлено через 23 минуты И еще вопрос: кто-нибудь может набросать примерную блок-схему по этой программе? Сори за наглость, просто сам ни бум-бум в этих темах, информатику преподают один семестр для галочки. 0

@WolfCF 3318 / 1380 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	31.03.2010, 17:36
	вот... Миниатюры 1

@МасловЕвгений 1 / 1 / 0 Регистрация: 31.03.2010 Сообщений: 10
	31.03.2010, 17:47 [ТС]
	Всем спасибо огромное за помощь. 0