Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Лабораторная работа _1

.doc
Скачиваний:
12
Добавлен:
11.04.2015
Размер:
25.09 Кб
Скачать

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

Создание простейшего Windows-приложения в Delphi. Состав проекта.

Предварительная подготовка: В рабочей папке создать папку с именем «Арифметические действия».

  1. Изменить название формы (установить свойство Caption равным “Арифметические действия сложения и вычитания”).

  2. Поместить на форму компонент TGroupBox. Установить свойство Caption равным “Окно ввода”. Поместить в TGroupBox две метки с именами «Число 1» и «Число 2» и два компонента TЕdit. Удалить все символы из свойства Text в обоих окнах.

  3. Поместить на форму второй компонент TGroupBox. Изменить его свойство Caption по образцу. Согласно образцу добавить новые компоненты и изменить их свойства.

  4. Добавить две кнопки (компонент TButton ) с соответствующими заголовками.

  5. Для кнопки «Выход» по двойному щелчку ввести следующий код:

Application.Terminate;

  1. Для кнопки «Готово» по двойному щелчку ввести следующий код:

begin

a:=StrToFloat(Edit1.Text);//Чтение свойства Text в окне

b:=StrToFloat(Edit2.Text);//редактирования и перевод в

//формат вещественного числа

c:=Plus(a,b);

d:=Minus(a,b);

Edit3.Text:=FloatToStr(c);//Перевод вещественного типа в

Edit4.Text:=FloatToStr(d);//тип String и запись в окна

// редактирования

end;

  1. Добавить в проект модуль пользовательских функций Unit2 (Файл/Создать/Модуль). Описать две функции сложения и вычитания двух чисел с именами Plus и Minus, а также тип переменных a,b,c,d.

  2. В модуль Unit1 к списку используемых модулей добавить модуль Unit2.

  3. Запустить приложение на выполнение, используя пункт меню Выполнить/Выполнить, либо по клавише F9, либо по «быстрой кнопке».

  4. В папке «Арифметические действия» сохранить оба модуля и файл проекта. Просмотреть содержимое папки «Арифметические действия». Отсортировав содержимое папки по типу, изучить состав проекта.