打印某年某月有几天。输入:年、月,输出:天数。 (pascal)

//ls是c的、这个才是pascal的。

如果是闰年的话2月份是29天 平年的2月份是28天,其他情况下平年与闰年情况相同

IF只能针对一个条件实现两个个分支，CASE可以根据一个表达式的值实现多个分支。事实上几乎所有的CASE语句都可以用符合IF来实现，但是那样程序不直观，书写的内容也较多。相反，CASE语句不能取代各种IF语句

9、 打印某年某月有多少天。(提示:A、闰年的计算方法:年数能被4整除,并且不能被100整除;或者能被400整除的整数年份。B、利用MOD运算可以判断一个数能否被另一个数整除)10、编程模拟剪刀、石头、布游戏:用S表示剪刀,用R表示石头,用P表示布。规则是:剪刀剪布,石头砸剪刀,布包石头。游戏者分别把自己的选择输入...

var y,m,d:integer;lf:boolean;begin readln(y,m);if(y mod 4=0)and(y mod 100 <> 0)or(y mod 400 = 0) then lf:=true;if(m=4)or(m=6)or(m=9)or(m=11) then d:=30 else if(m=2) and lf then d:=29 else if(m=2) and not lf then d:=28 else d:=31;writ...

var y,m,d:integer;lf:boolean;begin readln(y,m);if(y mod 4=0)and(y mod 100 <> 0)or(y mod 400 = 0) then lf:=true;if(m=4)or(m=6)or(m=9)or(m=11) then d:=30 else if(m=2) and lf then d:=29 else if(m=2) and not lf then d:=28 else d:=31;writ...

b:boolean;begin assign(input,'day.in');assign(output,'day.out');read(y);read(m);read(d);if (y mod 100<>0) and (y mod 4=0) or (y mod 400=0) then b:=true else b:=false;case m of 1:writeln(d);2:writeln(31+d);3:if b=true then writeln(60+d) else ...

3.先判断月份是否二月（二月是特殊的月，闰年有29天，平年有28天），是就判断是否平年，是平年就输出28天，不是就输出29天，不是就判断月份是1,3,5,7,8,10,12这几个月，就输出31天，如果是4,6,9,11这几个月就输出30天。程序：Var i,j:integer;Begin readln(j,i);Case i of 1,3,5...

题目:输入某年某月某日,判断这一天是这一年的第几天? 1.程序分析:以3月5日为例,应该先把前两个月的加起来,然后再加上5天即本年的第几天,特殊 情况,闰年且输入月份大于3时需考虑多加一天。 2.程序源代码: main() { int day,month,year,sum,leap; printf("\nplease input year,month,day\n"); ...

即在“来年”,在“某月”,在“某年某月” (但在某年某月某日则用on),在四季,在第几周等都要用in。 例;in 1986 在1986年 in 1927 在1927年 in April 在四月 in March 在三月 in December 1986 1986年12月 in July l983 1983年7月 in spring 在春季 in summer 在夏季 in autumn ...