Написать программу реализующую сортировку Шелла с шагами 9, 5, 3 и 1 на списке

@Vad1k · Регистрация: 25.09.2012

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

Написать программу реализующую сортировку Шелла с шагами 9, 5, 3 и 1 на списке [16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1].

@MrAleksej · 27.04.2013, 07:51

Если бы поискал в инете сначала - то сам бы нашел... Там все написано с пояснением, только для Turbo Pascal, хотя разницы никакой нет - код и для ABC подойдет..
http://abc.vvsu.ru/Books/ebook... rshela.htm

@Vad1k · 27.04.2013, 07:56 **[ТС]**

{ сортировка Шелла }

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
28
29
30
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 () do begin
item[j+k] := item[j];
j := j-k;
end;
item[j+k] := x;
end;
end;
end; { конец сортировки Шелла }

спасибо за помощь, но почему то эта программа не запускается в Pascal ABC; выдает ошибку и пишет неизвестное имя типа "DataArray" Что делать??

@Vad1k · 29.04.2013, 17:20 **[ТС]**

помогите с программой пожалуйста, что в ней не так? почему не работает??

@Puporev · 29.04.2013, 17:54

Напиши в начале, до процедуры

Pascal
1
2
type DataItem=integer;//здесь любой свой тип, например real
       DataArray=array[1..100] of DataItem;

Добавлено через 3 минуты
Здесь еще что-то в скобках пропущено

Pascal
1
while () do begin

А вообще если собираешься сортировать не список, а массив, то можешь посмотреть похожие темы внизу страницы

@Vad1k · 29.04.2013, 18:05 **[ТС]**

не могу понять что пропущено в скобках. может кто-нибудь знает что туда дописать?

@Puporev · 29.04.2013, 18:13

Там написано

Pascal
1
while (x<item[j]) and (j<count) do

смотри здесь
http://www.cyberguru.ru/pascal... page9.html

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Vad1k 0 / 0 / 1 Регистрация: 25.09.2012 Сообщений: 191

	Написать программу реализующую сортировку Шелла с шагами 9, 5, 3 и 1 на списке 27.04.2013, 07:39. Показов 1076. Ответов 6 Метки нет (Все метки) Написать программу реализующую сортировку Шелла с шагами 9, 5, 3 и 1 на списке [16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1]. 0

@MrAleksej 20 / 15 / 14 Регистрация: 05.12.2010 Сообщений: 256 Записей в блоге: 1
	27.04.2013, 07:51
	Если бы поискал в инете сначала - то сам бы нашел... Там все написано с пояснением, только для Turbo Pascal, хотя разницы никакой нет - код и для ABC подойдет.. http://abc.vvsu.ru/Books/ebook... rshela.htm 1

@Vad1k 0 / 0 / 1 Регистрация: 25.09.2012 Сообщений: 191
	29.04.2013, 17:20 [ТС]
	помогите с программой пожалуйста, что в ней не так? почему не работает?? 0

@Vad1k 0 / 0 / 1 Регистрация: 25.09.2012 Сообщений: 191
	29.04.2013, 18:05 [ТС]
	не могу понять что пропущено в скобках. может кто-нибудь знает что туда дописать? 0