Сортировка случайных чисел методом Шелла

@Shevtsov13 · Регистрация: 26.12.2017

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

Выполнить сортировку одномерного массива А[20] случайных целых чисел по возрастанию методом Шелла. Вывести на экран все этапы сортировки. Pascal ABC. Помогите пожалуйста.

@Puporev · 11.03.2018, 12:20

Посмотрите похожие темы внизу страницы.

@Shevtsov13 · 11.03.2018, 12:51 **[ТС]**

Решение нашел, но я никак не могу разобраться, кто может помочь с комментариями к коду?

Pascal

uses crt;
const b:array[1..5] of byte = (9,5,3,2,1);
var a:array[0..20] of integer;
    n,i,j,k,gap,temp:integer;
    w:char;
begin
randomize;
n:=10;
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4)
 end;
writeln;
writeln;
for k:=1 to 5 do
 begin
  gap:=b[k];
  for i:=gap to n do
   begin
    temp:=a[i];
    j:=i-gap;
    while (temp<a[j]) and (j>=gap) do
     begin
      a[j+gap]:=a[j];
      j:=j-gap;
     end;
    a[j+gap]:=temp;
   end;
 
 end;
writeln('Отсортированный массив:');
for i:=1 to n do
write(a[i]:4);
readln
end.

@Puporev · 11.03.2018, 12:54

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

но я никак не могу разобраться,

Так почитайте про сортировку методом Шелла, никто Вам лекцию писать не собирается.

@Shevtsov13 0 / 0 / 0 Регистрация: 26.12.2017 Сообщений: 3
		1
	Сортировка случайных чисел методом Шелла 11.03.2018, 12:10. Показов 2455. Ответов 3 Метки нет (Все метки) Выполнить сортировку одномерного массива А[20] случайных целых чисел по возрастанию методом Шелла. Вывести на экран все этапы сортировки. Pascal ABC. Помогите пожалуйста. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.03.2018, 12:20	2
	Посмотрите похожие темы внизу страницы. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	11.03.2018, 12:54	4
	Сообщение от Shevtsov13 но я никак не могу разобраться, Так почитайте про сортировку методом Шелла, никто Вам лекцию писать не собирается. 0