Нахождение индекса в массиве случайных чисел

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

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: Button, Edit, Label.

3. Выполнить следующие действия:

Таблица 22.

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Form1	Properties	Caption	Установка имени формы «Новый проект»
Events	OnCreate	Очистить значения свойств Text текстовых полей
Button1	Properties	Caption	Введите название «Очистить»
Events	Onclick	Очистить значения свойств Text текстовых полей
Button2	Properties	Caption	Введите название «Закрыть»
Events	Onclick	Обработка события закрытия формы
Button3	Properties	Caption	Введите название «Найти первый индекс»
Events	Onclick	Обработка события нахождения индекса введенного числа
Button4	Properties	Caption	Введите название «Ввести случайным образом»
Events	Onclick	Ввод массива случайным образом
Edit1	Properties	Caption	Очистить значение свойства Text
Edit2	Properties	Caption	Очистить значение свойства Text
Edit3	Properties	Caption	Очистить значение свойства Text

4. Введите переменные ik, k, i: integer; s: string; a: array [1..15] of integer.

5. Сохраните проект, запустите и протестируйте его.

Листинг программы

procedure Tform1.FormCreate(Sender: Tobject);

Begin

Edit1.Text:= ‘’;

Edit2.Text:= ‘’;

Edit3.Text:= ‘’;

end;

procedure Tform1.Button1Click(Sender: Tobject);

Begin

Edit1.Text:= ‘’;

Edit2.Text:= ‘’;

Edit3.Text:= ‘’;

end;

procedure Tform1.Button2Click(Sender: Tobject);

Begin

close;

end;

procedure Tform1.Button3Click(Sender: Tobject);

Begin

k:= StrToInt (Edit2.Text);

For i:= 1 to 15 do

if k = a[i] then ik:= i;

if ik = 0 then Edit3.Text:= ‘number ubsent’

else Edit3.Text:= IntToStr (ik);

end;

procedure Tform1.Button4Click(Sender: Tobject);

Begin

randomize;

s:= ‘’;

For i:= 1 to 15 do

Begin

a[i]:= random (26);

s:= concat (s, IntToStr (a[i]), #32);

end;

Edit1.Text:= s;

end;

end.

Вид проекта по действиям: