Нахождение индекса в массиве случайных чисел
Разместите на форме экземпляры компонентов: Button, Edit, Label. Обработка события нахождения индекса введенного числа. Сохраните проект, запустите и протестируйте его. Сохраните проект, запустите и протестируйте его. Введите переменные ik, к, i: integer; s: string; a: array of integer. Очистить значения свойства Text текстовых полей. Очистить значения свойств Text текстовых полей. Очистить… Читать ещё >
Нахождение индекса в массиве случайных чисел (реферат, курсовая, диплом, контрольная)
Цель работы — создать программу, которая находит индекс числа в массиве случайных чисел.
Описание плана разработки программы
- 1. Откройте новый проект.
- 2. Разместите на форме экземпляры компонентов: Button, Edit, Label.
- 3. Выполните действия, перечисленные в табл. 33.
- 4. Введите переменные ik, к, i: integer; s: string; a: array [1.15] of integer.
- 5. Сохраните проект, запустите и протестируйте его.
Выделенный объект. | Вкладка окна Object Inspector. | Имя свойства / имя события. | Действие. |
Forml. | Properties. | Caption. | Установка имени формы «Новый проект». |
Events. | OnCreate. | Очистить значения свойств Text текстовых полей. | |
Buttonl. | Properties. | Caption. | Введите название «Очистить». |
Events. | Onclick. | Очистить значения свойств Text текстовых полей. | |
Button2. | Properties. | Caption. | Введите название «Закрыть». |
Events. | Onclick. | Обработка события закрытия формы. | |
Button3. | Properties. | Caption. | Введите название «Найти первый индекс». |
Events. | Onclick. | Обработка события нахождения индекса введенного числа. | |
Button4. | Properties. | Caption. | Введите название «Ввести случайным образом». |
Events. | Onclick. | Ввод массива случайным образом. | |
Editl. | Properties. | Caption. | Очистить значение свойства Text. |
Edit2. | Caption. | Очистить значение свойства Text. | |
Edit3. | Caption. | Очистить значение свойства Text. |
Листинг программы
procedure TForml. FormCreate (Sender: TObject); begin
Editl.Text Edit2. Text :=.
Edit3.Text := ''; end;
procedure TForml. ButtonlClick (Sender: TObject); begin
Editl.Text := 11;
Edit2.Text := '';
Edit3.Text := ''; end;
procedure TForml. Button2Click (Sender: TObject); begin close; end;
procedure TForml. Button3Click (Sender: TObject); begin
к := StrToInt (Edit2.Text);
For i := 1 to 15 do if к = a[i] then ik := i; if ik = 0 then
Edit3.Text := 'number absent' else
Edit3.Text := IntToStr (ik);
end;
procedure TForml. Button4Click (Sender: TObject); begin
randomize; s := «;
For i := 1 to 15 do begin
a[i] := random (26); s := concat (Sj IntToStr (a[i])j #32); end;
Editl.Text := s; end;
Вид проекта по действиям показан на рис. 66.
Рис. 66. Окно разработанной программы
Нахождение минимального и максимального числа в массиве
Цель работы — создать программу, которая находит минимальное и максимальное числа во введенном массиве.
Описание плана разработки программы
- 1. Откройте новый проект.
- 2. Разместите на форме экземпляры компонентов: Button, Edit, Label.
- 3. Выполните действия, перечисленные в табл. 34.
- 4. Введите переменные s, ss: string; a: array [1.15] of integer; I, j, k, max, min, p, code: integer.
- 5. Сохраните проект, запустите и протестируйте его.
Таблица 34
Выделенный объект. | Вкладка окна Object Inspector. | Имя свойства / имя события. | Действие. |
Forml. | Properties. | Caption. | Установка имени формы «Поиск». |
Events. | OnCreate. | Очистить значения свойства Text текстовых полей. | |
Buttonl. | Properties. | Caption. | Введите название «Очистить». |
Events. | Onclick. | Очистить значения свойств Text текстовых полей. | |
Button2. | Properties. | Caption. | Введите название «Закрыть». |
Events. | Onclick. | Обработать события закрытия формы. | |
Button3. | Properties. | Caption. | Введите название «Поиск». |
Events. | Onclick. | Обработать события нахождения минимального и максимального чисел в массиве. | |
Editl. | Properties. | Text. | Очистить значения свойства Text. |
Edit2. | Очистить значения свойства Text. | ||
Edit3. | Очистить значения свойства Text. |
Листинг подпрограмм
procedure TForml. FormCreate (Sender: TObject); begin
Editl.Text.
Edit2.Text := 1';
Edit3.Text := 1'; end;
procedure TForml. ButtonlClick (Sender: TObject); begin
Editl.Text := 1';
Edit2.Text := 1';
Edit3.Text := 1'; end;
procedure TForml. Button2Click (Sender: TObject); begin close; end;
procedure TForml. Button3Click (Sender: TObject); begin
s := Editl. Text; s := concat (Sj #32); i := 0;
while Length (s) > 0 do begin
i := i + 1;
p := pos (#32, s);
ss := copy (s, 1} p — 1);
Val (ss, kj code); a[i] := k; delete (s, 1} p); end;
max := a[1];
For j := 1 to i do if max < a[j] then max := a[j]; min := a[1];
For j := 1 to i do if min > a[j] then min := a[j];
Edit3.Text := IntToStr (max);
Edit2.Text := IntToStr (min); end;
Puc. 67. Окно разработанной программы.