Сортировка методом линейного выбора с подсчетом

@Ssad`Ra · Регистрация: 02.12.2009

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

Необходимо написать процедуру сортировки методом линейного выбора с подсчетом.

@Snoopy · 02.12.2009, 13:29

Сортировки посмотрите здесь

@Puporev · 02.12.2009, 13:55

Как-то так.
{сортировка выбором по возрастанию}

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
uses crt;
var a:array [1..100]of integer;
    n,i,j,nmax,buf,k:integer;
Begin
clrscr;
write('Размер массива n=');
readln(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
k:=0;
for i:=1 to n-1 do
  begin
    nmax:=i;
    for j:=i+1 to n do
    if a[j]<a[nmax] then nmax:=j;
    buf:=a[i];
    a[i]:=a[nmax];
    a[nmax]:=buf;
    k:=k+1;
  end;
writeln('Упорядоченный массив: ');
for i:=1 to n do
write(a[i],' ');
writeln;
write('Количество обменов=',k);
readln;
end.

@Ssad`Ra · 09.12.2009, 12:43 **[ТС]**

Спасибочки!!!

@Ssad`Ra · 10.12.2009, 14:16 **[ТС]**

Но к сожалению это немного не то.
Условие: Просмотр таблицы начинается с первой записи (i=1, 2, ...n-1). Ee ключ сравнивается с ключами последующих записей (j=i+1, i+2, ...n).При этом счетчик большего из сравниваемых ключей увеличиватся на 1. При втором просмотре таблицы первый ключ уже не рассматривается, второй ключ сравнивается со всеми послдующими. Результаты сравнений фиксируются в счетчиках.
Начало я знаю как делать, проблема в счетчиках.

И еще одно, ребят никто не знает как сделать на Pascale :Включть в список М задаваемых элементов перед К-м по счету элементом списка.

@Puporev · 10.12.2009, 14:26

Необходимо написать процедуру сортировки методом линейного выбора с подсчетом.

Подсчетом чего? Сравнений, обменов или еще чего? Я Вам написал с подсчетом обменов, хотите сравнений, переставьте стоку

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
k:=0;
for i:=1 to n-1 do
  begin
    nmax:=i;
    for j:=i+1 to n do
    if a[j]<a[nmax] then 
     begin
      nmax:=j;
      k:=k+1;
     end; 
    buf:=a[i];
    a[i]:=a[nmax];
    a[nmax]:=buf;
   end;

@Ssad`Ra · 16.12.2009, 13:47 **[ТС]**

Индексы Ключи Счетчики
0 9 0
1 5 0
2 10 0
3 2 0

1-й просмотр 2-й просмотр 3-й просмотр Результирующая таблица
2 2 2 2
0 1 1 5
1 2 3 9
0 0 0 10

Это пример того, как должна происходить сортировка

Новые блоги и статьи Все статьи Все блоги /
BOINC: 22 года — и всё ещё работает Programma_Boinc 12.03.2026 BOINC: 22 года — и всё ещё работает Дэвид Андерсон написал ретроспективу. Кратко: в 2001 году он ушёл из United Devices, где был CTO, и за несколько месяцев написал ядро BOINC — клиент, сервер,. . .	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .

@Ssad`Ra 0 / 0 / 0 Регистрация: 02.12.2009 Сообщений: 5

	Сортировка методом линейного выбора с подсчетом 02.12.2009, 13:05. Показов 12839. Ответов 6 Метки нет (Все метки) Необходимо написать процедуру сортировки методом линейного выбора с подсчетом. 0

@Snoopy 1916 / 1066 / 384 Регистрация: 06.12.2008 Сообщений: 2,802
	02.12.2009, 13:29
	Сортировки посмотрите здесь 1

@Ssad`Ra 0 / 0 / 0 Регистрация: 02.12.2009 Сообщений: 5
	09.12.2009, 12:43 [ТС]
	Спасибочки!!! 0

@Ssad`Ra 0 / 0 / 0 Регистрация: 02.12.2009 Сообщений: 5
	10.12.2009, 14:16 [ТС]
	Но к сожалению это немного не то. Условие: Просмотр таблицы начинается с первой записи (i=1, 2, ...n-1). Ee ключ сравнивается с ключами последующих записей (j=i+1, i+2, ...n).При этом счетчик большего из сравниваемых ключей увеличиватся на 1. При втором просмотре таблицы первый ключ уже не рассматривается, второй ключ сравнивается со всеми послдующими. Результаты сравнений фиксируются в счетчиках. Начало я знаю как делать, проблема в счетчиках. И еще одно, ребят никто не знает как сделать на Pascale :Включть в список М задаваемых элементов перед К-м по счету элементом списка. 0

@Ssad`Ra 0 / 0 / 0 Регистрация: 02.12.2009 Сообщений: 5
	16.12.2009, 13:47 [ТС]
	Индексы Ключи Счетчики 0 9 0 1 5 0 2 10 0 3 2 0 1-й просмотр 2-й просмотр 3-й просмотр Результирующая таблица 2 2 2 2 0 1 1 5 1 2 3 9 0 0 0 10 Это пример того, как должна происходить сортировка 0