购物打折与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