DELPHI有关算法!

78hgdong 2004-12-10 02:58:49
订单数(ORDER) 余量(YU) 实数量(SUMO)
500以下 5 SUMO=?
500-1000 1% SUMO=?
1000-1500 0.85%不是 SUMO=?
1500-2000 0.8% SUMO=?
2000以上 每1000增加2个 SUMO=?

例如:
现有495个货号,实数量SUMO=495+5
有550个,SUMO=550+(550*1%)
...
...
...
请问用DELPHI怎样写上述的几个条件,当输入"订单数"后自动计算出"实数量".
...全文
115 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
surpassable 2004-12-10
  • 打赏
  • 举报
回复
up~~~~~~
78hgdong 2004-12-10
  • 打赏
  • 举报
回复
是啊,就是觉得这个条件:订单数2000以上 每1000增加2个 不知如何表达???
如:
输入的订单数是3005,则SUMO=3005+2=3007,以此类推.
JavaD 2004-12-10
  • 打赏
  • 举报
回复
case count of
0..500:result := count + 5;
501..1000:result := round(count*(1+1%));
1001..1500:result:= round(count*(1+0.85));
1501..2000:result:= round(count*(1+0.8));
else result:= (count div 1000) *2 + count;
end;
flyforlove 2004-12-10
  • 打赏
  • 举报
回复
对呀,段间有规律,判断订单数,判断属于哪个段,然后按照本段的规律计算就可以了。
lzy6204 2004-12-10
  • 打赏
  • 举报
回复
用SQL语句就可以实现
JavaD 2004-12-10
  • 打赏
  • 举报
回复
case count of
0..500:result := count + 5;
501..1000:result := round(count*(1+1%));
1001..1500:result:= round(count*(1+0.85));
1501..2000:result:= round(count*(1+0.85));
else result:= round(count*(1+0.8));
耙子 2004-12-10
  • 打赏
  • 举报
回复
这不就是一个典型的分段函数嘛。

16,748

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 语言基础/算法/系统设计
社区管理员
  • 语言基础/算法/系统设计社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧