打印某年某月有几天.输入:年、月,输出:天数.(pascal)
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/30 02:27:15
打印某年某月有几天.输入:年、月,输出:天数.(pascal)
每年的1,3,5,7,8,10,12这七个月为31天
每年的4,6,9,11这四个月为30天
每年的2月就需要判断是否为闰年.条件是:年数能被4整除,并且不能被100整除,但能被400整除的年份也为闰年.方法是:用求余的运算求出余数,如果两数相除的余数为0,则能整除,否则不能.
Var year,month,len:integer;
Begin readln (year,month);
Case month of
1,3,5,7,8,10,12:len:=______;
__________ :len:=30;
2 :begin {下面是一个复合语句}
If _______________________then len:=29 {闰年}
Else len:=28; {平年}
end {这是begin 的end}
end; {这是case 的end}
Writeln (len);
End.
每年的1,3,5,7,8,10,12这七个月为31天
每年的4,6,9,11这四个月为30天
每年的2月就需要判断是否为闰年.条件是:年数能被4整除,并且不能被100整除,但能被400整除的年份也为闰年.方法是:用求余的运算求出余数,如果两数相除的余数为0,则能整除,否则不能.
Var year,month,len:integer;
Begin readln (year,month);
Case month of
1,3,5,7,8,10,12:len:=______;
__________ :len:=30;
2 :begin {下面是一个复合语句}
If _______________________then len:=29 {闰年}
Else len:=28; {平年}
end {这是begin 的end}
end; {这是case 的end}
Writeln (len);
End.
31
4,6,9,11
(len mod 400=0) or ((len mod 4=0) and (len mod 1000))
//ls是c的、这个才是pascal的.
4,6,9,11
(len mod 400=0) or ((len mod 4=0) and (len mod 1000))
//ls是c的、这个才是pascal的.
已知公元1年1月1日是星期一.任意输入一个年份和月份(公元1年1月以后),输出该月的日历表.用PASCAL语言
从键盘上输入一个日期(某年某月某日),如2009-2-28.计算这一天属于该年的第几天.要求写出计算闰年的函
输入某年某月某日,判断这一天是这一年的第几天?Input 第一行输入一个整数T,表示是下面有T行,接下来每
求答 .4.已知2007年1月1日为星期一.设计一函数按照下述格式打印2007年以后(含)某年某月的日历,2007年以前
输入一个年份,判断该年是否为闰年,输出该年2月份的天数
pascal程序 输入单词按字母表顺序排序输出
输入年,月日,运用函数输出这一天是一年的第几天,要求:写出闰年的函数计算和天的函数计算,
C语言编程:输入年份和月份 计算该月的天数 我哪做错了 怎么输出的是“该月共有-858993460天"
给定年,月,日,计算该日是该年中的第几天.程序中要求有判断闰年的函数和计算天数的函数.
pascal打印下列图形
pascal打印数字图形
打印如下图形 pascal