請教fortran 90達人 小弟要跟你求救!!!!!

寫出一fortran 語言 輸入年份 月分 日期 推算輸出 當日 是星期幾!!!! 比如 輸入 year:2009 month:12 day:8 推算出 今天 星期2 這裡有可以參考的地方!!!!!! http://zh.wikipedia.org/wiki/%E6%98%9F%E6%9C%9F%E7%9A%84%E8%A8%88%E7%AE%97 這個網址 說真的 很多地方我也不是看的很懂!!!!!!! 我目前寫的程式如下!!!! 請大大們不吝幫我修改!!!!!拜託!!!!並且幫小弟完成 剩下未完成的部分!!!! 小弟感激不盡!!!!! ... show more



寫出一fortran 語言 輸入年份 月分 日期 推算輸出 當日 是星期幾!!!!

比如 輸入

year:2009

month:12

day:8

推算出 今天 星期2



這裡有可以參考的地方!!!!!!

http://zh.wikipedia.org/wiki/%E6%98%9F%E6%9C%9F%E7%9A%84%E8%A8%88%E7%AE%97

這個網址 說真的 很多地方我也不是看的很懂!!!!!!!

我目前寫的程式如下!!!!

請大大們不吝幫我修改!!!!!拜託!!!!並且幫小弟完成 剩下未完成的部分!!!!

小弟感激不盡!!!!!



















program calendar.f90
implicit none
integer :: year,month,day
write(*,*) 'input year'
select case (year)
case(1752:1799)
yy=4
case(1800:1899)
yy=2
case(1900:1999)
yy=0
case(2000:2099)
yy=6
case(2100:2199)
yy=4
read(*,*)year
end select
a=year-(100*(year/100))
a/4=b

write(*,*) 'input month'
select case (month)

case (1,10)
mm=0
case(2,3,11)
mm=3
case(4,7)
mm=6
case(5)
mm=1
case(6)
mm=4
case(8)
mm=2
case(9,12)
mm=5
read(*,*)month
end select



我目前寫到這邊!!!!!!!!!請問接下來要怎麼改!!!!!!! 還有幫我修改錯誤 我目前應該完成3/4了!!!!可是剩下的閏年問題 還有day 跟星期幾的問題 腦袋卡住 想不出來!!!!!



閏年問題(非程式語言 未修改版......) 我想很久 沒有想出來!!!!!



if ('year' is multiple of 4 but not amultiple of 100)

or 'year' is a multiple of 400)

then 'year' is a leap year


ex.1916 is leap year.

1900 is not leap year.

2000 is leap year.


中文涵義 就只有一句話 年份是4的倍數 但是不能是100的倍數 即是閏年!!!!但是400的倍數 也是閏年!!!!!!!只有100的倍數除外!!!!


1 answer 1