Сортировки массивов!

[Camelot_2012]

Дана последовательность: 9,6,3,7,0. Записать с помощью сортировки: обмена, выбора и простыми вставками(включения).

[Leshii]

1)Обмен ( или же Сортировка пузырьком )
( сюда же в принципе могу впихнуть "улучшенный метод", но думаю будет жирно как для вас) учитывая что вы даже не пытались ничего написать, или же банально поискать.

Суть:
За каждый проход элементы последовательно сравниваются попарно и, если порядок в паре неверный, выполняется обмен элементов. Проходы по массиву повторяются до тех пор, пока на очередном проходе не окажется, что обмены больше не нужны, что означает — массив отсортирован. При проходе алгоритма, элемент, стоящий не на своём месте, «всплывает» до нужной позиции как пузырёк в воде, отсюда и название алгоритма.

Пример:
на входе ( 1 6 3 5 4 )
Будем идти по порядку, выбираем первую пару 1 и 6 ( первый проход )
(1 6 3 5 4) 1>6 ( условие не выполняется ), переходим к след. паре
6 и 3 ( второй проход )
(1 6 3 5 4) 6>3 ( условие выполняется ) значит эти два элемента меняются местами отсюда получаем след.
(1 3 6 5 4) сравниваем след. два элемента 6>5 ( условие выполняется )
( 1 3 5 6 4 ) 6>4
( 1 3 5 4 6 ) ( третий проход ) наш алгоритм снова сравнивает ... и когда он доходит до пары 5 и 4 ( 5>4 ), то происходит обмен.
И далее когда массив снова проходит ( а в даной программе он проходит ещё раз, т.к. это далеко не идеальный вариант ), то после получаем результирующий упорядоченный массив чисел.

For i:=1 to n do 
 For j:=1 to n-1 do
  If Mas[j]>Mas[j+1] then begin
     Rez:=Mas[j]; { переменная Rez - временный буфер в котором храним  сравниваемые переменные }
     Mas[j]:=Mas[j+1];
     Mas[j+1]:=Rez;
 end;

2)Вставкой
Сначала он сортирует два первых элемента массива. Затем алгоритм вставляет третий элемент в соответствующую порядку позицию по отношению к первым двум элементам. После этого он вставляет четвертый элемент в список из трех элементов. Этот процесс повторяется до тех пор, пока не будут вставлены все элементы.

 
for i:=2 to n do begin
   j:=1;
  while (j>1) and (Mas[j]<Mas[j-1]) do beign
       Rez:=Mas[j];
       Mas[j]:=Mas[j-1];
       Mas[j-1]:=Rez;
       j:=j-1;
   end;
end;

3)Выбором
Находим минимальное значение в текущем списке
производим обмен этого значения со значением на первой неотсортированной позиции
теперь сортируем хвост списка, исключив из рассмотрения уже отсортированные элементы

for i:=1 to n-1 begin
  Min:=Mas[i];
  N_min:=j;
for j:=( i+1 ) to n do 
 if Mas[j] then begin
    Min:=Mas[j];
    N_min:=j;
  end;
Mas[N_min]=Mas[j];
Mas[i]:=Min;
end;

Если надо что будет пояснить пишите или же сюда, или же в skype.