[포트란] 요일맞추기

목차

없음

본문내용

2003년 11월 9일 일요일을 기준으로 합니다. 날짜를 입력하면 요일이 나옵니다. 1년 1월 1일이 무슨 요일인지 알아보기 위해 만들었습니다. 그리고 특정일을 기준으로 하였기때문에 그날의 전과 후의 계산법에서 약간의 계산차이를 주었습니다.
C2345678
1 INTEGER TD,TY,TM,D,Y,M
2 WRITE(*,*) '요일을 알고자하는 년월일을 입력하세요'
3 READ(*,*) Y,M,D
4 TY=2003
5 TM=11
6 TD=9
7 J=0
8 IF(TY.EQ.Y) THEN
9 IF(TM.EQ.M) THEN
10 IF(TD.LT.D) THEN
11 CALL SWAP(TD,D)
12 CALL SWAP(TY,Y)
13 CALL SWAP(TM,M)
14 J=1
15 ELSE
16 ENDIF
17 ELSEIF(TM.LT.M) THEN
18 CALL SWAP(TD,D)
19 CALL SWAP(TY,Y)
20 CALL SWAP(TM,M)
21 J=1

참고 자료

없음