Отметим, что, в отличие от метода сдвига, в методе вставок просмотр массива В начинается от его начала.
В отличие от метода подсчета, метод вставки позволяет упорядочить массив А и при наличии в нем совпадающих элементов.
Примечание: Если по сути задачи требуется хранение результата в массиве А, после выполнения сортировки достаточно выполнить присваивание A:=B (в Турбо-Паскале допускается присваивание массивов одинакового типа).
Описание алгоритма:
Заполнение массива A
B[1]=A[1]
Для i=2 до N выполнять
│ j=1
│ Пока B[j]<A[i] и j<i выполнять j=j+1
│ Если j=i то
│ │ B[i]=A[i]
│ иначе
│ │ Для k=i-1 до j (шаг -1) выполнять B[k+1]=B[k]
│ │ B[j]=A[i]
СОДЕРЖАНИЕ ЗАДАНИЯ
ЗАДАЧА 1. Составить процедуры: а) заполнения массива, содержащего заданное количество элементов типа byte, случайными числами в указанном диапазоне; б) сортировки массива заданным методом.
Составить программу, в которой выполняется заполнение массива, сортировка массива и вывод результатов. Исходную расстановку чисел, промежуточные и окончательный результаты вывести на экран, а также записать в текстовый файл и напечатать.
│ Колич-во │ │ │ Направление
Вариант │ чисел │ Диапазон │ Метод │ сортировки
────────│──────────│────────────│───────│───────────────
1 12 35-72 1 по возрастанию
2 14 42-60 2 по возрастанию
3 15 10-20 3 по возрастанию
4 10 10-45 4 по возрастанию
5 11 0-25 5 по возрастанию
6 14 10-200 6 по возрастанию
7 16 60-80 7 по возрастанию
8 12 45-65 1 по убыванию
9 15 0-20 2 по убыванию
10 15 0-15 2 по убыванию
11 11 20-40 3 по убыванию
12 18 10-25 4 по убыванию
13 17 16-30 5 по убыванию
14 14 15-150 6 по убыванию
15 15 20-60 7 по убыванию
16 16 12-28 1 по возрастанию
17 11 22-50 2 по убыванию
18 12 36-60 3 по возрастанию
19 14 71-85 4 по убыванию
20 15 19-40 5 по возрастанию
21 16 0-100 6 по убыванию
22 16 21-38 7 по возрастанию
23 14 17-30 1 по убыванию
24 17 60-75 2 по возрастанию
25 18 55-80 3 по убыванию
26 13 25-150 6 по убыванию
27 19 40-60 1 по убыванию
28 17 32-48 7 по возрастанию
29 19 12-30 3 по убыванию
30 17 30-50 2 по возрастанию
31 20 12-32 1 по убыванию
─────────────────────────────────────────────────────────
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.