|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.12.2006, 01:39 | #1 |
Пользователь
Регистрация: 24.12.2006
Сообщений: 33
|
Реализация сортировки Шелла
Есть небольшая программа, которая работает с несколькими структурами. В ней необходимо сделать сортировку дека вышеуказанным методом.Решается моя судьба...
Кто-нибудь сможет помочь выполнить эту небольшую часть моей программы. Могу выслать на мейл делфи-проект программы. PS Уважаемый модератор, переместите пожалуйста тему в соответсвующий раздел. Поздно заметил о его существовании. //Да ничего, бывает. Уже перемещено. PPS Залил наработанное - помогите подредактировать сортировку, чтобы заработала! Буду вам признателен. Последний раз редактировалось beginner; 24.12.2006 в 11:07. |
25.12.2006, 00:34 | #2 |
Пользователь
Регистрация: 24.12.2006
Сообщений: 33
|
Срочно нужна помощь! Горю с программой...
Все добавил. Спасибо, что сообщили... Последний раз редактировалось beginner; 25.12.2006 в 07:58. |
25.12.2006, 00:54 | #3 |
Форумчанин
Регистрация: 10.11.2006
Сообщений: 189
|
Я такого ещё не видел - просишь помощи, а на архив с программой пароль поставил
|
25.12.2006, 07:58 | #4 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Мда.. Значит так помощь нужна...
ЗЫ: Тратить 6 часов на взлом пароля мне не охота. |
25.12.2006, 15:29 | #5 |
Пользователь
Регистрация: 24.12.2006
Сообщений: 33
|
Я же уже выложил безпароля архив...
Очень сильно нужна помощь..всего лишь подкорректировать процедуру сортировки.. |
25.12.2006, 20:43 | #6 |
Регистрация: 20.12.2006
Сообщений: 6
|
Вот тебе сортировка Шелла:
procedure Shall; Var d, i, t : integer; k : boolean; { пpизнак пеpестановки } begin d:=N div 2; { начальное значение интеpвала } while d>0 do begin { цикл с yменьшением интеpвала до 1 } { пyзыpьковая соpтиpовка с интеpвалом d } k:=true; while k do begin { цикл, пока есть пеpестановки } k:=false; for i:=1 to N-d do begin { сpавнение эл-тов на интеpвале d } if A[i]>A[i+d] then begin t:=A[i]; A[i]:=A[i+d]; A[i+d]:=t; { пеpестановка } k:=true; { пpизнак пеpестановки } end; end; end; d:=d div 2; { yменьшение интеpвала } end; |
26.12.2006, 01:28 | #7 |
Пользователь
Регистрация: 24.12.2006
Сообщений: 33
|
Спасибо, я это нашел..делал по этому же алгоритму, но вот что-то не работает - наверное напутал что-то..сижу вот не могу сообразить.
|
24.05.2015, 23:47 | #8 | |
Новичок
Джуниор
Регистрация: 24.05.2015
Сообщений: 1
|
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачу в C++ на массивы + сортировка методом Шелла | Exact | Помощь студентам | 2 | 18.06.2009 14:44 |
Вывод сортировки | MaXiS | Общие вопросы Delphi | 5 | 19.05.2008 08:48 |
Сортировки в БД. | Шурик | БД в Delphi | 4 | 15.05.2007 17:45 |