怎樣在DELPHI中編寫(xiě)計(jì)算公式的程序？Fund geta（E:extended:extendedvarA:extendedsum:extendedbeginA:=1sum:=1E:=？//assig

怎樣在DELPHI中編寫(xiě)計(jì)算公式的程序？

Fund geta（E:extended:extended

var

A:extended

sum:extended

begin

A:=1

sum:=1

E:=？//assign value first

對(duì)于a:=1 to a do//其中a是實(shí)際值，i、 e.多少次冪

begin

A:=A*e

sum：=A

end

result：=sum

end

procedure gety（）

var

e:擴(kuò)展

i:擴(kuò)展

X:擴(kuò)展

y:擴(kuò)展

TMP:擴(kuò)展

sum:擴(kuò)展

begin y:=1

TMP:=1

X:=？//給X賦值；

A:=geta（E）

對(duì)于I:=1 to B do//B也是一個(gè)實(shí)際值

begin

TMP:=sum

TMP:=TMP*x

sum:=TMP

end

y:=A*TMP

showmessage（floatostr（y））

end

functionGetStringBetween（constFullStr，StrLeftStrRight:字符串)：stringvari，n:integerbegini:=pos（StrLeft，F(xiàn)ullStr）length（StrLeft）n:=pos（StrRight，F(xiàn)ullStr）-length（StrLeft）-1結(jié)果：=copy（FullStr，i，n）end