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

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

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

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

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

Таблица 22.

Выделенный объект

Вкладка окна 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

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.

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

Рис. 45.

Практическая работа № 22 Нахождение индекса в массиве случайных чисел

Практическая работа № 21 "Строковый калькулятор" || Оглавление || Практическая работа № 23 Находение минимального и максимального числа в массиве


Практикум по Delphi для решения прикладных задач



Новости за месяц

  • Сентябрь
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс