delphi case选择语句练习代码简化
var
month: Integer;
begin
Writeln('请输入对应的月份：');
Readln(month);
case month of
3,4,5: Writeln('春季');
6,7,8: Writeln('夏季');
9,10,11: Writeln('秋季');
1,2,12: Writeln('冬季');
else
Writeln('非法数字');
end;
Readln;
end.
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.034242868423462 seconds