Алгоритм сортировки слов по алфавиту

@fait218 · Регистрация: 04.03.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте! Очень надо,помогите пожалуйста, написала программы на паскале в асэмблере но на делфи дали трудную тему "Алгоритм сортировки слов по алфавиту" с использованием параллельного програмирования и 16 нитями. Очень нужна помощь, помогите пожалуйста. Вот что то пыталась из интернета искала:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure Sort(MyList: TstringList);
var
i,x:Integer;
begin
for i:=0 to (MyList.Items.Count-1) do
for x:=0 to (MyList.Items.Count-1) do
if (MyList.Items[x]<MyList.Items[i]) and (x>i) then
begin
MyList.Items.Insert(i, MyList.Items[x]);
MyList.Items.Delete(x+1);
end;
end;

Комментарий модератора

Теги кода добавлены модератором. По правилам форума, код должен быть оформлен соответствующими тегами. Для оформления кода Delphi следует выделить этот код и на панели редактирования сообщения нажать кнопку: "DELPHI".

@Alex_pac · 06.02.2012, 02:10

MyList.Sort;

@fait218 · 06.02.2012, 08:05 **[ТС]**

может кто помоч написать? я на окно мемо1 мемо2 и бутон скинула, не могу написать с параллельным программированием на 16 нитей(

@Mawrat · 06.02.2012, 09:03

Сообщение от fait218

не могу написать с параллельным программированием на 16 нитей(

Это нужно 16 сортировок параллельно выполнить? Откуда данные брать - из файлов? И куда делать вывод - 16 Мемо на форме? Как интерфейс должен выглядеть?
---
Класс TStringList уже имеет готовый метод для сортировки по алфавиту - об этом выше уже упомянул Alex_pac - это метод TStringList.Sort(). Если надо именно TStringList применять, то достаточно создать 16 потоков на экземплярах класса TThread и в их методах TThread.Execute() вызывать метод TStringList.Sort(). Но можно и самостоятельно сортировку реализовать.

@fait218 · 06.02.2012, 10:13 **[ТС]**

ну вот я сделала более простую сортировку без параллельного

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure TForm1.Button1Click(Sender: TObject);
var
Tstr:TStringList;
begin
Tstr:=TStringList.Create;
Tstr:=TStringList.Create;
Tstr.Delimiter:=' ';// определяем разделитель слов.это пробел
 Tstr.DelimitedText:=memo1.Text; // копируем текст из memo в  Tstr с разделение по строкам исходя из заданного Delimiter
 Tstr.Sort;// сортируем по алфавиту
 memo1.Clear;
 memo2.Text:=Tstr.Text; // копируем обратно в memo
Tstr.Free;
end;
 
end.

походу надо сделать в 1 мемо вбивать слова во втором чтобы он сортеровал от кнопки походу больше не надо. 16 нитей походу делать надо как мне объеснил 1 хороший человек
"проблема в том, что сортировку вот так вот просто не распаррелелить. как я сказал, можно делить интервал на равные части и порождать нить. чтобы 16 потоков (или нитей) породить, количество слов должно быть достаточно большим - штук 100 и т.п. иначе, это будет надуманно.
16 потоков будут порождены не одновременно, а поэтапно. на первом шаге - 2, на втором эти два породят каждый по два - 4, и т.д. 4-8, 8 - 16. 16 - 32 и так далее, пока не кончатся слова"
и меню я хотела сделать сверху слева там о программе и всё такое стереть с мемо1 что то типо токого хотя это в принцепи не важно, вот на счёт TThread он много говарил видимо надо через этот путь делать.

Добавлено через 26 минут
блин запуталась... (

@Mawrat · 06.02.2012, 11:06

Если надо сортировать 16 разных списков слов в 16-ти потоках. - Это сделать достаточно просто.

Но вот если надо сортировать один и тот же список слов с помощью 16-ти потоков - эта задача существенно сложнее. В этом случае я вижу, например, такой способ. - Выбираем сортировку вставками. Идёт перебор элементов от начала к концу списка. При этом область, в которой происходит поиск позиции вставки, располагается от начала списка до текущей позиции сортировки. Эта область вставки по мере сортировки постоянно увеличивается и в конце сортировки становится равной размеру списка (размер списка минус один). Вот, как раз, для поиска позиции вставки в этой области и можно применить несколько параллельных потоков.
Например, в начале сортировки используем 1 поток поиска позиции вставки. Когда текущая позиция сортировки достигает отметки в 2000 слов, то можно запустить уже второй поток. При этом, действия между потоками будут распределены так - первый поток ищет позицию вставки в области с индексами 1000..1999, второй поток ищет в области индексов: 1..999.
Когда позиция сортировки достигнет 3000 слов, то можно запустить третий поток. Потом, когда текущая позиция сортировки окажется равной 4000 слов - запускаем 4-й поток. И т. д. Т. е. мы делим всю область поиска вставки на количество потоков, распределяем диапазон индексов для потоков - какой поток в пределах каких индексов ищет позицию вставки.
---
fait218, уточни этот момент - как всё-таки надо делать - сортировать 16 разных списков 16-ю потоками или сортировать один список 16-ю потоками. Первый вариант решается достаточно просто. А второй - существенно сложнее.

@fait218 · 07.02.2012, 11:53 **[ТС]**

блин( всё печально я уточнила и надо делать вторым способом , я порылась , всётаки думала первый там как ты обьеснил по проще, но он сказал что делать надо вторым вариантом(

Добавлено через 3 часа 21 минуту
ёмаё всё напутала можно сделать и первым способом но я что то не могу там распараллелить (

Добавлено через 1 час 7 минут
Блин ребята помогите пожалуста а то у меня уже голова болит( честно запуталась теперь капец полный(

Добавлено через 18 часов 57 минут
ребят ну помогите пожалусто(

@perepe4a · 07.02.2012, 13:02

Как тебе помочь если ты сама не знаешь, что тебе надо.
Сортировка в 16 потоков это бред.

@Mawrat · 07.02.2012, 14:34

Да, больно уж большое количество потоков. 16 - это всё-таки перебор. Ну 2 или 3 потока для учебного задания. Но 16... - это всё-таки тяжёлый случай.

@perepe4a · 07.02.2012, 15:27

Переименуйте форум в "Я не ходил на пары. Сделайте мне курсовую".

Может 16 нитей это метод сортировки?

Вообще-то, оптимальным будет решение с 2-я потоками. Одни сортирует по первой букве, а второй по всей длинне слова (например перелом, переплавка).

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 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. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

@Alex_pac 1302 / 708 / 107 Регистрация: 25.05.2011 Сообщений: 2,158 Записей в блоге: 51
	06.02.2012, 02:10
	MyList.Sort; 0

@fait218 0 / 0 / 1 Регистрация: 04.03.2011 Сообщений: 90
	06.02.2012, 08:05 [ТС]
	может кто помоч написать? я на окно мемо1 мемо2 и бутон скинула, не могу написать с параллельным программированием на 16 нитей( 0

@Mawrat 13116 / 5897 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	06.02.2012, 11:06
	Если надо сортировать 16 разных списков слов в 16-ти потоках. - Это сделать достаточно просто. Но вот если надо сортировать один и тот же список слов с помощью 16-ти потоков - эта задача существенно сложнее. В этом случае я вижу, например, такой способ. - Выбираем сортировку вставками. Идёт перебор элементов от начала к концу списка. При этом область, в которой происходит поиск позиции вставки, располагается от начала списка до текущей позиции сортировки. Эта область вставки по мере сортировки постоянно увеличивается и в конце сортировки становится равной размеру списка (размер списка минус один). Вот, как раз, для поиска позиции вставки в этой области и можно применить несколько параллельных потоков. Например, в начале сортировки используем 1 поток поиска позиции вставки. Когда текущая позиция сортировки достигает отметки в 2000 слов, то можно запустить уже второй поток. При этом, действия между потоками будут распределены так - первый поток ищет позицию вставки в области с индексами 1000..1999, второй поток ищет в области индексов: 1..999. Когда позиция сортировки достигнет 3000 слов, то можно запустить третий поток. Потом, когда текущая позиция сортировки окажется равной 4000 слов - запускаем 4-й поток. И т. д. Т. е. мы делим всю область поиска вставки на количество потоков, распределяем диапазон индексов для потоков - какой поток в пределах каких индексов ищет позицию вставки. --- fait218, уточни этот момент - как всё-таки надо делать - сортировать 16 разных списков 16-ю потоками или сортировать один список 16-ю потоками. Первый вариант решается достаточно просто. А второй - существенно сложнее. 0

@fait218 0 / 0 / 1 Регистрация: 04.03.2011 Сообщений: 90
	07.02.2012, 11:53 [ТС]
	блин( всё печально я уточнила и надо делать вторым способом , я порылась , всётаки думала первый там как ты обьеснил по проще, но он сказал что делать надо вторым вариантом( Добавлено через 3 часа 21 минуту ёмаё всё напутала можно сделать и первым способом но я что то не могу там распараллелить ( Добавлено через 1 час 7 минут Блин ребята помогите пожалуста а то у меня уже голова болит( честно запуталась теперь капец полный( Добавлено через 18 часов 57 минут ребят ну помогите пожалусто( 0

@perepe4a 39 / 71 / 10 Регистрация: 03.02.2012 Сообщений: 362
	07.02.2012, 13:02
	Как тебе помочь если ты сама не знаешь, что тебе надо. Сортировка в 16 потоков это бред. 0

@Mawrat 13116 / 5897 / 1708 Регистрация: 19.09.2009 Сообщений: 8,809
	07.02.2012, 14:34
	Да, больно уж большое количество потоков. 16 - это всё-таки перебор. Ну 2 или 3 потока для учебного задания. Но 16... - это всё-таки тяжёлый случай. 0

@perepe4a 39 / 71 / 10 Регистрация: 03.02.2012 Сообщений: 362
	07.02.2012, 15:27
	Переименуйте форум в "Я не ходил на пары. Сделайте мне курсовую". Может 16 нитей это метод сортировки? Вообще-то, оптимальным будет решение с 2-я потоками. Одни сортирует по первой букве, а второй по всей длинне слова (например перелом, переплавка). 0