Презентация, доклад на тему Метод парных перестановок на языке Паскаль

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

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

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.