Массивы - Разработка Windows-приложений в среде Borland Delphi

Цель работы Изучить различные алгоритмы сортировки списка. Закрепить навыки использования массивов данных и массивов объектов.

Пояснения к работе

Наиболее распространенным видом сортировки данных является упорядочивание массива - расположение записей сортируемого массива данных в порядке монотонного изменения некоторого ключевого признака. Сортировка данных позволяет сократить во много раз продолжительность решения задач, которые связаны с обработкой больших массивов информации. Смысл любой сортировки заключается в перестановке элементов таблицы в определенном заданном порядке. Упорядочивание осуществляется в процессе многократного просмотра исходного массива.

Сортировка простым выбором

    1. Начинаем сортировку с первого элемента i=1; 2. Найти максимальный элемент и его номер в массиве A1, A2,...AN 3. Поменять местами A1 и максимальный элемент AK; 4. перейти к следующему элементу i=i+1; 5. если рассмотрены не все N-1 элементы, то повторить с п. 2.

Пузырьковая сортировка (простой обмен)

    1. i=1; 2. Сравнить попарно и, при нарушении упорядоченности, поменять местами элементы AI и AI+1, AI+1 и AI+2,... AN-1 и AN 3. i=i+1 4. Если i<=n, то повторить с п.2.

Простые Вставки (добавление нового элемента в массив, не нарушая его упорядоченности)

    1. Задать значение X; 2. i=1; 3. Найти место для Х, когда выполняется AI<=x<= ai+1 ; 4. выполнить сдвиг элементов ai+1 ai+2 ... an вправо; 5. поставить значение х на нужное место (ai+1 =x).

Постановка Задачи: Разработать приложение, реализующее пузырьковую сортировку элементов одномерного массива. Предусмотреть визуализацию алгоритма сортировки через использование массива объектов. Объекты массива имеют различную высоту, каждая из которых соответствует значению элемента массива данных.

Порядок выполнения

1. Создать новый проект и установить на форме компоненты и изменить значения свойств в соответствии с таблицей:

Button1

Caption

Изменить

Top

220

Left

15

Button1

Caption

Сортировать

Top

220

Left

150

Timer1

Interval

0

Label1

Top

25

Left

30

Color

ClBlue

Width

15

Height

100

Name

Palka

Visible

False

2. Объявить массив данных и массив объектов:

Mas: Array[1..15] of Integer;

Zabor: Array[1..15] of TLabel;

A, b, i: Integer;

3. Для формы выбрать событие Create и ввести код:

For i:=1 to 15 Do Begin

Zabor[i]:= TLabel. Create(palka) ;

Zabor[i].Parent:= Form1;

Zabor[i].Left:=i*30;

Zabor[i].Top:=palka. Top;

Zabor[i].Visible:=true;

Zabor[i].Width:=palka. Width ;

Zabor[i].Height:=palka. Height ;

Zabor[i].Color:=palka. Color ;

End;

B:=0; //количество упорядоченных элементов

A:=1 ;//номер элемента, с которого начинается сравнение пар

4. Для кнопки Изменить ввести код:

Randomize;

For i:=1 To 15 Do

Begin

Zabor[i].Height:=random(200)+10;

Mas[i]:=zabor[i].Height ;

End;

5. Для кнопки Сортировать ввести код

Timer1.Interval:=1000;

6. Для таймера ввести код:

Var

C: integer;

Begin

For i:=a to 14 do

If mas[i]>mas[i+1] then

Begin

C:=mas[i];

Mas[i]:=mas[i+1];

Mas[i+1]:=c;

Zabor[i].Height:=mas[i];

Zabor[i+1].Height:=mas[i+1];

A:=i+1;

Exit;

End;

A:=1;

B:=b+1;

If b>14 then timer1.Interval:=0;

End;

    7. Проверить работу приложения. 8. Модернизировать приложение:
      - вывести сообщение об окончании сортировки; - создать еще один массив меток для вывода значений элементов массива; - добавить две радиокнопки и внести изменения в программу для выбора режима сортировки: по возрастанию и по убыванию.
    9. Результат показать преподавателю.

Задания для самостоятельного выполнения

Задание №1

Модернизировать разработанное приложение: первую половину массива сортировать по возрастанию, а вторую половину массива по убыванию.

Задание №2

Модернизировать разработанное приложение: ввести значение для дополнительного элемента массива и вставить его, не нарушая упорядоченности. Визуально новый элемент должен отличаться по цвету.

Задание №3

Разработать приложение, реализующее сортировку элементов одномерного массива Простым Выбором. Предусмотреть визуализацию алгоритма сортировки через использование массива объектов.

Задание №4

Разработать приложение, реализующее сортировку элементов массива объектов по цвету. Используйте функцию RGB(n1,n2,n3) для свойства Color, где n1, n2, n3 случайные числа от 0 до 255.

Кнопка Изменить должна переопределять цвет элементов массива объекта.

Задание №5

Разработать приложение, реализующее сортировку элементов массива объектов По Алфавиту значений свойства Caption. Кнопка Изменить должна переопределять значение свойства Caption (случайный символ: буква русского алфавита).

Контрольные вопросы

    1. Зачем нужна сортировка? 2. Какие виды сортировки бывают? 3. Какое основное требование предъявляется к сортировке?

ПРАКТИЧЕСКАЯ РАБОТА № 8

Похожие статьи




Массивы - Разработка Windows-приложений в среде Borland Delphi

Предыдущая | Следующая