delphi还有人用吗 怎样在DELPHI中编写计算公式的程序?
怎样在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现在怎么样了
版权声明:本文内容由互联网用户自发贡献,本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。