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

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

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

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

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

Таблица 23.

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

Вкладка окна Object Inspector

Имя свойства/ имя события

Действие

Form1

Properties

Caption

Установка имени формы "Поиск"

Events

OnCreate

Очистить значения свойств Text текстовых полей

Button1

Properties

Caption

Введите название "Очистить"

Events

Onclick

Очистить значения свойств Text текстовых полей

Button2

Properties

Caption

Введите название "Закрыть"

Events

Onclick

Обработка события закрытия формы

Button3

Properties

Caption

Введите название "Поиск"

Events

Onclick

Обработка события нахождения минимального и максимального чисел во введенном массиве

Edit1

Properties

Caption

Очистить значение свойства Text

Edit2

Properties

Caption

Очистить значение свойства Text

Edit3

Properties

Caption

Очистить значение свойства Text

4. Введите переменные

s, ss: string ; a: array [1..15] of integer; I, j, k, max, min, p, code : 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
s :=Edit1.Text;
s := concat (s, #32);
i := 0;

while Length(s) > 0 do begin i :=

p := pos (#32,s);
ss := copy (s,1,p-1);
Val (ss,k,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;
Практическая работа № 23 Находение минимального и максимального числа в массиве

Fhc 46.

Практическая работа № 22 Нахождение индекса в массиве случайных чисел || Оглавление || Практическая работа № 24 "Текущее время и текущая дата"


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



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

  • Июль
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс