Нахождение индекса в массиве случайных чисел
Цель работы - создать программу, которая находит индекс числа в массиве случайных чисел.
Описание плана разработки программы
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.
Вид проекта по действиям:
 |
