[포트란] 요일맞추기

등록일 2003.11.17 한글 (hwp) | 3페이지 | 가격 1,000원

목차

없음

본문내용

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
      최근 구매한 회원 학교정보 보기
      1. 최근 2주간 다운받은 회원수와 학교정보이며
         구매한 본인의 구매정보도 함께 표시됩니다.
      2. 매시 정각마다 업데이트 됩니다. (02:00 ~ 21:00)
      3. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      최근 본 자료더보기
      추천도서