• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

Питання

Repeat

Begin

Var

Const

Begin

Begin

Var

Const

SIZE=10;

а:array[1..SIZE] integer;

min:integer; { номер мінімального елемента в частині масиву від

i до верхньої межі масиву }

j:integer; { номер елемента, порівнюваного з мінімальним }

buf:integer; {буфер, що використовується при обміні елементів масиву}

i,k:integer;

// введення масиву

fori:=l toSIZE do

а[i]:=StrToInt(StringGridl.Cells[i-1,0]) ;

Iabel2.caption:='';

fori:=l toSIZE-1 do

{ пошук мінімального елемента в частині масиву від а[1] до а[SIZE]}

min:=i;

forj:=i+l toSIZE doif а[j]< а [min] thenmin:=j;

{ поміняємо місцями а [min] і а[i]}

buf:=a[i]; а[i]:=a[min]; а[min]:=buf;

{ виведення масиву }

for k:=l toSIZE do

Label2.caption:=label2.caption+' '+IntTostr(а[k]);

Label2.caption:=label2.caption+#13;

end;

Label2.caption:=label2.caption+#13+'Maccив відсортований.';

end;

3. Сортування обміном

В основі алгоритму лежить обмін сусідніх елементів масиву. Кожний елемент масиву, починаючи з першого, порівнюється з наступним, і якщо він більше наступного, то елементи міняються місцями. Таким чином, елементи з меншим значенням просуваються до початку масиву (спливають), а елементи з більшим значенням — до кінця масиву (тонуть). Тому даний метод сортування обміном іноді називають методом "бульбашки". Цей процес повторюється стільки раз, скільки елементів в масиві, мінус одиниця.

procedureTForm1.Button1Click(Sender: TObject);

SIZE=5;

а:array[1..SIZE] integer;

К:integer; // поточний елемент масиву

i:integer; // індекс для введення і виведення масиву

changed:boolean; // TRUE, якщо в поточному циклі були обміни

buf:integer; // буфер для обміну елементами масиву

// введення масиву

fori:=1 toSIZE do

а[i]:= StrToInt(StringGrid1.Cells[i-1, 0] );

label2.caption:='';

// сортування масиву

Changed:=FALSE; // хай в поточному циклі немає обмінів

for К:=l to SIZE-1 doif а[k]> а[k+l] then

begin// обміняємо к-й і k+1-й елементи

buf := а[k]; а[k]:= а[k+l]; а[k+l]:= buf;

changed := TRUE;

end;

// виведення масиву

fori:=l to SIZE do

Label2.caption:=label2.caption+' '+IntTostr(а[i]);

Label2.caption:=label2.caption+#13;

until notchanged; // якщо не було обмінів, значить

// масив відсортований

Label2.caption:=label2.caption +#13+'Maccив відсортований.';

end;

Слід зазначити, що максимальна необхідна кількість циклів перевірки сусідніх елементів масиву рівна кількості елементів масиву мінус один. Разом з тим можливо, що масив реально впорядкований за менше число циклів.

Тому в програму введена логічна змінна changed, якій перед виконанням чергового циклу привласнюється значення FALSE. Процес сортування (цикл repeat) завершується, якщо після виконання чергового циклу перевірки сусідніх елементів масиву (цикл for) жоден елемент масиву не був обмінений з сусіднім, і, отже, масив вже впорядкований.

Контрольні запитання

1. На які два види поділяють алгоритми за типом оброблюваної інформації?

2. Що таке сортування даних?

3. В яких структурах звичайно зберігаються сортовані дані?

4. Які ви знаєте алгоритми сортування?

5. Поясніть, як здійснюється сортування методом простого вибору?

6. Поясніть, як здійснюється сортування методом "бульбашки"?

Самостійна позааудиторна робота

Тема: 1.4 Основні алгоритми сортування

Читайте також:

1. IV. Питання самоконтролю.
2. V. Питання для самоконтолю
3. V. Питання туристично-спортивної діяльності
4. VI . Екзаменаційні питання з історії української культури
5. А.1 Стан , та проблемні питання застосування симетричної та асиметричної криптографії.
6. Актуальні питання управління земельними ресурсами та їх охорони
7. Аналогія права - вирішення справи або окремого юридичного питання на основі принципів права, загальних засад і значення законодавства.
8. Бесіда за запитаннями.
9. В лекції висвітлюються питання використання мережних структур, їх недоліки та переваги.
10. Виділення в природних комплексах незвичайних, унікальних ділянок і явищ і питання їх збереження.
11. Висновок з 1 питання
12. Відповідаючи на питання, будьте впевнені в своїй перемозі і все у вас вийде.

Переглядів: 809