选择结构case语句,Pascal暑假微课系列,第04课,在同时出现多个条件时，根据情况从中选择其一运行的语句。,分情况case语句,格式1：,case 表达式 of 常数表1：语句1； 常数表2：语句2； 常数表n：语句n； end；,格式2：,case 表达式 of 常数表1：语句1； 常数表2：语句2； 常数表n：语句n； else 语句n+1 end；,例一：,输入年、月，输出该月的天数,讨论：每年的1、3、5、7、8、10、12月，每月有31天； 4、6、9、11月，每月有30天； 2月，若是闰年有29天，平年有28天。,闰年是指年份能被4整除，但不能被100整除，或者年份能被400整除的年。,设：年year 月month 每月天数days,判断闰年表达式： (year mod 4=0) and (year mod 1000) or (year mod 400=0),例一：输入年、月，输出该月的天数,一级算法： 1.输入year,month 2.计算days 3.输出year,month,days,例一：输入年、月，输出该月的天数,二级求精： 1.输入year,month 2.计算days 根据month的值选择计算 1,3,5,7,8,10,12:days:=31 4,6,9,11: days:=30 2: if 闰年 then days:=29 else days:=28 3.输出year,month,days,例一：输入年、月，输出该月的天数,Program monthdays(input,output); var year,month,days:integer; begin read(year,month); case month of 1,3,5,7,8,10,12:days:=31; 4,6,9,11:days:=30; 2:if (year mod 4=0) and (year mod 1000) or (year mod 400=0) then days:=29 else days:=28 end; writeln(year=,year, month=,month, days=,days) end.,