回 帖 发 新 帖 刷新版面

主题:[原创]请教各位大虾代码  咋写代码更好

当s1-s2<1000时 
    a=1+0.02
   当s1-s2<2000时 
    a=1+0.04
   当s1-s3000时 
    a=1+0.06
  当s1-s2<4000时 
    a=1+0.08
  当s1-s2<5000时 
    a=1+0.1
  当s1-s2<6000时 
    a=1+0.12
  当s1-s2<7000时 
    a=1+0.14
   .....
.......




回复列表 (共1个回复)

沙发

a:=a+0.02+ strtoint(inttostr((s1-s2) div 1000))*0.02


其中a 是浮点型
s1-s2是整形    不是的话round一下.

我来回复

您尚未登录,请登录后再回复。点此登录或注册