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


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


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

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

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.

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

 






Начало  Назад  Вперед



Книжный магазин