delphi法计算 快速计算法

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