Листинг программы
Сумма двух чисел:
procedure TForm1.summa(a,b:double);
var c:double;
begin
c:=a+b;
memo1.Lines.Add(FloatToStr(a)+'+'+FloatToStr(b)+' = '+FloatToStr(c));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
summa(strtofloat(edit1.text),strtofloat(edit2.text));
end;
Разность двух чисел:
procedure TForm1.raznost(a,b:double);
var c:double;
begin
c:=a-b;
memo1.Lines.Add(FloatToStr(a)+'-'+FloatToStr(b)+' = '+FloatToStr(c));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
raznost(strtofloat(edit1.text),strtofloat(edit2.text));
end;
Деление чисел:
procedure TForm1.delenie(a,b:double);
var c:double;
begin
c:=a/b;
memo1.Lines.Add(FloatToStr(a)+'/'+FloatToStr(b)+' = '+FloatToStr(c));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
delenie(strtofloat(edit1.text),strtofloat(edit2.text));
end;
Умножение чисел:
procedure TForm1.umnozhenie(a,b:double);
var c:double;
begin
c:=a*b;
memo1.Lines.Add(FloatToStr(a)+'*'+FloatToStr(b)+' = '+FloatToStr(c));
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
umnozhenie(strtofloat(edit1.text),strtofloat(edit2.text));
end;
Синус угла:
procedure TForm1.sinus(a:Double);
var c:Double;
begin
if ((a=0) or (a=180) or (a=360)) then
c:=0
else
if a=90 then
c:=1
else
if a=270 then
c:=-1
else
c:=sin(a*Pi/180);
memo1.Lines.Add(FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
sinus(StrToFloat(Edit1.Text));
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
Memo1.Text:=' ';
Edit1.Text:=' ';
Edit2.Text:=' ';
end;
Косинус угла:
procedure TForm1.cosinus(a:Double);
var c:Double;
begin
if ((a=0) or (a=360)) then
c:=1
else
if (a=180) then
c:=-1
else
if ((a=90) or (a=270)) then
c:=0
else
c:=Cos(a*Pi/180);
memo1.Lines.Add(FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
cosinus(StrToFloat(Edit1.Text));
end;
Тангенс угла:
procedure TForm1.tangens(a:Double);
var c:double;
begin
if ((a=0) or (a=180)) then
c:=0
else
if ((a=90) or (a=270)) then
memo1.Lines.Add(FloatToStr(a)+' - '+'не существует')
else
begin
c:=tan(a*Pi/180);
memo1.Lines.Add(FloatToStr(a)+' = '+FloatToStr(c));
end;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
tangens(StrToFloat(Edit1.Text));
end;
Котангенс угла:
procedure TForm1.cotangens(a:Double);
var c:double;
begin
if ((a=90) or (a=270)) then
c:=0
else
if ((a=0) or (a=180)) then
memo1.Lines.Add(FloatToStr(a)+' - '+'не существует')
else
begin
c:=cotan(a*Pi/180);
memo1.Lines.Add(FloatToStr(a)+' = '+FloatToStr(c));
end;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
cotangens(StrToFloat(Edit1.Text));
end;
Нахождение арксинуса:
procedure TForm1.arcsinus(a:double);
var c:Extended;
begin
c:=arcsin(a);
c:=RadToDeg(c);
memo1.Lines.Add(FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
arcsinus(StrToFloat(Edit1.Text));
end;
Нахождение арккосинуса:
procedure TForm1.arccosinus(a:double);
var c:Extended;
begin
c:=ArcCos(a);
c:=RadToDeg(c);
memo1.Lines.Add(FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
arccosinus(StrToFloat(Edit1.Text));
end;
Нахождение арктангенса:
procedure TForm1.arctangens(a:double);
var c:Extended;
begin
c:=arctan(a);
c:=RadToDeg(c);
Memo1.Lines.Add(FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
arctangens(StrToFloat(Edit1.Text));
end;
Нахождение гиперболического синуса:
procedure TForm1.gipsinus(a:double);
var c:double;
begin
c:=sinh(a);
memo1.Lines.Add(FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
gipsinus(StrToFloat(Edit1.Text));
end;
Нахождение гиперболического косинуса:
procedure TForm1.gipcosinus(a:double);
var c:double;
begin
c:=cosh(a);
memo1.Lines.Add(FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
gipcosinus(StrToFloat(Edit1.Text));
end;
Нахождение гиперболического тангенса:
procedure TForm1.giptangens(a:double);
var c:Extended;
begin
c:=tanh(a);
memo1.Lines.Add(FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
giptangens(StrToFloat(Edit1.Text));
end;
Нахождение двойного логарифма:
procedure TForm1.dv_logarifm(a:Double);
var c:Double;
begin
c:=Log2(a);
memo1.Lines.Add('log 2 '+FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button16Click(Sender: TObject);
begin
dv_logarifm(StrToFloat(Edit1.Text));
end;
procedure TForm1.Button17Click(Sender: TObject);
begin
Edit1.Text:=' ';
Edit2.Text:=' ';
end;
Нахождение десятичного логарифма:
procedure TForm1.logarifm10(a:Double);
var c:double;
begin
c:=Log10(a);
memo1.Lines.Add('log 10 '+FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button18Click(Sender: TObject);
begin
logarifm10(StrToFloat(Edit1.Text));
end;
Нахождение натурального логарифма:
procedure TForm1.nat_logarifm(a:Double);
var c:Double;
begin
c:=Ln(a);
memo1.Lines.Add('ln '+FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button19Click(Sender: TObject);
begin
nat_logarifm(StrToFloat(Edit1.Text));
end;
Нахождение логарифма числа по любому основанию:
procedure TForm1.logarifm_N(a,b:Double);
var c:Double;
begin
c:=Ln(a)/Ln(b);
memo1.Lines.Add('log '+FloatToStr(b) +' '+FloatToStr(a)+' = '+FloatToStr(c));
end;
procedure TForm1.Button20Click(Sender: TObject);
begin
logarifm_N(StrToFloat(Edit1.Text),StrToFloat(Edit2.Text));
end;
Возведение числа в произвольную степень:
procedure TForm1.stepen(a,b:double);
var c:double;
begin
c:=Power(a,b);
memo1.Lines.Add(FloatToStr(a)+' ^ '+FloatToStr(b)+' = '+FloatToStr(c));
end;
procedure TForm1.Button21Click(Sender: TObject);
begin
stepen(StrToFloat(Edit1.Text),StrToFloat(Edit2.Text));
end;