Лабораторная работа 10 Задание

Работа добавлена на сайт samzan.net:

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

Задание. В целочисленном массиве А(10) найти максимальный и минимальный элементы и поменять их местами.

1.  Откроем новый проект.
2.  Из страницы Standard  поместим на  Form1 следующие компоненты:

                          

1.  С помощью Инспектора Объектов зададим в качестве значения для свойства  Text  компонент Edit1 пустую строку. Установим для левой кнопки значение свойства  Caption  равным «Ввод», а для правой – «Решение».
2.  В разделе interface вставим описание массива а и используемых переменных:

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

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

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

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

        момент создания формы. Размещение операторов в этом обработчике во

        многих случаях эквивалентно размещению операторов в секции    

        initialization модуля. Поместим там следующие строки:

 i:=0;

 ListBox1.Clear;

 ListBox2.Clear;

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

ListBox1.Items.Add (Edit1.Text);

I:=i+1;

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

Edit1.SetFocus;

1.  Активизируем кнопку «Решение» и в заготовку обработчика события    

    поместим следующий текст:

 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

  minA[K];

  imin:=k

  end;

 end;

a[imax]:=min;

a[imin]:=max;

for k:=1 to 10 do

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

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

   If  key = 13 then Button1.SetFocus

1.  Сохранить проект.
2.  Запустим программу. Для ввода целых чисел используем строку ввода

Edit. Ввод каждого числа завершаем нажатием кнопки Enter либо щелчком мыши  по кнопке «Ввод».

1. Тема работы проекта в
2. А г Тольятти
3. Арбатская. Человек в меховой шапке широко раскинувший руки затем воздевший их над головою стоя на переходн.html
4. Стиль это человек
5. варианта. Глагол во Future Simple используется- для предсказаний относительно будущего обычно с глаголами think.html
6. Пояснительная записка к курсовому проекту Проектирование промышленного здания Цех по ремонту агрега
7. Возникновение и развитие древнерусского государства в IX-XIIвв
8. тема которая предназначена для управления взаимодействием с клиентами
9. . Who is the story bout 2.
10. Монтень Мишель
11. Тема- Принципы КФ подхода к выбору ЛС для лечения воспалительных процессов
12. Рим
13. Об организации страхового дела в РФ ОМС ОПС и ОСАГО.
14. реферату Персонал підприємстваРозділ Економіка підприємства Персонал підприємства Класифікація і стру
15. 1Какую роль играет социальная норма в жизни человека Нормы ~ это определенные стандарты образцы этало
16. История болезни - Инфекционные болезни буллезно-геморрагическая рожа
17. Оценка эффективности стратегического планирования цели, методы
18. Статья- Особенности российской этики менеджмента
19. У меня мало времени
20. тематики рослин сучасна система рослинного світу

Материалы собраны группой SamZan и находятся в свободном доступе