频道分类

DELPHI case选择语句练习代码简化

作者:admin 来源: 日期:2020/5/20 8:29:46 人气: 标签:

 
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.


上一篇:Delphi 世界时间转换下一篇:没有资料