1. Использование компонента tListBox

1.Открыть новое приложение с помощью команды File| New Application.

2.Сохраните проект в вашем рабочем каталоге, выполнив команду меню File|Save Project As.

3.Из страницы Standard на Form1 поместить компоненты Edit1:TEdit; Button1, Button2:TButton, ListBox1,ListBox2:TListBox.

4.Установить значение свойства Text компонента Edit1 – пустая строка.

5.Установить для левой кнопки значение свойства Caption равным ‘Ввод’, а для правой- ‘Решение’.

6.В раздел interface модуля вставить описание массива и используемых переменных

a:array[1..10] of integer;

i,min,max,imin,imax:integer;

7.Выполнить двойной щелчок по форме Form1, в результате чего будет создана

заготовка события OnCreate для формы, возникающего в момент создания формы.

Размещение операторов в этом обработчике во многих случаях эквивалентно размещению операторов в секции initialization модуля. Поместить там следующие строки

i:=0;

ListBox1.Clear;

ListBox2.Clear;

8.Выполнить двойной щелчок по кнопке «Ввод» и в обработчик события OnClick поместим следующий код:

ListBox1.Items.Add(Edit1.Text);

i:=i+1;

a[i]:=StrToInt(Edit1.Text);

Edit1.SetFocus;

9.Выполнить двойной щелчок по кнопке «Решение» и в обработчик события OnClick поместим следующий код:

max:=a[1]; imax:=1;

min:=a[1]; imin:=1;

for i:=2 to 10 do

begin

if max<a[i] then

begin max:=a[i]; imax:=i end;

if min>a[i] then

begin min:=a[i]; imin:=i end;

end;

a[imax]:=min;

a[imin]:=max;

for i:=2 to 10 do

ListBox2.Items.Add(IntToStr(a[i]));

10.Для удобства работы с приложением создать обработчик события OnKeyDown для строки ввода Edit1, в котором при нажатии на клавишу Enter фокус ввода будет переводиться на кнопку «Ввод»:

if key=13 then Button1.SetFocus

11.Запустить программу. Для ввода целых чисел используем строку ввода Edit1. Ввод каждого числа завершаем нажав дважды клавишу Enter, либо нажав кнопку «Ввод».Введенные числа отображаются в первом списке. После нажатия на кнопку «Решение» получим результат во втором списке.

2. Использование компонента tComboBox

1.Открыть новое приложение с помощью команды File| New Application.

2.Сохраните проект в вашем рабочем каталоге, выполнив команду меню File|Save Project As.

3.Из страницы Standard на Form1 поместить компоненты Button1, Button2:TButton, ComboBox1,ComboBox2:TComboBox.

4.Установить свойство DropDownCount для компонентов ComboBox1 и ComboBox2 равным 10.

6. Установить значение свойства Text компонентов ComboBox1 и ComboBox2– пустая строка.

7.В раздел interface модуля вставить описание массива и используемых переменных

a:array[1..10] of integer;

i,min,max,imin,imax:integer;

8.Установить следующий обработчик события OnCreate для формы:

i:=0;

ComboBox1.Clear;

ComboBox2.Clear;

ComboBox1.TabOrder:=0;

9.Выполнить двойной щелчок по кнопке «Ввод» и в обработчик события OnClick поместим следующий код:

ComboBox1.Items.Add(ComboBox1.Text);

i:=i+1;

a[i]:=StrToInt(ComboBox1.Text);

ComboBox1.SetFocus;

10. Выполнить двойной щелчок по кнопке «Решение» и в обработчик события OnClick поместим следующий код:

max:=a[1]; imax:=1;

min:=a[1]; imin:=1;

for k:=2 to 10 do

begin

if max<a[k] then

begin max:=a[k]; imax:=k end;

if min>a[k] then

begin min:=a[k]; imin:=k end;

end;

a[imax]:=min;

a[imin]:=max;

for k:=1 to 10 do

ComboBox2.Items.Add(IntToStr(a[k]));

ComboBox2.DroppedDown:=true;

11. Для удобства работы с приложением создать обработчик события OnKeyDown для списка ComboBox1, в котором при нажатии на клавишу Enter фокус ввода будет переводиться на кнопку «Ввод»:

if key=13 then Button1.SetFocus

12.Запустить программу. Для ввода целых чисел используем список ComboBox1. Ввод каждого числа завершаем нажав дважды клавишу Enter, либо нажав кнопку «Ввод».Введенные числа отображаются в первом списке. После нажатия на кнопку «Решение» получим результат во втором списке.

Варианты заданий

1. Найти максимальный и минимальный элемент и вывести их в начале массива (первым и вторым элементом)

2. Найти максимальный и минимальный элемент и вывести их среднее значение в конце второго списка

3. Найти максимальный и минимальный элемент и поставить минимальный элемент на первое место, а максимальный на последнее, поменяв местами с первым и последним.

4. Найти максимальный и минимальный элемент и удалить их из списка

5. Найти максимальный и минимальный элемент и посчитать количество элементов, величина которых больше их среднего арифметического. Вывести результат на метку.

6. Найти максимальный и минимальный элемент и посчитать количество элементов, величина которых меньше их среднего арифметического. Вывести результат на метку.

7. Найти максимальный и минимальный элемент и заменит эти элементы и другие равные им средним значением минимального и максимального.

8. Найти максимальный и минимальный элемент и вывести только элементы, которые больше их среднего арифметического.

9. Найти максимальный и минимальный элемент и вывести только элементы, которые меньше их среднего арифметического.

10. Найти максимальный и минимальный элемент и вывести их в конце массива (два последних элемента)

11. Найти максимальный и минимальный элемент и заменить их средними значениями элементов между которыми они находятся. Если это крайние элементы, то заменить рядом стоящими.

12. Найти максимальный и минимальный элемент и поставить максимальный элемент на первое место, а минимальный на последнее, поменяв местами с первым и последним.

13. Найти максимальный и минимальный элемент и поставить минимальный элемент на первое место, а максимальный на последнее, поменяв местами с первым и последним.

14. Найти максимальный и минимальный элемент и уменьшить максимальный элемент на половину минимального, а минимальный увеличить на половину максимального.

15. Найти максимальный и минимальный элемент и заменить их разностью максимального и минимального, также поступить и элементами им равными.

16. Найти максимальный и минимальный элемент и вывести их в начале массива (первым и вторым элементом)

Лабораторная работа №3