Блог geloni-el. Linux, программирование, математика.

Готовая реализация алгоритма сортировки пузеркем на языке Pascal.

type vector = array[1..max_size_array] of integer;

procedure buble_sort(var a:vector; var b:vector; size:integer);
var
k, i, j:integer;
flag:boolean;
begin
b:=a;
k:=0;
for i:=1 to (size-1) do
begin
flag:=true;
for j:=1 to (size-i) do
begin
if b[j]>b[j+1] then
begin
k:=b[j];
b[j]:=b[j+1];
b[j+1]:=k;
flag:=false;
end;
end;
if flag then break;
end;
end;