ppt课件-几个基本概念的理解.pptVIP

打印某年某月有多少天。（提示：A、闰年的计算方法：年数能被4整除，并且不能被100整除；或者能被400整除的整数年份。） program day_case； var year,month,day:integer; beginreadln(year,month);case month of　1,3,5,7,8,10,12: day:=31; 4,6,9,11 : day:=30; 2: if (year mod 400=0) or (year mod 1000) and (year mod 4=0) then day:=29 else day:=28; end; writeln(‘day=’，day)；readln； end. Case 表达式 of 常量表1：语句1； …… 常量表n：语句n； [else 语句n+1] ;end; 格式说明：常量表为有序类型数据。表达式要与常量类型一致。 常量后的语句为一条语句。如果要完成多条语句功能，要将这些语句写成复合语句。 * * (year mod 4=0) and (year mod 1000 ) or (year mod 400=0) 16题 program qday; var year,month,d