longintf(intyear,intmonth){if(month<3)returnyear-1;elsereturnyear;}longintg(intmonth){if(month<3)return">
c語言打印任意年份日歷

c語言打印任意年份日歷

ID:8964376

大?。?6.50 KB

頁數(shù):2頁

時間:2018-04-13

c語言打印任意年份日歷_第1頁
c語言打印任意年份日歷_第2頁
資源描述:

《c語言打印任意年份日歷》由會員上傳分享,免費在線閱讀,更多相關(guān)內(nèi)容在應(yīng)用文檔-天天文庫。

1、#includelongintf(intyear,intmonth){if(month<3)returnyear-1;elsereturnyear;}longintg(intmonth){if(month<3)returnmonth+13;elsereturnmonth+1;}longintn(intyear,intmonth,intday){return1461L*f(year,month)/4+153L*g(month)/5+day;}intw(intyear,intmonth,intday){return(int)((n(year,month,day)

2、%7-621049L%7+7)%7);}intdate[12][6][7];intday_tbl[][12]={{31,28,31,30,31,30,31,31,30,31,30,31},{31,29,31,30,31,30,31,31,30,31,30,31}};main(){intsw,leap,i,j,k,wd,day;intyear;chartitle[]="SUMMONTUEWEDTHUFRISAT";printf("Pleaseinputtheyearwhosecalendaryouwanttoknow:");scanf("%d%*c",&year);sw=w

3、(year,1,1);leap=year%4==0&&year%100

4、

5、year%400==0;for(i=0;i<12;i++)for(j=0;j<6;j++)for(k=0;k<7;k++)date[i][j][k]=0;for(i=0;i<12;i++)for(wd=0,day=1;day<=day_tbl[leap][i];day++){date[i][wd][sw]=day;sw=++sw%7;if(sw==0)wd++;}printf("

6、==================TheCalendarofYear%d==================

7、

8、"

9、,year);for(i=0;i<6;i++){for(wd=0,k=0;k<7;k++)wd+=date[i][5][k]+date[i+6][5][k];wd=wd?6:5;printf("%2d%s%2d%s

10、

11、",i+1,title,i+7,title);for(j=0;j

12、("%4d",date[i+6][j][k]);elseprintf("");printf("

13、

14、");}}puts("==============================================================

15、");}

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文

此文檔下載收益歸作者所有

當(dāng)前文檔最多預(yù)覽五頁,下載文檔查看全文
溫馨提示:
1. 部分包含數(shù)學(xué)公式或PPT動畫的文件,查看預(yù)覽時可能會顯示錯亂或異常,文件下載后無此問題,請放心下載。
2. 本文檔由用戶上傳,版權(quán)歸屬用戶,天天文庫負(fù)責(zé)整理代發(fā)布。如果您對本文檔版權(quán)有爭議請及時聯(lián)系客服。
3. 下載前請仔細(xì)閱讀文檔內(nèi)容,確認(rèn)文檔內(nèi)容符合您的需求后進(jìn)行下載,若出現(xiàn)內(nèi)容與標(biāo)題不符可向本站投訴處理。
4. 下載文檔時可能由于網(wǎng)絡(luò)波動等原因無法下載或下載錯誤,付費完成后未能成功下載的用戶請聯(lián)系客服處理。