本文整理自网络,侵删。
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.
相关阅读 >>
Delphi2010新功能:tdirectory.getfiles 支持通配符
Delphi 使用泛型的 tarray 从动态数组中查找指定元素
更多相关阅读请进入《Delphi》频道 >>