Сортировка Шелла

@AHTOCuK · Регистрация: 08.10.2009

Студворк — интернет-сервис помощи студентам

Взял пример сортировки Шелла из этой темы. Вот так её сделал в программу, а она не сортирует, посмотрите плиз, что я неправильно сделал.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 uses crt;
 const step=8;
 type mas = array[1..8]of integer;
 var i, j, l, k, p, n : Integer;
     x : longint;
     s : array [1..step] of Integer;
     a : mas;
procedure shell( var a : mas );
 begin
  k := 1;
  for i := step downto 1 do
   begin
    s[i] := k;
    k := k * 2 + 1;
   end;
  end;
 begin
  clrscr;
  write('Введите 8 элементов массива');
  for i:=1 to step do
  readln(a[i]);
  clrscr;
  shell(a);
  for i:=1 to step do
  write(a[i],' ');
  readkey;
 end.

@Puporev · 03.03.2010, 09:59

AHTOCuK, А Вы еще раз прочитайте эту тему, Вы же только первые 6 строк из процедуры сортировки списали, там их еще наверное штук 20. Вы сортировку и не начинали делать.

@AHTOCuK · 03.03.2010, 12:41 **[ТС]**

А я и думал , как это он за пару строк сортирцет )

@Grach · 03.03.2010, 12:49

ух ты ж ежик там же 1004 строчки вот это алгоритм:О_о

@Puporev · 03.03.2010, 13:10

Сообщение от Grach

там же 1004 строчки

Да нет, читайте внимательно, там дальше другие сортировки идут.

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Puporev Почетный модератор 64316 / 47612 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	03.03.2010, 09:59
	AHTOCuK, А Вы еще раз прочитайте эту тему, Вы же только первые 6 строк из процедуры сортировки списали, там их еще наверное штук 20. Вы сортировку и не начинали делать. 1

@AHTOCuK 8 / 8 / 4 Регистрация: 08.10.2009 Сообщений: 103
	03.03.2010, 12:41 [ТС]
	А я и думал , как это он за пару строк сортирцет ) 0

@Grach 6 / 5 / 0 Регистрация: 26.02.2010 Сообщений: 47
	03.03.2010, 12:49
	ух ты ж ежик там же 1004 строчки вот это алгоритм:О_о 0