Сортировка. Усовершенствованные методы

@DevilAndEvil · Регистрация: 09.11.2018

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

Условие: Составить текст программы обработки одномерного массива (тип элементов массива выбирается в соответствии с вариантом), содержащий:
Тип эл. массива: integer. Диапазон: (-20, 30]. Метод сортировки: Шелла(по возрастанию). Метод поиска: последовательный.
1) Процедуру для ввода значений элементов массива с клавиатуры.
2) Процедуру для заполнения массива случайными числами в указанном диапазоне.
3) Процедуру для вывода элементов массива на экран.
4) Процедуру для поиска информации указанным способом.
5) Процедуру для сортировки элементов массива указанным способом.
Пожалуйста, помогите написать код программы. Названия процедур можете взять по своему усмотрению.
Вот мой код, там наверно проблема с выводом. Можете взять его и исправить или написать свой. Процедуры копировал здесь, на форуме.

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
program ShellSort;
type massiv=array[1..100] of integer;
var i,j,n,d,count,k,m:integer;
a:massiv;
 
procedure vvod(var k: integer; a:massiv);
var
  i: integer;
begin
  Write('Введите элементы ');
  ReadLn(k);
  for i := 0 to n - 1 do
    ReadLn(a[i]);
end;
 
 
 procedure RandomArray(a:massiv);
 begin
 randomize;
 a[i]:=random(50)-20;
 end;
 
 procedure Vivod(a:massiv);
 begin
 writeln('Массив: ',a[i]);
 end;
 
 procedure Poisk(a:massiv; m:integer);
 begin
 write('Введите искомый элемент: ');
 readln(m);
 if m<0 then
 writeln('Искомый элемент присутсвует')
 else
 writeln('Элемент отсутсвует');
 end;
 
 procedure Shell(a:massiv; n:integer);
begin
d:=n;
d:=d div 2;
while (d>0) do
begin
for i:=1 to n-d do
begin
j:=i;
while ((j>0) and (a[j]>a[j+d])) do
begin
count:=a[j];
a[j]:=a[j+d];
a[j+d]:=count;
j:=j-1;
end;
end;
 
 begin
 vvod(k,a);
 Vivod(a);
 Shell(n, a);
 writeln;
 Vivod(a);
 
 RandomArray(a);
 Vivod(a);
 Shell(0,n-1, a);
 writeln;
 Vivod(a);
 Poisk(m,a);
 Vivod(a);
 end.

@DevilAndEvil · 12.11.2018, 19:37 **[ТС]**

немного изменений

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure RandomArray(a:massiv);
begin
randomize;
for i:=1 to 10 do
a[i]:=random(50)-20;
end;
 
procedure Vivod(a:massiv);
begin
write('Массив: ');
for i:=1 to 10 do
writeln(' ',a[i]);
end;

Добавлено через 2 часа 21 минуту
Я думаю, лучше полностью переписать код программы.

@bormant · 14.11.2018, 18:45

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

Диапазон: (-20, 30]

Это означает [-19..30], следовательно:

Pascal
1
  a[i]:=-19+Random(50);

Чтобы иметь возможность вернуть массив из процедуры/функции, его туда нужно передавать при помощи var, иначе внутрь попадает не сам массив, а его копия

Pascal
1
procedure RandomArray(var a: massiv);

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

лучше полностью переписать код программы

Определимся с размером и типом массива, границами диапазона генерации:

Pascal
1
2
const n=10; a=-19; b=30;
type TVector = array [0..n-1] of Integer;

Выводить его будем так:

Pascal
1
2
3
4
5
procedure vWrite(v: TVector);
var i: Integer;
begin
  for i:=0 to n-1 do Write(' ',v[i]); WriteLn;
end;

Вводить его будем так:

Pascal
1
2
3
4
5
6
procedure vRead(var v: TVector);
var i: Integer;
begin
  Write('Введите ',n,' значений: ');
  for i:=0 to n-1 do Read(v[i]); {ReadLn;}
end;

Заполнять псевдослучайными числами так:

Pascal
1
2
3
4
5
procedure vRandom(var v: TVector);
var i: Integer;
begin
  for i:=0 to n-1 do v[i]:=a+Random(b-a+1);
end;

Сортировать будем так:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
procedure vShellSort(var v: TVector);
var i, j, t: Integer;
begin
  d:=n div 2;
  while d>0 do begin
    for i:=d to n-1 do begin
      j:=i; t:=v[i];
      while (j>=d) and (a[j-d]>t) do begin
        a[j]:=a[j-d]; Dec(j,d);
      end;
      a[j]:=t;
    end;
    d:=d div 2;
  end;
end;

Последовательный поиск:

Pascal
1
2
3
4
5
6
7
function vSearch(v: TVector; w: Integer): Boolean;
var i: Integer;
begin
  vSearch:=True;
  for i:=0 to n-1 do if v[i]=w then Exit;
  vSearch:=False;
end;

Примерный "скелет" программы:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  v: TVector;
  w: Integer;
begin
  Randomize;
  repeat Write('Ввести или сгенерировать? (1/0): '); Read(w);
  until w in [0,1];
  if w=1 then vRead(v) else vRandom(v);
  WriteLn('Исходный массив:'); vWrite(v);
  WriteLn('Сортировка:'); vShellSort(v); vWrite(v);
  repeat
    Write('Что найти: '); ReadLn(w); WriteLn(vSearch(v,w));
    repeat Write('Ещё? (1/0): '); ReadLn(w);
    until w in [0,1];
  until w=0;
end.

@DevilAndEvil · 14.11.2018, 20:06 **[ТС]**

Большое спасибо!

@DevilAndEvil · 18.11.2018, 15:42 **[ТС]**

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

while (j>=d) and (a[j-d]>t) do begin

Программа запускается, но жалуется на "Ошибка: 0 - выход за границы диапазона изменения индекса 1..10".
Код программы(изменил немного под себя):

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
program ShellSort;
const n=10;
type massiv=array[1..n] of integer;
var
v: massiv;
w,i,j,d,count,k,m:integer;
 
procedure vRead(var v: massiv); {Ввод с клавиатуры}
var i: integer;
begin
  Write('Введите ',n,' значений: ');
  for i:=1 to n do
  Read(v[i]);
end;
 
 
procedure vRandom(var v: massiv); {Рандомный ввод}
var i: integer;
begin
  for i:=1 to n do
  v[i]:=Random(50)-20;
end;
 
procedure vWrite(var v: massiv);  {Вывод}
var i: integer;
begin
  for i:=1 to n do
  write(' ',v[i]);
end;
 
 function vSearch(v: massiv; w: Integer): Boolean; {Поиск}
var i: Integer;
begin
  vSearch:=True;
  for i:=1 to n do
  if v[i]=w then
  exit;
  vSearch:=False;
end;
 
 
 
procedure vShellSort(var v: massiv);  {Сортировка}
var i, j, t: integer;
begin
  d:=n div 2;
  while d>0 do begin
    for i:=d to n do begin
      j:=i; t:=v[i];
      while (j>=d) and (v[j-d]>t) do begin
        v[j]:=v[j-d]; Dec(j,d);
      end;
      v[j]:=t;
    end;
    d:=d div 2;
  end;
end;
 
 
 
begin
  Randomize;
  repeat Write('Ввести или сгенерировать? (1/0): '); Read(w);
  until w in [0,1];
  if w=1 then vRead(v) else vRandom(v);
  Writeln('Исходный массив:'); vWrite(v);
  Writeln('Сортировка:'); vShellSort(v); vWrite(v);
  repeat
    Write('Что найти: '); ReadLn(w); WriteLn(vSearch(v,w));
    repeat Write('Ещё? (1/0): '); ReadLn(w);
    until w in [0,1];
  until w=0;
end.

@bormant · 18.11.2018, 16:09

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

Программа запускается, но жалуется на "Ошибка: 0 - выход за границы диапазона изменения индекса 1..10".

Это прямое следствие этого

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

Код программы(изменил немного под себя)

если точнее:

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

Pascal
type massiv=array[1..n] of integer;

Называется, найдите отличия в границах диапазона:

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

Pascal
type TVector = array [0..n-1] of Integer;

Добавлено через 7 минут
Изменили действительно немного -- точно меньше, чем необходимо.

@DevilAndEvil · 18.11.2018, 16:20 **[ТС]**

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

Изменили действительно немного -- точно меньше, чем необходимо.

Вернул почти всё обратно и теперь всё правильно работает. Ещё раз большое спасибо!

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@DevilAndEvil 1 / 1 / 1 Регистрация: 09.11.2018 Сообщений: 66
	14.11.2018, 20:06 [ТС]
	Большое спасибо! 0

Сортировка. Усовершенствованные методы

Решение