! 例題4-4 万年暦の準備
PROGRAM ex4_4
IMPLICIT NONE
INTEGER:: year, days
PRINT *, 'Input a year:'
READ *, year
days = 365 * year + year / 4 - year / 100 + year / 400
IF(MOD(days,7)==0)THEN
PRINT*, year, '年12月31日は、1年1月1日から数えて', &
days, '日目で、日曜日です。'
ELSE IF(MOD(days,7)==1)THEN
PRINT*, year, '年12月31日は、1年1月1日から数えて', &
days, '日目で、月曜日です。'
ELSE IF(MOD(days,7)==2)THEN
PRINT*, year, '年12月31日は、1年1月1日から数えて', &
days, '日目で、火曜日です。'
ELSE IF(MOD(days,7)==3)THEN
PRINT*, year, '年12月31日は、1年1月1日から数えて', &
days, '日目で、水曜日です。'
ELSE IF(MOD(days,7)==4)THEN
PRINT*, year, '年12月31日は、1年1月1日から数えて', &
days, '日目で、木曜日です。'
ELSE IF(MOD(days,7)==5)THEN
PRINT*, year, '年12月31日は、1年1月1日から数えて', &
days, '日目で、金曜日です。'
ELSE
PRINT*, year, '年12月31日は、1年1月1日から数えて', &
days, '日目で、土曜日です。'
END IF
END PROGRAM ex4_4
ISDkvovpoYw0LTQg5LiH5bm05pqm44Gu5rqW5YKZClBST0dSQU0gZXg0XzQKCiAgSU1QTElDSVQgTk9ORQogIElOVEVHRVI6OiB5ZWFyLCBkYXlzCgogIFBSSU5UICosICdJbnB1dCBhIHllYXI6JwogIFJFQUQgKiwgeWVhcgoKICBkYXlzID0gMzY1ICogeWVhciArIHllYXIgLyA0IC0geWVhciAvIDEwMCArIHllYXIgLyA0MDAKCklGKE1PRChkYXlzLDcpPT0wKVRIRU4KICBQUklOVCosIHllYXIsICflubQxMuaciDMx5pel44Gv44CBMeW5tDHmnIgx5pel44GL44KJ5pWw44GI44GmJywgJgogICAgICAgICAgIGRheXMsICfml6Xnm67jgafjgIHml6Xmm5zml6XjgafjgZnjgIInCkVMU0UgSUYoTU9EKGRheXMsNyk9PTEpVEhFTgogIFBSSU5UKiwgeWVhciwgJ+W5tDEy5pyIMzHml6Xjga/jgIEx5bm0MeaciDHml6XjgYvjgonmlbDjgYjjgaYnLCAmCiAgICAgICAgICAgZGF5cywgJ+aXpeebruOBp+OAgeaciOabnOaXpeOBp+OBmeOAgicKRUxTRSBJRihNT0QoZGF5cyw3KT09MilUSEVOCiAgUFJJTlQqLCB5ZWFyLCAn5bm0MTLmnIgzMeaXpeOBr+OAgTHlubQx5pyIMeaXpeOBi+OCieaVsOOBiOOBpicsICYKICAgICAgICAgICBkYXlzLCAn5pel55uu44Gn44CB54Gr5puc5pel44Gn44GZ44CCJwkgICAKRUxTRSBJRihNT0QoZGF5cyw3KT09MylUSEVOCiAgUFJJTlQqLCB5ZWFyLCAn5bm0MTLmnIgzMeaXpeOBr+OAgTHlubQx5pyIMeaXpeOBi+OCieaVsOOBiOOBpicsICYKICAgICAgICAgICBkYXlzLCAn5pel55uu44Gn44CB5rC05puc5pel44Gn44GZ44CCJwkgICAKRUxTRSBJRihNT0QoZGF5cyw3KT09NClUSEVOCiAgUFJJTlQqLCB5ZWFyLCAn5bm0MTLmnIgzMeaXpeOBr+OAgTHlubQx5pyIMeaXpeOBi+OCieaVsOOBiOOBpicsICYKICAgICAgICAgICBkYXlzLCAn5pel55uu44Gn44CB5pyo5puc5pel44Gn44GZ44CCJwkgICAKRUxTRSBJRihNT0QoZGF5cyw3KT09NSlUSEVOCiAgUFJJTlQqLCB5ZWFyLCAn5bm0MTLmnIgzMeaXpeOBr+OAgTHlubQx5pyIMeaXpeOBi+OCieaVsOOBiOOBpicsICYKICAgICAgICAgICBkYXlzLCAn5pel55uu44Gn44CB6YeR5puc5pel44Gn44GZ44CCJwkgICAKRUxTRQogIFBSSU5UKiwgeWVhciwgJ+W5tDEy5pyIMzHml6Xjga/jgIEx5bm0MeaciDHml6XjgYvjgonmlbDjgYjjgaYnLCAmCiAgICAgICAgICAgZGF5cywgJ+aXpeebruOBp+OAgeWcn+abnOaXpeOBp+OBmeOAgicJICAgCkVORCBJRgoKRU5EIFBST0dSQU0gZXg0XzQK