Метод парных перестановок на языке Паскаль

Сортировка в одномерных массивах (10 класс)

Сортировка в массиве осуществляется следующим образом: Под сортировкой понимают упорядочивание элементов. Возможны следующие виды сортировки:  - по возрастанию элементов (каждый следующий больше предыдущего), - по убыванию элементов (каждый следующий меньше предыдущего), - не убыванию элементов (каждый следующий больше или равен предыдущему), - не возрастанию элементов (каждый следующий меньше или равен предыдущему). Существует много алгоритмов сортировки. Разберём два из них: метод парных перестановок (пузырьковый) и метод прямого выбора.

Благодаря этой рекламе сайт может продолжать свое существование, спасибо за просмотр.

Метод парных перестановок Смысл этого метода заключается в сравнивании соседних элементов и, если нужно, их перестановке. Причём за один просмотр всех пар сортировка не достигает нужного результата. Приходится просматривать все пары элементов несколько раз. Задача1. Отсортировать по возрастанию 5 элементов одномерного массива. Ввод массива осуществить любым способом. Пусть массив называется M, счётчик элементов I, количество элементов в нём N, количество повторов для просмотра всех пар соседних элементов J, ячейка для обмена B. Формирование (ввод) и печать (вывод) массива рассматривались ранее. Поэтому подробно эти действия рассматриваться не будут.

Алгоритм. Объявить и сформировать массив. Отобразить исходный массив. Для каждого J от 1 до N-1 повторять: Для каждого I от 1 до N-1 повторять: Если M(I)>,M(I+1) то: Присвоить B значение M(I) Присвоить M(I) значение M(I+1) Присвоить M(I+1) значение B Конец Если Конец Цикла по I Конец Цикла по J Отобразить отсортированный массив. Конец Алгоритма

program tyy, uses Crt, const n = 5, type TVector=array[1..n] of integer, var M : TVector,B : integer, i,j : Integer, begin ClrScr, writeln(Введите элементы массива:), for i:=1 to n do Read (M[i]), Writeln, for j:=n downto 1 do for i:=1 to j-1 do if M[i] >, M[i+1] then begin B := M[i], M[i] := M[i+1], M[i+1] := B, end, Writeln (Отсортированный массив:), for i:=1 to n do Write(M[i]:3), end.