В этом уроке мы научимся использовать математические операции в нашей программе, сделанной в среде Delphi.
Стоит напомнить что основными математическими операциями являются:
Сложение
Вычитание
Умножение
Деление
Простейший пример:
a:= (2*6)/3;
b:= 8+5-3;
Если конечно мы запустим проект, то мы не будем ничего наблюдать. Чтобы понять принципы, создадим простейший калькулятор.
Создание калькулятора
Создадим новый проект, кинем на форму Memo1, Edit1 и Edit2, 4 Button и Panel1.
Свойство Align Memo1 меняем на alClient, а Panel1 на alBottom.
На Panel переместим Edit1,Edit2, и 4 кнопки.
Далее все сделайте как на скриншоте:
Кликаем на Button1 — «+», и пишем вот такой код:
var
a: real;
b: real;
c: real;
res: double;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:= a+b;
Memo1.Lines.Add(Edit1.Text+’ + ‘+Edit2.Text+ ‘ = ‘+FloatToStr(c));
Все тоже самое и на последующих кнопках, только нужно изменить в строке с:= a+b математический знак на соответствующий.
Полный код:
procedure TForm2.Button1Click(Sender: TObject);
var
a: real;
b: real;
c: real;
res: double;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:= a+b;
Memo1.Lines.Add(Edit1.Text+’ + ‘+Edit2.Text+ ‘ = ‘+FloatToStr(c));
end;
procedure TForm2.Button2Click(Sender: TObject);
var
a: real;
b: real;
c: real;
res: double;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:= a-b;
Memo1.Lines.Add(Edit1.Text+’ — ‘+Edit2.Text+ ‘ = ‘+FloatToStr(c));
end;
procedure TForm2.Button3Click(Sender: TObject);
var
a: real;
b: real;
c: real;
res: double;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:= a*b;
Memo1.Lines.Add(Edit1.Text+’ * ‘+Edit2.Text+ ‘ = ‘+FloatToStr(c));
end;
procedure TForm2.Button4Click(Sender: TObject);
var
a: real;
b: real;
c: real;
res: double;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:= a/b;
Memo1.Lines.Add(Edit1.Text+’ / ‘+Edit2.Text+ ‘ = ‘+FloatToStr(c));
end;
end.
Вот и пример простейшего калькулятора)
Также есть и другие математические операции:
Abs Возвращает абсолютное значение аргумента (модуль)
Sin Возвращает синус аргумента. Аргумент необходимо указывать в радианах
Cos Возвращает косинус аргумента. Аргумент необходимо указывать в радианах
Exp Экспонента (e в степени аргумента)
Ln Возвращает натуральный логарифм аргумента
Sqr Возвращает квадрат аргумента
Sqrt Возвращает квадратный корень аргумента
Int Возвращает целую часть нецелочисленного аргумента
Frac Возвращает дробную часть нецелочисленного числа
Round Округление аргумента до ближайшего целого числа
Trunc Возвращает целую часть вещественного числа