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

жуй жвачку, жук!

Дата 10.6.2005, 14:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Нужен алгоритм сортировки шелла на паскале. Пожалуйста, помогите.

Fedor

Дата 10.6.2005, 16:41 (ссылка)

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

Загрузка ...

Днепрянин

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

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

http://algolist.manual.ru/sort/shell_sort.php

--------------------

Мы - Днепряне. Мы всех сильней.

Жуй жвачку жук!

Дата 11.6.2005, 11:32 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

там на си!

Fedor

Дата 11.6.2005, 13:10 (ссылка)

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

Загрузка ...

Днепрянин

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

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

Там в первую очередь описание алгоритма сортировки, имея который не сложно написать реализацию на Паскале.
Добавлено @ 13:15
Google!!!!!

http://valera.asf.ru/delphi/struct/sortir.html

Код


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; { конец сортировки Шелла }

Это сообщение отредактировал(а) Fedor - 14.6.2005, 22:04

--------------------

Мы - Днепряне. Мы всех сильней.

Romtek

Дата 14.6.2005, 21:14 (ссылка)

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

Загрузка ...

Бывалый

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

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

Fedor, замени < в исходнике на < .
smile

Это сообщение отредактировал(а) Romtek - 14.6.2005, 21:16

--------------------

Romiras HomeLab - материалы и статьи по разработке ПО, моделирование алгоритмов, обработка и анализ информации, нейронные сети, машинное зрение и пр.

Fedor

Дата 14.6.2005, 22:16 (ссылка)

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

Загрузка ...

Днепрянин

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

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

Упс.... Спасибо. smile

--------------------

Мы - Днепряне. Мы всех сильней.

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