Пример 2. Разработать инженерный калькулятор для выполнения четырех арифметических операций, вычисления синуса, косинуса, квадрата, квадратного корня, логарифма

Использованные компоненты:

Edit1 — для ввода первого числа; Edit2 — для ввода второго числа; Button1 — вызов процедуры сложения чисел; Button2 — вызов процедуры вычитания чисел; Button3 — вызов процедуры умножения чисел; Button4 — вызов процедуры деления чисел; Button5 — вызов процедуры вычисления синуса первого числа; Button6 — вызов процедуры вычисления косинуса первого числа; Button7 — вызов процедуры вычисления квадрата первого числа; Button8 — вызов процедуры вычисления квадратного корня первого числа; Button9 — вызов процедуры вычисления логарифма первого числа; Label1 — для вывода результата.

Рис. 10. Форма примера 2

Программный код

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Button2: TButton; Button3: TButton; Button4: TButton; Label1: TLabel; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure Button5Click(Sender: TObject); procedure Button6Click(Sender: TObject); procedure Button7Click(Sender: TObject); procedure Button8Click(Sender: TObject); procedure Button9Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm} procedure TForm1.Button1Click(Sender: TObject);begin Label1.Caption:= FloatToStr(StrToFloat(Edit1.Text) + StrToFloat(Edit2.Text));end; procedure TForm1.Button2Click(Sender: TObject);begin Label1.Caption:= FloatToStr(StrToFloat(Edit1.Text) - StrToFloat(Edit2.Text));end; procedure TForm1.Button3Click(Sender: TObject);begin Label1.Caption:= FloatToStr(StrToFloat(Edit1.Text) * StrToFloat(Edit2.Text));end; procedure TForm1.Button4Click(Sender: TObject);begin Label1.Caption:= FloatToStr(StrToFloat(Edit1.Text) / StrToFloat(Edit2.Text));end; procedure TForm1.Button5Click(Sender: TObject);beginLabel1.Caption:= FloatToStr(Sin(StrToFloat(Edit1.Text)));end; procedure TForm1.Button6Click(Sender: TObject);beginLabel1.Caption:= FloatToStr(Cos(StrToFloat(Edit1.Text)));end; procedure TForm1.Button7Click(Sender: TObject);beginLabel1.Caption:= FloatToStr(Sqr(StrToFloat(Edit1.Text)));end; procedure TForm1.Button8Click(Sender: TObject);beginLabel1.Caption:= FloatToStr(Sqrt(StrToFloat(Edit1.Text)));end; procedure TForm1.Button9Click(Sender: TObject);beginLabel1.Caption:= FloatToStr(Ln(StrToFloat(Edit1.Text)));end;end.