Создайте новый проект. Для этого выполните команду File/New/ Application

Сохраните код программы и проект под именами, например, Unit1.pas и Pr1.dpr. Для этого выполните команду File/Save all, предварительно создав папку ПР26_1, в которую вы будете записывать свои проекты.

Откомпилируйте и выполните «пустую» программу, созданную в п.1 – на клавиатуре нажмите кнопку F9. В результате компиляции создается exe файл, который можно будет запускать на выполнение.

Примечание Компиляцию можно выполнить еще двумя способами: a) выбрать команду основного меню Run/Run, b) щелкнуть «зеленый треугольник» на панели инструментов. На экране исчезнут все вспомогательные окна, у формы пропадет координатная сетка. Форма примет вид стандартного Windows-окна с заголовком Form1, со стандартными кнопками: свернуть, на весь экран, закрыть.

Закройте запущенную программу, щелкнув мышью на стандартной кнопке «Х». Снова на экране появляется инспектор объектов и редактор формы.

Закройте Delphi.

Загрузите Delphi.

Загрузите свой проект, выполнив команду File/Open Project и указав правильно имя (п. 2).  Повторите п. 3 и 4.

Задание 2: Разработайте приложение «Калькулятор».

Создайте новый проект. Для этого выполните команду File/New/ Application.

Сохраните код программы и проект под именами, например, Unit2.pas и Pr2.dpr.

3. Разместите на форме три компонента Edit, четыре метки Label из палитры компонентов standart и два компонента button. У компонента button1 изменить свойство Caption на «Очистить», а у компонента button2 изменить свойство Caption на «+».

Предварительный интерфейс проекта:

4. Дважды щелкните по кнопке «Очистить» и введите следующий код:

procedure TForm1.Button1Click(Sender: TObject);

Begin

Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:='';

Label1.Caption:='Операнд1';

Label2.Caption:='Операнд2';

Label3.Caption:='Результат';

Label4.Caption:='=';

end;

5. Дважды щелкните по кнопке «+» и введите следующий код:

procedure TForm1.Button2Click(Sender: TObject);

Begin

 Edit3.Text:= IntToStr(StrToInt(Edit1.Text) + StrToInt(Edit2.Text));

end;

6. Откомпилируйте и выполните проект. Нажмите кнопку ОЧИСТИТЬ, потом введите в окошки операндов числа и для вычисления результата нажмите кнопку +. Потом очистите данные и найдите сумму двух произвольных четырехзначных чисел.

7. Добавьте в проект кнопки -, *, / и дополните код для получения результатов основных результатов арифметических операций. Важно: операция деления всегда в программировании возвращает в качестве результата не целое число, а вещественное. Поэтому для деления пишем в коде функцию преобразования дробного числа в текст:

Edit3.Text: = FloatToStr(StrToFloat(Edit1.Text)/StrToFloat(Edit2.Text));

Вы создали собственный калькулятор. Поздравляем!!!

Если вы нажмете кнопки операций, а окошки операндов будут пусты, то приложение даст ошибку ввода данных. Избежать такой ситуации помогут нам разветвляющиеся алгоритмы, с которыми мы познакомимся на следующем занятии.

Выполняя вычисления, используем для ввода данных и отображения результатов следующие функции, работающие со строками Delphi:

функция IntToStr(N: Integer): String Преобразует целое число N в строку.

функция StrToInt(S: String): Integer Преобразует строку S в целое число.

функция FloatToStr(X: Extended): String Преобразует число с плавающей точкой X в строку.

функция StrToFloat(S: String): Extended Преобразует строку S в число с плавающей точкой.