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

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

31.05.2012, 15:12. Просмотров 399. Ответов 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):

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

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

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

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

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

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

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