3) Компиляция и выполнение приложения

1. Создайте папку, в которую будет записываться проект;

2. Для сохранения проекта выполните команду File | Save Project as…

3. Откомпилируйте программу, выполнив команду Project | Build All Project.

4. Для запуска приложения выполните команду Run | Run.

Задания для самостоятельной работы

Добавьте к данному приложению две кнопки Button5 и Button6. С помощью кнопки Button5 выведите на экран целое от деления двух чисел (функция div). С помощью кнопки Button6 выведите на экран остаток от деления двух чисел (функция mod).

ЗАДАНИЕ 2. СОЗДАНИЕ ПРОГРАММЫ «КАЛЬКУЛЯТОР»

Создать приложение - калькулятор, выполняющее основные арифметические операции.

1) Последовательность действий по созданию интерфейса пользователя

1. Запустите Delphi. При запуске Delphi автоматически создается новый проект.

2. В свойстве Caption формы напишите название приложения «Калькулятор».

3. Перенесите на пустую форму, которая открылась вам, кнопку типа компонент Edit со страницы Standard палитры компонентов. Для этого выделите пиктограмму компонента и затем щелкните курсором мыши в нужном вам месте формы. На форме появится окно редактирования, которому Delphi присвоит имя по умолчанию – Edit1. Сотрите текст в свойстве Text компонента Edit1.

4. Перенесите на форму компонент Panel со страницы Standart палитры компонентов. Для этого выделите пиктограмму компонента и затем щелкните курсором мыши в нужном вам месте формы. На форме появится панель, которой Delphi присвоит имя по умолчанию – Panel1.

5. Разместите на панели 17 кнопок Button, как показано на рисунке 1.3.

У становите у всех кнопок свойство Caption, чтобы заголовок отображал назначение соответствующей кнопки.

6. Сохраните проект под именем Calc. Программному модулю присвойте имя Pcalc.pas

7. На этом формирование интерфейса программы «Калькулятор» завершено. Следующий этап заключается в программировании действий.

2) Последовательность действий по программированию событий

1. Прежде всего, надо определить глобальные переменные. Для этого в блоке var модуля Pcalc.pas добавьте следующие строки:

Var Form1:TForm1;

first, second: String;

c: Char;

где:

- переменная first хранит первый операнд,

- переменная second – хранит второй операнд,

- переменная с – будет использоваться для хранения типа операции (+, –, *, /).

2. При щелчке по цифровой клавише в окне ввода Edit1 должна высвечиваться соответствующая цифра. Программирование щелчка по цифровой клавише рассмотрим на примере клавиши «1»:

• Сделайте двойной щелчок мыши на кнопке с цифрой «1».

• В появившемся окне редактора кода наберите следующий код:

Edit1.Text := Edit1.Text+1;

Данная команда добавляет цифру «1» к уже введенным цифрам. Аналогичным образом запрограммируйте события, происходящие при нажатии остальных цифр и кнопки ввода десятичной точки.

2. При нажатии кнопки «С» (clear) следует очистить окно ввода. Для этого:

• Сделайте двойной щелчок мыши на кнопке с надписью «С».

• В появившемся окне наберите следующий код:

Edit1.Text := 

2. При нажатии кнопок со знаками (+, -, х, : ) необходимо запомнить первый операнд, очистить окно ввода Edit1 для ввода второго операнда и запомнить тип операции. Программирование щелчка по клавише операции рассмотрим на примере клавиши «+»:

• Сделайте двойной щелчок мыши на кнопке с операцией «+».

• В появившемся окне наберите следующий код:

first := Edit1.Text; {запоминание первого операнда}

Edit1.Text := ; {очистка окна ввода}

c := +; {запоминание типа операции}

2. При нажатии кнопки «=» следует выполнить вычисления. Для программирования операции вычисления результата выполните действия:

• Сделайте двойной щелчок мыши на кнопке с надписью «=».

• В появившемся окне сотрите команды begin и end и наберите код:

Var code: Integer; {в эту переменную записывается результат преобразования строки в число}

k1, k2: real; {k1- первый операнд; k2 – второй операнд}

begin

second := Edit1.Text; {Сохранение в переменной Second второго операнда}

Edit1.Text := ; {Очистка окна ввода}

first := Trim(first); {Удаление пробелов в перовом операнде}

Val(first,k1,code); {Преобразование первого операнда в числовую форму}

If code <> 0 {Проверка корректности преобразования}

then ShowMessage (Некорректный ввод числа)

else

{Если первый операнд введен корректно, обрабатывается второй операнд}

begin

second:= Trim(second); {Удаление пробелов во втором операнде}

Val(second,k2,code); {Преобразование первого операнда в числовую форму}

If code <> 0 {Проверка корректности преобразования}

then ShowMessage(Некорректный ввод числа)

else

{Выполнение запрограммированной операции и запись результата в окно ввода}

begin

Case C of

+:Edit1.Text := FloatToStr(k1+k2);

-:Edit1.Text := FloatToStr(k1-k2);

*:Edit1.Text := FloatToStr(k1*k2);

/:Edit1.Text := FloatToStr(k1/k2);

end;

end;

end;

end;

2. Откомпилируйте приложение и проверьте его работу