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

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

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

Написать программу реализующую сортировку Шелла с шагами 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

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

@Vad1k 0 / 0 / 1 Регистрация: 25.09.2012 Сообщений: 191
		1
	Написать программу реализующую сортировку Шелла с шагами 9, 5, 3 и 1 на списке 27.04.2013, 07:39. Показов 936. Ответов 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	2
	Если бы поискал в инете сначала - то сам бы нашел... Там все написано с пояснением, только для 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 [ТС]	4
	помогите с программой пожалуйста, что в ней не так? почему не работает?? 0

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

	29.04.2013, 18:13