怎样在Dlphi中做加减成除运算 请发代码告诉我谢谢各位

Question

如图窗户宽X高Y！有Z个  
内长=x/2-40     
面积=XY
该怎么写代码啊

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,comobj, ExtCtrls, DB, ADODB;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    LabeledEdit1: TLabeledEdit;
    LabeledEdit2: TLabeledEdit;
    Button2: TButton;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  vScript: Variant;
  str:string;
begin
  str:=labelededit1.Text ;
  vScript:=CreateOleObject('ScriptControl');
  vScript.Language := 'JavaScript';
  str:=vScript.Eval(str);
  labelededit2.Text :=str;
end;procedure TForm1.Button2Click(Sender: TObject);
var
  str:string;
  result:real;
begin
  str:=labelededit1.Text ;
  with adoquery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select result='+str);
    Open;
    Result:=FieldByName('result').Value;
  end;
  str:=FloatToStr(Result);
  labelededit2.Text :=str;
end;
end.

Answer 2

如图窗户宽X高Y！有Z个   
内长=x/2-40      
面积=XY 
该怎么写代码啊
==============
var
x,y,z:real;//长,宽,高
nc,mj:real;//内长,面积
begin
x:=strtofloat(edit1.text);
y:=strtofloat(edit1.text);
z:=strtofloat(edit1.text);nc:=x/2-40;
mj:=x*y;end;

Answer 3

x:=strtofloat(edit1.text); 
y:=strtofloat(edit2.text); 
z:=strtofloat(edit3.text); 
就是获取长,宽,个数3个值

Answer 4

哪位大哥能为我做个简单的计算的程序发给我啊！我是想知道怎么做出来的！
长=x(自己输入)高=y(自己输入)
显示出来是：内长=x/2-40
          面积=xy
求哪位大哥帮我做下！谢谢了
用Delhpi做个给我

Answer 5

小弟我又遇到难题请各位大侠动动你们手指分分钟的事帮我个小菜鸟要想N小时的问题好吧！！！！！
比如：
有两个选择     三角形和正方形
我要分别计算他们的周长和面积，
如：（）  （）两个选择的地方，第1个选的是三角还是正方，第2个选的是周长或面积！
      点下1步
（）  （）2个是输入长和高的地方
再点   计算    来执行！
通过这个程序我想计算正方形的面积或周长
还是三角形的面积或周长都可以自己选！希望得到各位大哥帮忙！做个delphi软件发给我谢谢！！

Answer 6

不好意思！我主要是想知道Combobox控件下拉菜单的应用！ 
因为要输入的东西比较多的说！ 
就是（计算）按扭和Combobox控件下拉菜单里的内容的连接！第1个下拉菜单下有3角，正方，第2个下拉是面积和周长！ 
都选了才计算！ 
在form1里是选择的！ 
显示是在form2里！这个连接的问题，两个form的连接！

Answer 7

计算的东西弄那么麻烦干什么啊？
var
  a,b,c: Float;  //定义变量
begin
  a := StrToFloatDef(edit1.text,0);   //给变量赋输入值
  b := StrToFloatDef(edit2.text,0);
  ...
  Label1.Caption := '结果是：' + FloatToStr(输入公式);  //得出结果表达式
end;根据自己需要改改就可以了，见议楼主自己多动动手才好。