delphi还有人用吗 怎样在DELPHI中编写计算公式的程序？

怎样在DELPHI中编写计算公式的程序？Fund geta（E:extended:extendedvarA:extendedsum:extendedbeginA:=1sum:=1E:=？//assig

怎样在DELPHI中编写计算公式的程序？

Fund geta（E:extended:extended

var

A:extended

sum:extended

begin

A:=1

sum:=1

E:=？//assign value first

对于a:=1 to a do//其中a是实际值，i、 e.多少次幂

begin

A:=A*e

sum：=A

end

result：=sum

end

procedure gety（）

var

e:扩展

i:扩展

X:扩展

y:扩展

TMP:扩展

sum:扩展

begin y:=1

TMP:=1

X:=？//给X赋值；

A:=geta（E）

对于I:=1 to B do//B也是一个实际值

begin

TMP:=sum

TMP:=TMP*x

sum:=TMP

end

y:=A*TMP

showmessage（floatostr（y））

end

functionGetStringBetween（constFullStr，StrLeftStrRight:字符串)：stringvari，n:integerbegini:=pos（StrLeft，FullStr）length（StrLeft）n:=pos（StrRight，FullStr）-length（StrLeft）-1结果：=copy（FullStr，i，n）end