|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
30.10.2006, 14:10 | #1 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,608
|
визуализация алгоритма
перенесено со старого форума. сообщение от Sania.
Здраствуйте, помогите пожалуйста с графическим предтавлением работы алгоритма Шелла. Вот алгоритм Шелла: begin g:=trunc((n+1)/2); repeat i:=i-g; c:=True; repeat if a[j]<=a[j+g] then begin c:=False; end else begin t:=a[j]; a[j]:=a[j+g]; a[j+g]:=t; end; j:=j-1 until not((j>=0)and(C)); i:=i+1 until not (i<=n); g:=trunc(g/2); until not(g>0); end; Как модернизировать его чтобы выводился график с 33 опытами сортировки.Где ось Y:время, X:количество элементов. И вывод сред. арифм. времени. Буду очень признателен, т.к. pascal изучаю недавно, но вот с графиками и временем выполнения алгоритма ещё не сталкивался. перенесено со старого форума. сообщение от pascal65536. Для замера времени работы алгоритма нужна функция GetTime(h,m,s,hund) Пишешь простую функцию, например: Function Time:Longint; Var h, m, s, hund : Word; Begin GetTime(h,m,s,hund); Time := hund + s*100 + m*60*100 + h*60*60*100; end; Ловишь время до и после сортировки, разница и будет временем работы алгоритма. А график лучше строить в широком диапазоне, от, скажем 10 элементов массива, до самого большого, который только поместится в память. Разбей его на равные части, построй график и сравни на этих же размерах массива с другим алгоритмом сортировки. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
BASS Визуализация | Garacio_cain | Мультимедиа в Delphi | 2 | 14.08.2008 00:19 |
доработка алгоритма... | Sota | Помощь студентам | 2 | 13.06.2008 15:45 |
Непонятное поведение алгоритма | master_root | Общие вопросы Delphi | 3 | 11.06.2008 14:32 |
Сложность Алгоритма | PChEL@ | Помощь студентам | 3 | 26.05.2007 07:56 |
Изменения алгоритма | delphi_beginner | Общие вопросы Delphi | 2 | 13.05.2007 21:27 |