@Alexandr_msk

Челночная сортировка.
Размерность сортируемого массива: n = 10, n = 50, n = 250.

Для указанного в задании алгоритма сортировки необходимо составить программу сорти-
ровки целочисленного массива. При этом приведенные программы можно
упростить, заменив массив из записей типа item массивом целых чисел. Тогда
роль поля item.key (или a[i].key) будет выполнять сам элемент массива a[i].
Исходный массив заполняется случайным образом при помощи обра-
щения к стандартной функции random(т), возвращающей псевдослучайные
числа в диапазоне от 0 до m – 1. Например:
for i := 1 to n do a[i] := random(m);
При этом всегда будем считать, что m = 100. Помните о том, что до
первого использования функции random в программе необходимо один раз
94
вызвать процедуру без параметров randomize (например, сразу после первого
begin).
В результате выполнения данного задания необходимо получить для
каждой из приведенных в задании размерностей массива число обменов, со-
вершаемых в процессе сортировки. Для этого необходимо ввести в програм-
му целочисленный счетчик (устанавливаемый в 0 в начале работы алгоритма
сортировки), который будет увеличиваться на единицу после каждой опера-
ции обмена (т.е. операции присваивания, в правой или левой части которой
встречается элемент массива a). Поскольку искомая величина будет меняться
с каждым пуском программы (т.к. сортируемый массив задается случайным
образом), повторите сортировку (для размерности сортируемого массива) 10
раз и выдайте среднее число обменов за 10 сортировок

Вернуться к обсуждению:
Для челночной сортировки определить количество сравнений и обменов Turbo Pascal

0