Нахождение индекса в массиве случайных чисел
Цель работы - создать программу, которая находит индекс числа в массиве случайных чисел. Описание плана разработки программы 1. Открыть новый проект. 2. Разместить на форме экземпляры компонентов: Button, Edit, Label. 3. Выполнить следующие действия: Таблица 22.
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. Вид проекта по действиям:
|
