Помощь в написании студенческих работ
Антистрессовый сервис

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

РефератПомощь в написанииУзнать стоимостьмоей работы

Разместите на форме экземпляры компонентов: 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. Окно разработанной программы.

Puc. 67. Окно разработанной программы.

Показать весь текст
Заполнить форму текущей работой