КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Sort(1,n);
BEGIN End Begin Repeat Begin End Begin End; Begin BEGIN End; Begin Begin Label 13; Var i,j:word; i:=l; j:=2*i; x:=a[i]; While j<=r Do If j<r Then If a[j]<a[j+1] Then j:=j+1; If x>=a[j] Then Goto 13; a[i]:=a[j]; i:=j; j:=2*i; 13: a[i]:=x End;{Sift} l:=(n div 2)+1; r:=n; While l>1 Do l:=l-1; Sift While r>1 Do x:=a[1]; a[1]:=a[r]; a[r]:=x; r:=r-1; Sift END;{Heap_Sort} Обменная сортировка разделением (быстрая сортировка). Выбирается любой произвольный элемент массива, далее массив просматривается слева направо до тех пор пока не будет найден элемент больший выбранного; а затем просмотрим его справа налево, пока не найдем элемент меньший выбранного. Найденные элементы поменяем местами. Затем продолжим процесс “просмотра с обменом”, пока два просмотра не встретятся где-то в середине массива. В результате массив разделится на две части: левую - с ключами меньшими выбранного элемента; и правую - с большими ключами. Описанный алгоритм применяется к обоим этим частям, в результате чего последовательность разбивается на 4 части. Алгоритм применяется к каждой четвертинке и т.д. Разделение заканчивается, когда в каждой части остается 1 элемент. В процедуре Quick_Sort вызывается процедура Sort, которая реализует алгоритм разделения и обмена для одной части массива. Procedure Quick_Sort(n:word;Var a:massiv); Procedure Sort(l,r:word); Var w,x:integer; i,j:word; i:=l; j:=r; x:=a[(l+r) div 2]; While a[i]<x Do i:=i+1; While a[j]>x Do j:=j-1; If i<=j Then w:=a[i]; a[i]:=a[j]; a[j]:=w; i:=i+1; j:=j-1 Until i>j; If l<j Then Sort(l,j); If i<r Then Sort(i,r); End;{Sort} END;{Quick_Sort}
Дата добавления: 2013-12-13; Просмотров: 270; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |