Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
аида
#1

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

31.05.2012, 15:12. Просмотров 381. Ответов 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
Ребята , может кто поможет , очень срочно уже надо в Delphi запилить Вот задача : Дан одномерный массив.Все положительные элементы...

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

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

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

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

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

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

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

Рекурсия. Пример использования рекурсивных функций. Пирамидальная сортировка массива - Delphi
Нужно создать программу которая будет использовать рекурсию я пирамидальной сортировки массива. есть код на паскале сортировка массива...

Объединить три сортировки (выбором, Шелла, пирамидальная) в одну программу - Delphi
Здраствуйте знатоки!! Прошу помочь если не трудно объединить три сортировки (Выбором,Шелла,Пирамидальная) в одну программу Вот куски...

Сортировка слиянием. трехленточная сортировка. считывание из файла - Delphi
Сделал только без считывания из файла, как это сделать. Нужна помощь. У меня считывается с клавы и записывается массив. Нужно переделать...


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

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

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