Алгоритми впорядкування елементів масиву(списку)

Про матеріал
Алгоритми впорядкування елементів масиву(списку). Розглянемо один із найпростіших методів сортування масиву - вибором максимального елемента
Перегляд файлу

9 клас – №58  Алгоритми впорядкування елементів масиву(списку)

 

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

Створіть у власній папці – папку Упорядкування масиву

 

Завдання 1

Створіть проєкт у якому масив із 10 дійсних чисел впорядковується за зростанням.

 На формі розташуйте два багаторядкових поля, для введення масиву з 10 дійсних чисел та виведення упорядкованого за зростанням масиву, при натисканні на кнопку Упорядкувати відбувається виведення упорядкованого масиву. Збережіть проект у папці з іменем Завдання 58.1, створеній у вашій папці.

  1.               Запрограмуйте клавішу Упорядкувати:

procedure TForm1.Button1Click(Sender: TObject);

var a: array[1..10] of real;

    i, j, nmin: Integer;

    min: real;

begin

for i := 1 to 10 do

        a[i] := StrToFloat(Memo1.Lines[i-1]);

    j := 0;

    for i := 1 to 10 do

        begin

          min := a[i];

          nmin := i;

          for j := i to 10 do

              if a[j] < min then

                 begin

                   min := a[j];

                   nmin := j;

                 end;

          a[nmin] := a[i];

          a[i] := min;

        end;

    for i := 1 to 10 do

        Memo2.Lines[i-1] := FloatToStr(a[i]); 

  1. Збережіть проект у своїй папці із іменем Завдання 58.1 та скомпілюйте програму. Проведіть тестування.

 

Завдання 2

Створіть проєкт у якому масив із 10 дійсних чисел впорядковується за спаданням.

Скористайтесь попереднім завданням.

 

docx
Додано
22 листопада 2021
Переглядів
1973
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку