Отсортировать массив по не убыванию способом сортировки Шелла(Pascal, и элемениы массива
Отсортировать массив по не убыванию способом сортировки Шелла
(Pascal, и элемениы массива необходимо ввести вручную) хелп
Борис Цоконь
Необходимы данные
Арсений Финковский
Данные вводить тошно самому, просто сделаиь прогу которая сортирует
Игорек Овсянкин
необходимо*
Инна Говейко
Щас попоробую
Леша Монасзон
ну ты понял
2 ответа
Галка Дилюдина
Program SortByShell;
const
nn=100; // наибольшее количество частей в массиве
type
Mas=array[1..nn] of integer;
procedure SortShell(n:integer; var a:Mas);
var
i,d,t:integer;
k:boolean;
begin
d:=n div 2; // начальный шаг сортировки
while dgt;0 do begin
k:=true;
while k do begin
k:=false;
for i:=1 to n-d do begin
if(a[i]gt;a[i+d]) then begin
t:=a[i]; a[i]:=a[i+d]; a[i+d]:=t;
k:=true
end
end
end;
d:=d div 2
end
end;
var
i,n:integer;
v:Mas;
begin
Write('n='); Read(n);
Writeln('Вводите элементы массива');
for i:=1 to n do Read(v[i]);
SortShell(n,v);
for i:=1 to n do Write(v[i],' ');
Writeln
end.
Пример
n=15
Вводите элементы массива
-10 -7 4 -12 -26 4 34 -29 7 -28 13 -10 44 0 -46
-46 -29 -28 -26 -12 -10 -10 -7 0 4 4 7 13 34 44
const
nn=100; // наибольшее количество частей в массиве
type
Mas=array[1..nn] of integer;
procedure SortShell(n:integer; var a:Mas);
var
i,d,t:integer;
k:boolean;
begin
d:=n div 2; // начальный шаг сортировки
while dgt;0 do begin
k:=true;
while k do begin
k:=false;
for i:=1 to n-d do begin
if(a[i]gt;a[i+d]) then begin
t:=a[i]; a[i]:=a[i+d]; a[i+d]:=t;
k:=true
end
end
end;
d:=d div 2
end
end;
var
i,n:integer;
v:Mas;
begin
Write('n='); Read(n);
Writeln('Вводите элементы массива');
for i:=1 to n do Read(v[i]);
SortShell(n,v);
for i:=1 to n do Write(v[i],' ');
Writeln
end.
Пример
n=15
Вводите элементы массива
-10 -7 4 -12 -26 4 34 -29 7 -28 13 -10 44 0 -46
-46 -29 -28 -26 -12 -10 -10 -7 0 4 4 7 13 34 44
Погодаев
Константин
Спасибо, понял
Санек
Пожалуйста. А для "Спасибо" здесь кнопка есть.
Алексей Каприелов
Ну что то типо этого
var j,i,k,n:integer; m:array[1..1000] of integer;begin read(n,k); //Ввод элементов массива for i:=1 to n do read(m[i]); //Сортировка по возрастанию for i:=1 to k do for j:=i to k do if m[j]lt;m[i] then swap(m[i],m[j]); //Сортировка по убыванию for i:=k+1 to n do for j:=i to n do if m[j]gt;m[i] then swap(m[i],m[j]); //Вывод элементов массива for i:=1 to n do print(m[i]);end.
var j,i,k,n:integer; m:array[1..1000] of integer;begin read(n,k); //Ввод элементов массива for i:=1 to n do read(m[i]); //Сортировка по возрастанию for i:=1 to k do for j:=i to k do if m[j]lt;m[i] then swap(m[i],m[j]); //Сортировка по убыванию for i:=k+1 to n do for j:=i to n do if m[j]gt;m[i] then swap(m[i],m[j]); //Вывод элементов массива for i:=1 to n do print(m[i]);end.
Арина Хеладзе
Ну выглядет рабочей, благодарю
Egor Shumjak
Только это ни разу сортировка Шелла
Jelvira Covina
Сортировка Шелла - это сортировка с убывающим шагом. В этой программке о шаге вообщем не заикаются.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
Облако тегов