2016 - 2024

感恩一路有你

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

浏览量:1356 时间:2021-03-14 10:48:01 作者:admin

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

delphi还有人用吗 delphi中json解析 delphi现在怎么样了

版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。