Сортировка массива вставкой

@M0NES · Регистрация: 29.01.2022

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

Сформируйте случайным образом массив из 20 элементов. Значения элементов должны
находиться в интервале от -50 до 50. Создайте проект, выполняющий сортировку массива методом вставки (предусмотрите
вывод результата каждой итерации в сортировке).

@D1973 · 26.03.2022, 15:05

Сформировал, создал, предусмотрел. И что?

@Пытливый · 26.03.2022, 15:15

Интрига? Интересно, что ответит ТС. Вангую 2 варианта:
1. Дайте код
2. Дайте код с комментариями в каждой строчке

@M0NES · 26.03.2022, 15:36 **[ТС]**

Лучше просто код, без комментария в каждой строчке)

@D1973 · 26.03.2022, 16:02

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

Лучше просто код

И приз отправляется пользователю Пытливый, угадавшему развитие событий с первой попытки!!!

M0NES, о предоставлении какого-либо кода в стартовом посте не было сказано ничего. Совсем ничего...

@bormant · 26.03.2022, 16:27

См.:
Сортировки

@AzAtom · 26.03.2022, 17:24

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

в стартовом посте не было сказано ничего.

Зря ты это написал... Сортировка массива вставкой

@AzAtom · 26.03.2022, 17:58

Ищем в инете "сортировка вставкой", открываем первую же ссылку на википедию и видим там алгоритм на псевдокоде, слегка похожем на паскаль:

Pascal
1
2
3
4
5
6
7
8
9
for j = 2 to A.length do 
    key = A[j]
    i = j-1
    while (int i > 0 and A[i] > key) do 
        A[i + 1] = A[i]
        i = i - 1
    end while
    A[i+1] = key
end

Вот его и правим под дельфийский паскаль:

Delphi
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
type
  TMyArray = array of integer;
 
...
implementation
...
 
procedure SortInsert(var A: TMyArray);
var
  i, j, key: integer;
begin
  for j := 1 to High(A) do begin
    key := A[j];
    i := j-1;
    while (i >= 0) and (A[i] > key) do begin
      A[i + 1] := A[i];
      i := i - 1;
    end;
    A[i+1] := key;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  a: TMyArray;
  i, oh, ov, m: integer;
begin
  oh := StringGrid1.FixedCols;
  ov := StringGrid1.FixedRows;
  m := StringGrid1.ColCount-oh;
 
  SetLength(a, m);
  for i := 0 to m-1 do
    a[i] := StrToIntDef(StringGrid1.Cells[oh+i, ov], 0);
 
  SortInsert(a);
 
  StringGrid2.FixedCols := StringGrid1.FixedCols;
  StringGrid2.FixedRows := StringGrid1.FixedRows;
  StringGrid2.RowCount := StringGrid1.RowCount;
  StringGrid2.ColCount := StringGrid1.ColCount;
  for i := 0 to m-1 do
    StringGrid2.Cells[oh+i, ov] := IntToStr(a[i]);
end;

@D1973 · 26.03.2022, 18:41

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

Зря ты это написал...

Я только завтра новую тему ждал...

Новые блоги и статьи Все статьи Все блоги /
Модульный подход на примере 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 На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии 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 позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .

@M0NES 0 / 0 / 0 Регистрация: 29.01.2022 Сообщений: 10

	Сортировка массива вставкой 26.03.2022, 15:03. Показов 549. Ответов 8 Метки нет (Все метки) Сформируйте случайным образом массив из 20 элементов. Значения элементов должны находиться в интервале от -50 до 50. Создайте проект, выполняющий сортировку массива методом вставки (предусмотрите вывод результата каждой итерации в сортировке). 0

@D1973 Модератор 9921 / 6457 / 2457 Регистрация: 21.01.2014 Сообщений: 27,405 Записей в блоге: 3
	26.03.2022, 15:05
	Сформировал, создал, предусмотрел. И что? 0

@Пытливый 3763 / 2267 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	26.03.2022, 15:15
	Интрига? Интересно, что ответит ТС. Вангую 2 варианта: 1. Дайте код 2. Дайте код с комментариями в каждой строчке 1

@M0NES 0 / 0 / 0 Регистрация: 29.01.2022 Сообщений: 10
	26.03.2022, 15:36 [ТС]
	Лучше просто код, без комментария в каждой строчке) 0

@bormant Модератор 7816 / 4635 / 2837 Регистрация: 22.11.2013 Сообщений: 13,159 Записей в блоге: 1
	26.03.2022, 16:27
	См.: Сортировки 1