Сортування одновимірного масиву

метод вибору. Існує понад десять різноманітних методів сортування одновимірного масиву. Одні з них виконуються швидше, інші – повільніше, одні – більш складні за своєю логічною структурою, інші – простіші. Ми розглянемо один з методів сортування одновимірного масиву – метод вибору.

Нехай нам потрібно впорядкувати за зростанням одновимірний масив із шести елементів a[1]A[2]A[3]A[4]a[5]A[6] Знайдемо номер найменшого елемента таблиці 2.Поміняємо місцями перший елемент з найменшим елементом таблиці. 3.Розглянемо нову таблицю, яка міститиме попередню таблицю, без першого елемента a[1]A[2]A[3]A[4]a[5]A[6]

1.Знайдемо номер найменшого елемента таблиці 2.Поміняємо місцями перший елемент з найменшим елементом таблиці. 3.Розглянемо нову таблицю, яка міститиме попередню таблицю, без першого елемента A[2]A[3]A[4]a[5]A[6] a[1] A[3]A[4]a[5]A[6] a[1]a[2] 24

1.Знайдемо номер найменшого елемента таблиці 2.Поміняємо місцями перший елемент з найменшим елементом таблиці. 3.Розглянемо нову таблицю, яка міститиме попередню таблицю, без першого елемента A[4]a[5]A[6] a[1]a[2]A[3] 246 A[4]a[5]A[6] a[1]a[2] 24

1.Знайдемо номер найменшого елемента таблиці 2.Поміняємо місцями перший елемент з найменшим елементом таблиці. 3.Розглянемо нову таблицю, яка міститиме попередню таблицю, без першого елемента a[5]A[6] 2315 a[1]a[2]A[3]A[4] 2467 a[5]A[6] a[1]a[2]A[3] 246

1.Знайдемо номер найменшого елемента таблиці 2.Поміняємо місцями перший елемент з найменшим елементом таблиці. 3.Розглянемо нову таблицю, яка міститиме попередню таблицю, без першого елемента A[6] 23 a[1]a[2]A[3]A[4]A[5] a[5]A[6] 2315 a[1]a[2]A[3]A[4] 2467

Висновки Набір команд 1.Знайдемо номер найменшого елемента таблиці 2.Поміняємо місцями перший елемент з найменшим елементом таблиці. 3.Розглянемо нову таблицю, яка міститиме попередню таблицю, без першого елемента потрібно повторити стільки раз, скільки елементів таблиці - 1

Вигляд форми

Процедура сортування procedure TForm1.Button2Click (Sender: TObject); var a: array [1..10] of integer; i, j, min, nmin: integer; begin for i := 1 to 10 do a[i] := StrToInt (Memo1.Lines[i-1]); for i := 1 to 9 do begin min:= a[i]; nmin := i; for j:= i+1 to 10 do if a[j] < min then begin min:= a[j]; nmin := j; end; a[nmin]:= a[i]; a[i] := min; end; Memo2.Lines.Clear; for i := 1 to 10 do Memo2.Lines.Append (IntToStr (a[i])) end;

Завдання. Створити проект за яким відбувається сортування масиву з 10 дійсних чисел в порядку зростання їх елементів Опрацювати матеріал підручника на сторінках Повторити матеріал на сторінках підручника Підготуватися до тестування і практичної роботи