- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
SetTime(0,0,0,0); {засекаем время, т.е. устанавливаем системное время равным
0 ч 0 мин 0.00 сек }
{NumDist - число расматриваемых расстояний
i - индекс элемента массива расстояний,
количество групп всегда равно расстоянию d,
CurGroup - номер сортируемой группы}
For i:=1 to NumDist do
begin
d:=dist[i];
For CurGroup:=1 to d do
InsertSort(d,CurGroup);
end;
GetTime(hour,minute,second,hund); {Получаем время сортировки}
Говнокод для измерения времени работы алгоритма.
Источник - http://ru.wikipedia.org/wiki/%D0%A1%D0%BE%D1%80%D1%82%D0%B8%D1%80%D0% BE%D0%B2%D0%BA%D0%B0_%D0%A8%D0%B5%D0%BB% D0%BB%D0%B0
В лучших индусских традициях, виват!