Вопрос по информатике:
Отсортировать массив по не убыванию методом сортировки Шелла
(Pascal, и элемениы массива нужно ввести вручную) хелп
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 15.11.2015 21:48
- Информатика
- remove_red_eye 7795
- thumb_up 16
Ответы и объяснения 2
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]
- 16.11.2015 17:27
- thumb_up 10
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 d>0 do begin
k:=true;
while k do begin
k:=false;
for i:=1 to n-d do begin
if(a[i]>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
- 17.11.2015 22:30
- thumb_up 44
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.