Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Аида
1

Сортировка пирамидальная

31.05.2012, 15:12. Просмотров 406. Ответов 0
Метки нет (Все метки)

procedure HeapCorrect(var b : MyArray; Bound, n : Integer);
var
l, r, i, x : Integer;
begin
l := n * 2;
r := l + 1;
i := n;
if r <= Bound then
begin
if b[l] > b[i] then
i := l;
if b[r] > b[i] then
i := r;
end
else
if l <= Bound then
begin
if b[l] > b[i] then
i := l;
end;

if i <> n then
begin
x := b[i];
b[i] := b[n];
b[n] := x;
HeapCorrect(b, Bound, i);
end;
end;

procedure HeapSort(var b : MyArray; n : Integer);
var
i, Bound, x : Integer;
begin
for i := (n + 1) div 2 downto 1 do
HeapCorrect(b, n, i);

Bound := n;
while Bound > 1 do
begin
x := b[1];
b[1] := b[Bound];
b[Bound] := x;
Bound := Bound - 1;
HeapCorrect(b, Bound, 1);
end;
end;


помогите разобраться с сортировкой. не могли бы вы написать комментарии к каждой строчке
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
31.05.2012, 15:12
Ответы с готовыми решениями:

Пирамидальная сортировка
Ребята , может кто поможет , очень срочно уже надо в Delphi запилить Вот задача : Дан одномерный...

Пирамидальная сортировка
Пытался сам написать код. Слишком сложно для меня. Так как начинаю только изучать Дел. Помогите с...

пирамидальная сортировка
помогите разобраться в алгоритме сортировки.Пытаюсь сделать на делфи,но не могу понять как...

Пирамидальная сортировка
Нужна помощь. Необходимо провести сортировку массива (8 рандомных элементов) методом пирамидальной...

Пирамидальная сортировка
необходимо добавить сортировку методом пирамиды вот сюдаunit Unit1; interface uses Windows,...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
31.05.2012, 15:12

Пирамидальная сортировка строк
Добрый вечер уважаемые! Есть код для пирамидальной сортировки обычных чисел. Подскажите пожалуйста...

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

Пирамидальная сортировка дробных чисел
Доброго времени суток!Помогите написать код,на основе данного,который будет сортировать ДРОБНЫЕ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru