Урок 53-54. Алгоритми впорядкування одновимірних масивів: сортування методом вибору

Перегляньте презентацію

Практичне завдання

Увага! Під час роботи з комп'ютером дотримуйтеся правил безпеки та санітарно-гігієнічних норм.

Повторіть правила безпечної роботи за комп’ютером.

Завантажте і встановіть: Середовище програмування Лазарус (для тих, хто не завантажив)

Завдання 1. Впорядкувати масив X: array[1 ..10] of real; за зростанням: Х[1] < Х[2] <... <Х[10] через вибір найбільшого елемента.

• 1. Відкрийте вікно середовища Lazarus. 

  2. Розмістіть на формі:

     • два багаторядкових текстових поля заввишки 400 і з вертикальною смугою прокручування;

     • два написи: над першим багаторядковим текстовим полем з текстом Елементи масиву і над другим – з текстом Елементи за зростанням;

     • кнопку з текстом Сортувати.

  3. Створіть обробник події Click для кнопки і введіть у нього такий текст:

var X: array[1 ..10] of real; M, i, k: integer; C, Max: real;
begin
For i := 1 to 10 do
X[i] := StrToFloat(Memo1.Lines[i-1]); // формування одновимірного масиву X з 10 чисел
For k := 10 downto 2 do​
  begin
    М := 1; Max := Х[1];​ // М — номер Мах(Х[1..К])​
    For і := 2 to k do​
      If X[i] > Max
          Then begin​
                Max := X[i]; M := i;
                end; ​
    C := X[M]; X[M] := X[k]; X[k] := C; {перестановка X[K] і Х[М]}​
  end;​
For i := 1 to 10 do
  Memo2.Lines.Append(FloatToStr(X[i])); // виведення у друге багаторядкове поле елементи масиву Х
end;​

• 4. Запустіть проєкт на виконання.

  5. Уведіть у перше багаторядкове поле числа: 21; 27; 15; 20; 1; 29; 12; 18; 26; 2. Виберіть кнопку Сортувати. Проаналізуйте отриманий результат.

  6. Видаліть числа з першого багаторядкового поля і введіть інші: –16; 98; –43; 46; 0; 45; –1; 29; –2,67; 55. Виберіть кнопку Сортувати. Проаналізуйте отриманий результат.

  7. Видаліть числа з першого багаторядкового поля і введіть інші: 16; 98,28; 14; 0; 45; 1; 29; 2,67; 55; 10. Виберіть кнопку Сортувати. Проаналізуйте отриманий результат.

  8. Уведіть свій набір чисел до першого багаторядкового поля. Виберіть кнопку Сортувати. Проаналізуйте отримані результати.

  9. Зробіть скриншот виконаного завдання та надішліть його вчителю.

  10. Закрийте вікно виконання проєкту.

  11. Закрийте вікно середовища Lazarus.

Завдання 2. Впорядкувати масив a: array[0 ..5] of real; за зростанням: a[1] < a[2] <... < a[10] через вибір найменшого елемента.

1. Відкрийте вікно середовища Lazarus. 

2. Розмістіть на формі:

   • два багаторядкових текстових поля заввишки 400 і з вертикальною смугою прокручування;

   • два написи: над першим багаторядковим текстовим полем з текстом Елементи масиву і над другим – з текстом Елементи за зростанням;

   • кнопку з текстом Сортувати.

3. Створіть обробник події Click для кнопки і введіть у нього такий текст:
   var a: array [0..5] of real; i, j, nmin: integer; min: real;
   begin
     for i := 0 to 5 do
         a[i] := StrToFloat(Memo1.Lines[i]); // уведення значень елементів одновимірного масиву з 6 дійсних чисел
     for i := 0 to 4 do // 5 разів повторюємо
         begin
         min := a[i]; nmin := i; // перший елемент невпорядкованої поки що частини одновимірного масиву
                                               вважаємо найменшим і його номер – номером найменшого
         for j := i+1 to 5 do // переглядаємо елементи масиву, починаючи з наступного і до останнього, можливо
                                         серед них є менший, ніж той, який ми на даний момент вважаємо найменшим
                                         у невпорядкованій частині
             if a[j]<min then begin min := a[j]; nmin := j; end; // якщо зустрічається елемент, менший ніж той, який
                                         ми вважаємо найменшим у невпорядкованій частині масиву, він стає найменшим і
                                         його номер стає номером найменшого
         a[nmin] := a[i]; // на місце знайденого найменшого елемента невпорядкованої поки що частини
                                         одновимірного масиву ставимо перший елемент невпорядкованої частини масиву
         a[i] := min // на місце першого елемента невпорядкованої поки що частини одновимірного
                                         масиву ставимо знайдений найменший
         end;
     Memo2.Clear;
     for i := 0 to 5 do Memo2.Lines.Append(FloatToStr(a[i])); // виведення впорядкованого одновимірного масиву

4. Запустіть проєкт на виконання.

5. Уведіть у перше багаторядкове поле числа: 21; 27; 15; 20; 1; 29. Виберіть кнопку Сортувати. Проаналізуйте отриманий результат.

6. Видаліть числа з першого багаторядкового поля і введіть інші: –16; 98; –43; 46; 0; 45. Виберіть кнопку Сортувати. Проаналізуйте отриманий результат.

7. Видаліть числа з першого багаторядкового поля і введіть інші: 45; 1; 29; 2,67; 55; 10. Виберіть кнопку Сортувати. Проаналізуйте отриманий результат.

8. Уведіть свій набір чисел до першого багаторядкового поля. Виберіть кнопку Сортувати. Проаналізуйте отримані результати.

9. Зробіть скриншот виконаного завдання та надішліть його вчителю.

10. Закрийте вікно виконання проєкту.

11. Закрийте вікно середовища Lazarus.

Відео в допомогу

Виконайте завдання за підручником

"Інформатика, 9 клас" (Й.Я. Ривкінд та їнші):

• Прочитайте та розберіть теоретичний матеріал пункту 5.3 (стор. 258-262).

• Виконайте вправи 1, 2 (стор. 268).

Для моніторингу засвоєння знань пройдіть тестування

• https://vseosvita.ua/test/start/swu039