Отсортировать массив по убыванию модифицированным методом HeapSort:
Пока длина сортируемого отрезка больше 10,использовать HeapSort (пирамидальная сортировка),
а когда длина сортируемого отрезка <= 10,то использовать пузырьковую сортировку.
Нужна процедура сортировки,спасибо заранее.
(надеюсь кто-нибудь знает,что такое HeapSort...)

tigra
Ну неужели трудно воспользоваться поиском? Оба варианта описаны в ФАКе:
Вот тут... (пункт 1 - "пузырек" и пункт 5 - "пирамида (HeapSort)")

Смотрела я поиск - нет там heapsorta. Heapsort и пирамида - это не одно и то же. К тому же зачем мне две сортировки по отдельности, мне сразу обе нужны

?

Ну так вместе, это что значит? и ту и другую..... одну вы нашли........

А что, лень вставить обе процедуры сортировок в свою программу и дописать всего одно условие:
if (длина массива>10) then Heapsort else BubbleSort ?

Респект от Клуба Ленивцев! :D
Почётный участник клуба AtosPoFiguSuperStar

а меня примете ?
А за флейм, модеров удаляют!
Xcuse :p2:

да да! HeapSort это улучшенная пирамида, только как ее написать я не знаю...


if (длина массива>10) then Heapsort else BubbleSort
да действительно..

tigra
Будьте внимательнее - в моем первом посте есть ссылка на реализацию пирамиды...

Улучшенную пирамиду можно здесь посмотреть (даже есть тест)

http://forum.pascal.net.ru/index.php?showtopic=1741&st=80