VPF::Алгоритм Шелла - Форум программистов

Dima

Дата 4.7.2006, 12:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 4.7.2006

Репутация: нет
Всего: нет

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

volvo877

Дата 4.7.2006, 12:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

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

Вот тут было кое-что:
Сортировка Шелла

Dima

Дата 4.7.2006, 12:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 4.7.2006

Репутация: нет
Всего: нет

Я знайшов одну прогу, але не можу зрозуміти, що таке 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

volvo877

Дата 4.7.2006, 13:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

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

Код

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.

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

Это сообщение отредактировал(а) volvo877 - 4.7.2006, 14:08

Dima

Дата 4.7.2006, 17:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 6
Регистрация: 4.7.2006

Репутация: нет
Всего: нет

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

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

volvo877

Дата 4.7.2006, 18:08 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

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

)

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »