Создание и обработка линейного массива

Задание 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>LockControls из главного меню.

Рис. 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 CheckBox 1. 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 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 ;
Сохраните файлы проекта и программного модуля, запустите программу на выполнение, задавая различные значения числа элементов, убедитесь в правильной работе приложения.

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать полную версию