Лабораторная работа №17.

Лабораторная работа №17.

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

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

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

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

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

Таблица 17.1

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Form1	Properties	Caption	Установка имени формы "Поиск"
Form1	Events	OnCreate	Очистить значения свойств Text текстовых полей
Button1	Properties	Caption	Введите название "Очистить"
Button1	Events	Onclick	Очистить значения свойств Text текстовых полей
Button2	Properties	Caption	Введите название "Закрыть"
Button2	Events	Onclick	Обработка события закрытия формы
Button3	Properties	Caption	Введите название "Поиск"
Button3	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;

Рис. 17.2