{ **** UBPFD *********** by delphibase.endimus.com ****
>> Обычная сортировка методом "пузырька"
ПРостой способ отсортировать массив данных
Зависимости: стандартный набор
Автор: Oleg Yu. Borodin AKA Cyber, ICQ:52779990, Tomsk
Copyright: Oleg Yu. Borodin AKA Cyber
Дата: 16 февраля 2004 г.
***************************************************** }var
l, m, mi, d: integer;
mWin: array[0..8] of integer;
begin
Randomize;
for l := 0 to 8 do
mWin[l] := Random(100);
for l := 0 to 7 do//последний элемент не считаем - он уже будет//стоять на своем местеbegin
d := 0;
mi := 0; //ищем максимальный элементfor m := l to 8 doif mWin[m] > mi thenbegin
mi := mWin[m];
d := m; //находим позицию максимального элемента массиваend;
mi := mWin[l]; //текущий сохраняем
mWin[l] := mWin[d]; //вставляем максимальный
mWin[d] := mi; //текущий переставляем на свободное местоend;
end; //все
// Сортировка методом пузырькаprocedure SortList(lbNum: TStrings);
var
i, j, b_val, b_j: integer;
beginif lbNum.Count > 1 thenfor i := 0 to lbNum.Count - 2 dobegin
b_val := StrToInt(lbNum[i]);
b_j := i;
for j := i + 1 to lbNum.Count - 1 dobeginif StrToInt(lbNum[j]) < b_val thenbegin
b_val := StrToInt(lbNum[j]);
b_j := j;
end;
end;
lbNum[b_j] := lbNum[i];
lbNum[i] := IntToStr(b_val);
end;
end;
// Пример использованияprocedure TForm1.Button1Click(Sender: TObject);
begin
SortList(ListBox1.Items);
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Сортировка методом Пузырька", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!