概述
购物打折与Delphi的Case<表达式> of 语句
procedure TForm1.Button1Click(Sender: TObject);
var
s,t:real; //s为折扣后金额，t为未打折金额
m:integer; //m为t的截取整数
begin
t:=strToFloat(edit1.text);
m:=trunc(t);
case (m div 100) of //m整除100的结果属于下列范围：
0:s:=t;
1,2:s:=t*(1-5/100);
3,4:s:=t*(1-10/100);
5,6,7,8,9:s:=t*(1-15/100);
else
s:=t*(1-20/100);
end;
edit2.Text:=FloatTostr(s);
end;
转载于:https://blog.51cto.com/tzlin/592472
最后
以上就是帅气网络为你收集整理的购物打折与Delphi的Case<表达式> of 语句(附:源码）的全部内容，希望文章能够帮你解决购物打折与Delphi的Case<表达式> of 语句(附:源码）所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复