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


         

Находение минимального и максимального числа в массиве


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

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

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 := i+1;

        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;

 



Содержание раздела