QuickSort - PascalABC.NET - Киберфорум

PascalABC.NET

Форум программистов и сисадминов Киберфорум

Войти

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

Рейтинг 5.00/8:

@Евгений_228 0 / 0 / 0 Регистрация: 03.01.2017 Сообщений: 6

	QuickSort 11.01.2017, 20:15. Показов 1636. Ответов 1 Метки нет (Все метки) Дан массив целых чисел. Отсортируйте его в порядке неубывания спомощью методы быстрой сортировки. 0

Лучшие ответы (1)

Сообщение: #9995078

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

11.01.2017, 20:15

Ответы с готовыми решениями:

QuickSort
var a:array of integer; var i,j,n,buf,kl,f:integer; begin read(n); for i:=1 to n do read(a); kl:=a; j:=n; i:=0; ...

Сортировка Хоара (QuickSort)
Программа иногда работает правильно а иногда выдает ошибку - индекс выходит за границы массива. const n = 7; type ArrType =...

QuickSort: быстрая сортировка элементов (по методу Хоара)
Организуйте массив, состоящий из 20 различных целых чисел. После этого упорядочить отдельно чётные элементы (именно элементы, то есть по их...

Joy

2388 / 1300 / 1492

Регистрация: 29.08.2014

Сообщений: 4,665

12.01.2017, 05:40

Сообщение было отмечено Евгений_228 как решение

Решение

отсюда: http://pascalabcnet.github.io/... ogrammers/

Pascal
1
2
3
4
5
6
7
8
9
10
function QuickSort(a: sequence of integer): sequence of integer;
begin
  Result := a.Count = 0 ? a : QuickSort(a.Skip(1).Where(x->x<=a.First())) + a.First() + QuickSort(a.Skip(1).Where(x->x>a.First()));
end;  
 
begin
  var a := ArrRandom(20);
  a.Println;
  QuickSort(a).Println;
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

12.01.2017, 05:40

Помогаю со студенческими работами здесь

Не работает swap элементов через xor в рекурсии. Почему? (Procedure QuickSort)
type Arr = array of integer; procedure QuickSort(var a: Arr; Lo,Hi: integer); procedure Sort(l,r: integer); var...

QuickSort
Начал разбираться с сортировками и вот QuickSort меня озадачил. Дело в том что в интернете есть множество вариаций QuickSort'a в первую...

Quicksort
Дан массив, необходимо отсортировать его в порядке возрастания. Использую квиксорт, но в одном из тестов не проходит по времени (2с). ...

QuickSort
Не работает массив не могу понять как передать его в функцию. и объяснить мне быструю сортировку. #include <iostream> ...

QuickSort
Полазил по форуму, не нашел ни одного толкового кода для QuickSort на C++ Все никак не могу разобраться и написать нормальный код Если...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

Наверх