Будь умным!


У вас вопросы?
У нас ответы:) SamZan.ru

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

Работа добавлена на сайт samzan.ru: 2015-07-10

Бесплатно
Узнать стоимость работы
Рассчитаем за 1 минуту, онлайн

Лабораторная работа № 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. Реферат з соціології Соціальна структура суспільства та соціальна стратифікація План 1
3. Классифик.методов Психологич.html
4. одна из важнейших функций менеджмента
5. а абсорбируются в дистальных отделах кишечника
6. дились экономические закону противоречия классовые конфликты необходимость диктатуры пролетари ата
7. Розрахунок захисту контактної мережі Для тягової мережі постійного струму
8. тематическим ожиданием и дисперсией то при неограниченном увеличении закон распределения суммы
9. Волинь Уласа Самчука художнiй лiтопис української iсторiї XX столiття
10. Практикум пропонується студентам КНТЕУ за напрямами 0501
11. .Вихідні дані. 1
12. Реферат- История и социально-политическое развитие Гаити
13. Курсовая работа- Особенности и пути формирования мотивационно-волевой сферы в спорте
14. Реферат- Платежный и торговый баланс
15. Ярославская государственная сельскохозяйственная академия УТВ
16. История политических учений 2й семестр 2013
17. по теме Озеленение городских территорий Автор работ
18. Как правило индивидуальные значения одного и того же признака у различных единиц совокупности неодинаковы
19. На тему- Анализ финансового состояния фирмы по курсу Финансовый менеджмент
20. Введение [3] Методы измерения [3