Викиучебник

Реализации алгоритмов/Сортировка/Пузырьком: различия между версиями

Интерактивная навигация по истории
← Предыдущая правкаСледующая правка →
Содержимое удалено Содержимое добавлено
ВизуальныйВики-текст
Строка 155:
...
procedure BubbleSort(var a: TIntVec);
var i,p t, n:, Integer; bnn: booleanInteger;
begin
n:= LengthHigh(a);
if n < 2 then exit;
repeat
bnn:= false0;
for i:= 01 to n-1 do▼
Dec(n);
if na[i-1] > 0a[i] then
▲ for i:= 0 to n-1 do
if a[i] > a[i+1] then
begin
pt:= a[i];
a[i]:= a[i+-1];
a[i+-1]:= pt;
bnn:= truei;
end;
n:= nn;
until not bn=0;
end;
</source>
Источник — https://ru.wikibooks.org/wiki/Реализации_алгоритмов/Сортировка/Пузырьком