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

Задание 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 ;

--> ЧИТАТЬ ПОЛНОСТЬЮ <--