谁能在我编一个计算器呀我要代码！谢谢呀！在线等待。分不够再给了！

Question

谢谢呀，如果这不方便可以发我邮箱里
[email protected]
谢谢支持！

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls,math;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    StaticText1: TStaticText;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    SpeedButton5: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
statictext1.Caption:='+';
end;procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
statictext1.Caption:='-';
end;procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
statictext1.Caption:='*';
end;procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
statictext1.Caption:='/';
end;procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
statictext1.Caption:='pow';
end;procedure TForm1.SpeedButton6Click(Sender: TObject);
begin
statictext1.Caption:='sqrt';
end;procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
if statictext1.Caption='+' then
edit3.Text:=floattostr(strtofloat(edit1.Text)+strtofloat(edit2.Text));
if statictext1.Caption='-' then
edit3.Text:=floattostr(strtofloat(edit1.Text)-strtofloat(edit2.Text));
if statictext1.Caption='*' then
edit3.Text:=floattostr(strtofloat(edit1.Text)*strtofloat(edit2.Text));
if statictext1.Caption='/' then
edit3.Text:=floattostr(strtofloat(edit1.Text)/strtofloat(edit2.Text));
if statictext1.caption='pow' then
edit3.Text:=floattostr(power(strtofloat(edit1.Text),strtofloat(edit2.Text)));
if statictext1.Caption='sqrt' then
edit3.Text:=floattostr(sqrt(strtofloat(edit1.Text)));
end;end.