Сортировка Шеллом ибо потом въебу |
code:
procedure sort_shell (var a:array of word);
var
bis,i,j,k,h:int64;
begin
bis:=high(a);
k:=bis shr 1;
While k>0 do
Begin
For i:=1 To bis-k do
begin
j:=i;
While (j>=1) And (a[j]>a[j+k]) do
begin
h:=a[j];
a[j]:=a[j+k];
a[j+k]:=h;
dec(j);
end;
end;
k:=k shr 1;
End;
End;
Рубрики: | Фаапще |
Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |