Практичесl= 2;ая работа № 23

Пl= 8;актическая работа № 23

Нk= 2;ходение минимальноk= 5;о и максимальнl= 6;го числа в массиве

Цель работы - созk= 6;ать программу, которая находит минимальноk= 7; и максимальнl= 6;е числа в введенном м = 72;ссиве.

Опис= 072;ние плана разработки программы<= /b>

1.   &n= bsp; Открыть новый проек = 90;.

2.   &n= bsp; Размест&#= 1080;ть на форме экземпляры компонентоk= 4;: Button, Edit, Label.

3.   &n= bsp; Выполни&#= 1090;ь следующие действия:

Таблица 23.

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

Вкладк = 72; окна

Object Inspector

Имя свойства/

имя события

Действ = 80;е

Form1

Properties

Caption

Установ= 082;а имени формы «Поиск»

Events

OnCreate

Очистит= 100; значения свойств Text &= #1090;екстовых полей

Button1

Properties

Caption

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

Events

Onclick

Очистит= 100; значения свойств Text &= #1090;екстовых полей

Button2

<= /o:p>

Properties

Caption

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

Events

Onclick

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

Button3

Properties

Caption

Введите название «П&#= 1086;иск»

Events

Onclick

Обработ= 082;а события нахождения &#= 1084;инимальног= о и максимальн= 086;го чисел во введенном массиве

Edit1

Properties

Caption

Очистит= 100; значение свойства Text

Edit2

Properties

Caption

Очистит= 100; значение свойства Text <= /p>

Edit3

Properties

Caption

Очистит= 100; значение свойства Text <= /p>

4.      Введите= переl= 4;енные

s, ss: string ; a: array [1.= .15] of integer; I, j, k, max, min, p= , code : integer.

5.   &n= bsp; Сохрани&#= 1090;е проект, запустите и протестируl= 1;те его.

Листинг подпрогра&= #1084;м

procedure Tform1.FormCreate(Sender: T= object);

begin

Edit1.Text :=3D ‘’;

Edit2.Text :=3D ‘’;

Edit3.Text :=3D ‘’;

end= ;

procedure Tform1.Button1Click(Sender:= Tobject);

begin

Edit1.Text :=3D ‘’;

Edit2.Text :=3D ‘’;

Edit3.Text :=3D ‘’;

end= ;

procedure Tform1.Button2Click(Sender:= Tobject);

begin

close;

end= ;

procedure Tform1.Button3Click(Sender:= Tobject);

begin

&n= bsp; s :=3DEdit1.Text;

&n= bsp; s :=3D concat (s, #32);

&n= bsp; i :=3D 0;

&n= bsp; while Length(s) > 0 do

      begin

        i :=3D i+1;

        p :=3D pos (#32,s);=

        ss :=3D copy (s,1,p-1);

        Val (ss,k,code);

        a[i] :=3D k;

        delete(s,1,p);<= /p>
      end;

&n= bsp; max :=3D a[1];

&n= bsp; For j :=3D 1 to i do

         if max < a[j] then max :=3D a[j];

&n= bsp; min :=3D a[1];

&n= bsp; For j :=3D 1 to i do

        =     if min > a[j] then min :=3D a[j];

&n= bsp; Edit3.Text :=3D IntToStr (max);

&n= bsp; Edit2.Text :=3D IntToStr (min);

end;

=

=

=

=

=

=

Выделе = 85;ный объект	Вкладк = 72; окна Object Inspector	Имя свойства/ имя события	Действ = 80;е
Form1	Properties	Caption	Установ= 082;а имени формы «Поиск»
Events	OnCreate	Очистит= 100; значения свойств Text &= #1090;екстовых полей
Button1	Properties	Caption	Введите название «Очистить»
Events	Onclick	Очистит= 100; значения свойств Text &= #1090;екстовых полей
Button2 <= /o:p>	Properties	Caption	Введите название «Закрыть»
Events	Onclick	Обработ= 082;а события закрытия формы
Button3	Properties	Caption	Введите название «П&#= 1086;иск»
Events	Onclick	Обработ= 082;а события нахождения &#= 1084;инимальног= о и максимальн= 086;го чисел во введенном массиве
Edit1	Properties	Caption	Очистит= 100; значение свойства Text
Edit2	Properties	Caption	Очистит= 100; значение свойства Text <= /p>
Edit3	Properties	Caption	Очистит= 100; значение свойства Text <= /p>