Программирование - процесс и искусство создания компьютерных программ и/или программного обеспечения с помощью языков программирования. Программирование сочетает в себе элементы искусства, фундаментальных наук: информатики и математики.

Пузырьковая сортировка

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

Pascal

for i:=n-1 downto 1 do {n - размер массива A[]}
    for j:=1 to i do
        if A[j]>A[j+1] then begin
            tmp:= A[j];
            A[j]:= A[j+1];
            A[j+1]:= tmp;
        end;
write('Вывод значений A[]: ');
for i:=1 to n do
    write(A[i],' ');
writeln();

С

# define SWAP(A,B) {A=A^B;B=A^B;A=A^B;}
void Sort(int A[], int n)
{
    int i, j;
    for(i=n-1;i>0;i--)
     {
        for(j=0;j<i;j++)
         {
            if(A[j]>A[j+1]) SWAP(A[j],A[j+1]);
         }
     }
}

Fortran

do i=n-1,1,-1
do j=1,i
	if (a(j).gt.a(j+1)) then
		t=a(j)
		a(j)=a(j+1)
		a(j+1)=t
	endif
enddo
enddo

PHP

for ($i=(count($A)-1);$i>=0;$i--) {
    for ($j=0;$j<=($i-1);$j++)
        if ($A[]>$A[$j+1]) {
            $tmp = $A[$j];
            $A[$j] = $A[$j+1];
            $A[$j+1] = $tmp;
        }
}

Delphi

type
 Mas = array of Integer; 
...
procedure Sort(var A: Mas);
 var 
     i,tmp,n: Integer; 
     f: boolean;
begin
 n:= Length(A)-1;
 if n<1 then exit;
 repeat
  f:=true;
  Dec(n);
  for i:=0 to n do
   if A[i]>A[i+1] then
    begin
     tmp:= A[i];
     A[i]:= A[i+1];
     A[i+1]:= tmp;
     f:= false;
    end;
 until f;
end;
Список всех алгоритмов Вы можете найти в разделе "Примеры алгоритмов"
 
Меню
Главная
Услуги
Способы оплаты
Гарантии
Заказать
Готовые работы
Примеры алгоритмов
Контакты
 
 
Консультации
 
 
  ICQ 588641
 
Электронная почта
911@mathematix.ru
 
Skype
mathematix.ru
 
 
 
  © mathematix - контрольные, курсовые и дипломы по программированию Rambler's Top100