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

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

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

  • 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. Окно разработанной программы

 
Посмотреть оригинал
< Пред   СОДЕРЖАНИЕ   ОРИГИНАЛ     След >