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

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

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

Завдання 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]); 

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

Завдання 2

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

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