怎樣在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

過程gety（）

var

e:擴展

i:擴展

X:擴展

y:擴展

TMP:擴展

sum:在本文中，在本文中，我們得到：1]TMP:（1

]TMP:（1

TMP:（1

]TMP:（1

！]X:實際值為X；a:得到a[a（a（E）

！a:給出實際值的實際值是給X的實際值；a:a:得到a（a）（a）（a（a）（a（a（a）是最后一個）是一個樣本，這個是一個樣本，這個是一個樣本，這個是一個樣本，這個是一個樣本，這個是一個樣本，這個是一個樣本，這個是一個樣本目的，目的，目的，目的，目的，目的，目的，目的，目的，目的