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

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

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

Поможем написать учебную работу

Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.

Предоплата всего

от 25%

Подписываем

договор

Выберите тип работы:

Скидка 25% при заказе до 8.6.2025

Лабораторная работа № 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 Предмет і обєкти бухгалтерського обліку Визначення предмету БО
2. ТЕМА 9. ПОДАТОК ІЗ ДОХОДІВ ФІЗИЧНИХ ОСІБТестові питанняНеобхідно знайти єдину правильну відповідь
3. Тема- Личная гигиена и гигиена жилища беседадиалог Цель- научить детей некоторым правилам личной ги
4. адаптивна технологія вирощування ярого ячменю Ячмінь малоконкурентний до бур~янів тому його потріб
5. Классификация По спектру- Шумы подразделяются на стационарные которые характеризуется постоянств
6. тема- ее технический символический художественный смысл.
7. На тему- Малый бизнес как составная часть рыночной экономики Выполнил- Воробьева А
8. Малые тела Солнечной системы
9. тематическим занятиям физической культурой и спортом
10. КОНТРОЛЬНАЯ РАБОТА По дисциплине Экономика предприятия Вариант 11 Исполнитель-