Лабораторная работа
На тему: «Создание и обработка линейного массива. Использование компонента StringGrid для представления двумерных массивов в среде Delphi»
Задание 1. Создайте приложение, которое предлагает задать размер линейного массива, заполняет этот массив случайными целыми числами, выводит список элементов массива, вычисляет сумму всех элементов и количество положительных, определяет минимальный и максимальный элементы массива по выбору.
Решение:
Создайте папку для сохранения проекта «Массив1». Сохраните проект – Massiv. На форме разместите компоненты Label1,2 и Edit1,2 и кнопку Button1. Для свойства Caption кнопки задайте значение «Создать массив». Разместите на форме панель GroupBox1 и задайте значение «Определить», для свойства Caption.
В этой панели разместите компоненты CheckBox1,2,3,4, для свойства Caption которых задайте значения: «Минимальный элемент», «Максимальный элемент», «Сумма всех элементов», «Число положительных элементов», соответственно. Напротив них разместите компоненты Edit3,4,5,6. Если компоненты CheckBox не будут отображаться, то следует выделить панель GroupBox1 и выбрать в контекстном меню команду Control → Send to Back (Порядок → На задний план).
В нижней части формы разместите кнопку Button2 и задайте название – «Вычислить». Удалите текст Edit1,2,3,4,5,6 из соответствующих компонентов. Выровняйте компоненты на форме, как показано на рис. 4.1. Зафиксируйте положение компонентов на форме с помощью команды Edit>Lock Controls из главного меню.
Рис. 4.1 Пример формы проекта «Массив1»
Прежде чем создавать обработчики событий щелчка мышью по кнопкам, в разделе описания переменных необходимо объявить переменные целого типа N, I, где N – размер массива, а I – порядковый номер элемента массива, а также X – динамический массив целых чисел.
Var
Form1: TForm1;
N, I: integer;
X: array of integer;
{описание динамического массива целых чисел}
Примечание: динамические массивы отличаются от обычных статистических массивов тем, что для них не объявляется заранее длина – число элементов. При объявлении динамического массива место под него не отводится. Прежде чем использовать массив, надо задать его размер процедурой SetLength.
Для предупреждения ввода в окно Edit1 нечислового значения, используйте обработку события OnKeyPress для соответствующего компонента. Выполните это самостоятельно (см. лаб. раб. №3).
Для создания процедуры обработки события, создания массива целых чисел, выберите кнопку «Создать массив», затем на странице События сделайте двойной щелчок на пустом поле списка события OnClick. После этого отредактируйте процедуру в окне Редактора кода следующим образом:
Begin
Randomize;
N:= StrToInt (Edit1. Text); {число элементов массива}
SetLength (X, N); {задать массиву Х длину N}
Edit2. Text:= ‘»; {очистить окно Edit2}
For I:= 0 to N‑1 do
Begin
X[I]:= Round (Sin(Random(100))*100);
{присвоить элементу массива случайное значение}
Edit2. Text:= Edit2. Text + ‘» + IntToStr (X[I]);
{вывести элементы массива}
End;
End;
Обработку массива опишите в процедуре обработчика события щелчка мышью на кнопке «Вычислить». В окне Редактора кода в заготовку процедуры поместите описание локальных переменных следующее:
Var
Max, Min, Sum, CountPlus: integer;
где Max – максимальный элемент массива, Min – минимальный элемент массива, Sum – сумма всех элементов массива, CountPlus – количество положительных элементов массива. Текст процедуры обработки массива может быть записан следующим образом:
Begin
If CheckBox1. Checked then Min:= X[0];
Edit3. Text:= ‘»;
If CheckBox2. Checked then Max:= X[0];
Edit4. Text:= ‘»;
Sum:= 0;
Edit5. Text:= ‘»;
CountPlus:= 0;
Edit6. Text:= ‘»;
For I:= 0 to N‑1 do
Begin
If CheckBox1. Checked then
If Min > X[I] then Min:= X[I];
If CheckBox2. Checked then
If Max < X[I] then Max:= X[I];
If CheckBox3. Checked then
Sum:= Sum + X[I];
If CheckBox4. Checked then
If X[I] >0 then CountPlus:= CountPlus + 1;
End;
{вывод результатов обработки массива}
If CheckBox1. Checked then Edit3. Text:=IntToStr(Min);
If CheckBox2. Checked then Edit4. Text:=IntToStr(Max);
If CheckBox3. Checked then Edit5. Text:=IntToStr(Sum);
If CheckBox4. Checked then Edit6. Text:=IntToStr(CountPlus);
End;
Сохраните файлы проекта и программного модуля, запустите программу на выполнение, задавая различные значения числа элементов, убедитесь в правильной работе приложения.
Задание 2. Создайте приложение, которое выводит двумерный массив случайных целых чисел и определяет минимальный и максимальный элементы в этом массиве.
Решение:
1. Сохраните проект в папке «Массив2» с именем Massiv2 (файл модуля можно сохранить как Unit1).
2. Создайте форму «Обработка двумерного массива».
3. Выберите в палитре компонентов страницы Additional компонент StringGrid и разместите его в левом верхнем углу (см. рис. 5.1). Задайте для свойств ColCount (количество столбцов) и RowCount (количество строк) значение 6. Задайте для свойств FixedCols и FixedRows (количество фиксированных, непрокручиваемых столбцов и строк, используемых для размещения надписей номеров строк и столбцов).
Примечание: данный компонент представляет собой таблицу, содержащую строки. Таблица может иметь полосы прокрутки, причем заданное число первых строк и столбцов может быть фиксированным. Таким образом, можно задать заголовки столбцов и строк, постоянно присутствующие в окне компонента.
4. Справа от объекта разместите кнопку Button1 и задайте для нее свойство Caption значение «Заполнить». Ниже разместите панель GroupBox1 и присвойте значение «Определить». На данной панели разместите компоненты CheckBox 1,2 и назначьте свойству Caption значения «Минимальный элемент», «Максимальный элемент» соответственно. Затем справа разместите компоненты Edit 1,2 и кнопку с надписью «Вычислить». Выровняйте компоненты как показано на рис. 5.1.
5. Прежде чем создавать обработчики событий кнопок «Заполнить» и «Вычислить», следует добавить в раздел описания переменных данного модуля целочисленные переменные, предназначенные для хранения индексов массива.
Var
Form1: TForm1;
I, J: integer;
6. Создайте процедуру обработки события щелчка мышью на кнопке Button1, в которой сначала будет выполнена операция вывода номеров строк и столбцов, а затем ячейки StringGrid1 будут заполнены случайными целыми числами.
Рис. 5.1 Пример формы проекта «Массив2»
Примечание: при изучении языка TPascal вы использовали оператор with…do для сокращения записи при обращении к полям записей. Теперь можно применять этот оператор для обращения к свойствам и методам объекта. Это делается, чтобы избежать повторных ссылок на объект в последующих операторах. Например, вместо того чтобы, обращаясь к ячейки объекта StringGrid1 писать StringGrid1. Cells [I, J], удобнее использовать оператор with StringGrid1 do, в теле которого можно неоднократно обращаться к Cells [I, J], не упоминая имени объекта StringGrid1.
Процедура обработки события кнопки Button1:
Procedure TForm1. Button1Click (Sender: TObject);
{заполнение массива}
Begin
randomize;
With StringGrid1 do
Begin
I:= 0;
For J:= 1 to RowCount – 1 do {вывести номера строк}
Cells [I, J]:= IntToStr(J);
J:= 0;
For I:= 1 to ColCount – 1 do {вывести номера столбцов}
Cells [I, J]:= IntToStr(I);
End;
With StringGrid1 do {заполнение в таблице двумерного массива}
For I:= 1 to ColCount – 1 do
For J:= 1 to RowCount – 1 do
Begin
Cells [I, J]:= IntToStr (Round(Sin (Random(100))*100));
End;
End;
7. Создайте процедуру обработки массива для второй кнопки «Вычислить». Введите текст процедуры:
procedure TForm1. Button2Click (Sender: TObject); {обработка массива}
Var
min, max: integer;
Begin