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

• 1 слайд

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

• 2 слайд

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

• 3 слайд

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

• 4 слайд

• 5 слайд

  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.