Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.10.2006, 14:10   #1
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 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 элементов массива, до самого большого, который только поместится в память. Разбей его на равные части, построй график и сравни на этих же размерах массива с другим алгоритмом сортировки.
Alar вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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