Fortran练习经典题目.doc

a, 输入一个年、月、日并计算它是本年度的第几天。 b.输入任意一年份，给出该年出生人的属相，如1945年出生的人的属相为“鸡”。 c.显示输出2000~2099年的任何一年的某一月的月历，所要显示的年月有键盘输入。如2002年5月的月历形式如下； 5月 2002年 日 一 二 三 四 五 六 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 d.显示输出2000~2099年的任何一年的年历，并写入一文本文件中。 e.以上功能都应从菜单中选择执行。 提示：a中若y为年份，d是该年的某月某日从1月1日开始经过的天数，则s=（y-1）*1.2425+d。若s除以7后所得的余数取整后为0，则为周日，为1则周一。 program firstquestion implicit none integer::q,i,lday integer::year,month,day,days,mday,ds character(len=2),dimension(1:37)::tem ! 这个程序可以同时在屏幕和文本中输出计算结果。为了计算不同的问题，引入变量q，当q＝1时，计算某年月日是此年的第几天; ! 当q＝2时，计算某年的属相;当q＝3时，计算月历;当q＝4时，计算年历;当q＝0时，退出此程序。此外，此程序还设置了对输入 ! 年、月、日的判断，判断其是否合法。 print *,when q=1,this program can resolve the question that which day some day is in some year! this is the question one. print *,when q=2,this program can obtain the shengxiao of some year! this is the question two. print *,when q=3,this program can obtain the calendar of some month of some year(2000-2099)! this is the question three. print *,when q=4,this program can obtain the Almanac of some year(2000-2099)! this is the question four. print *,If you want to exit from this program,please input q=0. do print *,input the number of q: read *,q if(q==0) exit if (q==1) then 2000 print *,input the year, the month and the day: read *,year,month,day if (month12.or.month0) print *,you input wrong month. if (month12.or.month0) goto 2000 call leapday(year,month,day,lday) if (lday==0) print *,you input wrong day. if (lday==0) goto 2000 call numday(year,month,day,days) print (a14,i3,a18),The day is the,days, day of this year. open(25,file=days.dat,status=unknown) write(25,(a14,i3,a18)) The day is the,days, day of this year. close(25) else if (q==2) then print *,input the year: read *,year call shengxiao(year) else if (q==3) then 2001 print *,input the