Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Object Pascal: кроссплатформенные технологии > Алгоритм Шелла

Автор: Dima 4.7.2006, 12:15

Допоможіть розібратися з цим алгоритмом
smile

Автор: volvo877 4.7.2006, 12:28

Dima, что именно неясно?

Вот тут было кое-что:
http://forum.vingrad.ru/index.php?showtopic=55139&view=findpost&p=438011

Автор: Dima 4.7.2006, 12:41

Я знайшов одну прогу, але не можу зрозуміти, що таке DataArray?
Я думаю, що це масив даних, але якого типу і де він описується.

Код

procedure Shell(var item: DataArray; count:integer);
const
  t = 5;
var
  i, j, k, s, m: integer;
  h: array[1..t] of integer;
  x: DataItem;
begin
  h[1]:=9; h[2]:=5; h[3]:=3; h[4]:=2; h[5]:=1;
  for m := 1 to t do
    begin
  k:=h[m];
  s:=-k;
  for i := k+1 to count do
  begin
    x := item[i];
    j := i-k;
    if s=0 then
    begin
      s := -k;
      s := s+1;
      item[s] := x;
    end;
    while (x<item[j]) and (j<count) do
      begin
        item[j+k] := item[j];
        j := j-k;
      end;
      item[j+k] := x;
    end;
  end;
end; { конец сортировки Шелла }

Автор: volvo877 4.7.2006, 13:52

Ну, например, описать так:

Код

const n = 10;
type
  DataItem = integer;
  DataArray = array[1 .. n] of DataItem;

{ ... Здесь - процедура Shell }

{ Вызывать - так: }

const
  arr: DataArray =
    (1, 4, 7, 3, 8, 2, 9, 5, 6, 0);

begin
  { печатаем значения ПЕРЕД сортировкой ... }

  Shell(arr, n); { Сортируем массив Arr }

  { ... и печатаем его ПОСЛЕ сортировки }
end.

Хотя можно сделать и более универсально...

Автор: Dima 4.7.2006, 17:52

Дуже дякую, але я так і не зрозумів, що таке DataArray
smile

Добавлено @ 17:52
???? smile

Автор: volvo877 4.7.2006, 18:08

Цитата(volvo877 @ 4.7.2006, 13:52

)

type
DataItem = integer;
DataArray = array[1 .. n] of DataItem;