Задача «Простой калькулятор»

Мы уже достаточно знаем, для того, чтобы выполнить простое упражнение. Рассмотрим следующую задачу: Ввести 2 числа, вывести их сумму, разность, произведение.

Решение

1. Создадим новое приложение.

2. Разработаем форму для удобного ввода чисел. Для ввода чисел будем использовать интерфейсные компоненты типа TEdit, для отображения информации пользо­вателю - будем использовать компоненты типа TLabel. Создадим кнопку, по которой будет запускаться программный код, обеспечивающий решение задачи. Внешний вид формы может быть, например, следующий:

Где объекты Edit1 и Edit2 используются для ввода чисел, объекты Label3, Label4, Label5 используются для отображения результата. Единственной проблемой, с которой мы столкнемся при использовании интерфейсных компонентов, Delphi будет – преобразование строк в числа и наоборот. Дело в том, что свойство Text объекта Edit строкового типа, свойство Caption объекта Label – также строкового типа. Т.е. для выполнения вычислений и отображения результатов необходимо выполнять преобразования.

Нам понадобятся следующие функции преобразования:

Функция преобразования	Тип аргумента	Тип результата	Описание
IntToStr	Integer	String (строка)	Преобразует целое число в строку
StrToInt	String (строка)	Integer	Преобразует строку целое в целое число
FloatToStr	real	String (строка)	Преобразует дробное число в строку
StrToFloat	String (строка)	real	Преобразует строку в дробное число

3. Осталось написать обработчик события OnClick на кнопку «Вычислить»:

procedure TForm1.Button1Click(Sender: TObject);

var a,b:real;

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

{ сумма }

Label3.Caption:=' сумма '+FloatToStr(a+b);

{ разность }

Label4.Caption:=' разность '+FloatToStr(a-b);

{ произведение }

Label5.Caption:=' произведение '+FloatToStr(a*b);

end;

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

5. Сохранить приложение в отдельной папке.

6. Задание: добавить в приложение возможность расчета целой части и остатка от деления первого числа на второе. (Операции div и mod).

Встроенные функции

Встроенные функции это предопределенные функции, которые поставляются вместе с Delphi. Набор встроенных функций очень обширен. Существуют матема­тические функции, которые реализуют математические операции, например синус, косинус, функции для работы со строками, функции преобразования и т.д. Функция в языках программирования очень напоминает понятие функции, принятое в математике, т.е. функция имеет имя и список аргументов, независимых переменных. Функция может возвращать значение. Например, функция sin(x) вернет значение синуса, соответ­ствующее значению переменной x. Информацию по функциям в Delphi можно получить в Help’е, достаточно в программе ввести имя функции и нажать клавишу F1.

Вызов функции происходит по имени, в скобках указываются значения аргу­ментов. Функция всегда возвращает значение. Список функций, которые наиболее часто используются, приведен в таблице:

Функция	Тип аргумента	Тип результата
sin(X)	real	real
cos(x)	real	real
sqr(X) (возведение в квадрат)	real	real
sqrt(x) (корень квадратный)	real	real
abs(x) (абсолютная величина)	real/integer	real/integer
round(x) (округление)	real	integer
int(x) (целая часть)	real	real
frac(x) (дробная часть)	real	real
random(x) ( случайное число)	word	word(0..x)