Сортировка пузырьком, выбором, вставкой.

[vadiprog]

Напишите пожалуйста программы с сортировками пузырьком, выбором, вставкою для одномерных масивов. Надо полностью программы, где сортировки записаны в процедурах.

[_Колибри_]

Вот пузырьковая:
В возрастающем порядке

Procedure SorBubble();
const
 ArrSize = 10;  // размер массива
var
  t: boolean;
  Arr: array[1..ArrSize] of Integer;
begin

  t:= True;
  while t do
  begin
    t:= False;
    for I:= 1 to ArrSize-1 do
      if Arr[I] > Arr[I+1] then
        begin  // меняем местами
           temp := Arr[i];
           Arr[i] := Arr[i+1];
           Arr[i+1] := temp;
           t:= True;
        end;
  end;

end;

[McFrey]

1) метод пузырька

begin
   for j:=1 to N-1 do
     for i:=1 to N-j do
        if M[i] > M[i+1] then
              swap(M[i],M[i+1])
end;

2) Сортировка вставками

begin
   M[0] := -oo;
   for j:=2 to N do
    begin 
      i := j; 
        while M[i] < M[i-1] do
          begin 
              swap(M[i],M[i-1]);
              i := i-1
          end
    end 
end;

3)Сортировка выбором

begin
   for j:=1 to N-1 do
    begin 
        FindMin(j, i);
        swap(M[j],M[i])
    end 
end;

[IT-man]

(c) не мое

type 
itp = Longint; 
mas = array [0..max] of itp;

{ Сортировка вставками }
  procedure InsertSort( var A : mas );
    var
      i, k : Integer;
      x : itp;
    begin
      { Вставляем в уже отсортированную часть элементы со 2 по max }
      for i := 2 to max do
        begin
          k := i;
          x := A[i];
          { Передвигаем на 1 позицию направо элементы,
            большие вставляемого элемента (он записан в x) }
          { Условие k > 1 гарантирует, что мы не выйдем за
            границу массива, если вставляется элемент,
            меньший всех предыдущих.
            В Turbo Pascal условия вычисляются в обратном порядке,
            поэтому условие цикла while нужно заменить на
            (A[k - 1] > x) and (k > 1) }
          while (k > 1) and (A[k - 1] > x) do
            begin
              A[k] := A[k - 1];
              k := k - 1;
            end;
          { Вставляем элемент в нужную позицию }
          A[k] := x;
        end;
    end;
 
  { Сортировка выбором }
  procedure SelectSort2(var A : mas);
    var
      i, j, m : Integer;
      x : itp;
    begin
      { Ищем элементы для позиций с 1 по max - 1 }
      for i := 1 to max - 1 do
        begin
          m := i;
          x := A[i];
          { Просматриваем все еще не выбранные элементы }
          for j := i + 1 to max do
            { Если встречается элемент, меньший того, что сейчас
              стоит на позиции m, запоминаем в m его позицию,
              а в x - его значение }
            if x > A[j] then
              begin
                m := j;
                x := A[j];
              end;
            { Меняем местами i-ый элемент, и минимальный из оставшихся -
              m-ый элемент, сохраненный в x }
            A[m] := A[i];
            A[i] := x;
        end;
    end;
 
  { Сортировка "пузырьком" }
  procedure BubbleSort( var A : mas );
    var
      i, j : Integer;
      x : itp;
    begin
      for i := max downto 2 do
        for j := 2 to i do
          if A[j] < A[j - 1] then
            begin
              x := A[j];
              A[j] := A[j - 1];
              A[j - 1] := x;
            end;
    end;