[포트란] 살아온 날수구하기

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

목차

없음

본문내용

생일 입력받고 현재날짜 입력 받은후 윤달과 30일 31일인 달을 모두 고려하여 정확한 자기가 살아온 날을 구합니다. 대략적인 알고리즘은 일수를 하나씩 카운트하는 방법입니다.
C23456789
1 INTEGER COUNT
2 WRITE(*,*) '생년월일을 입력하세요.'
3 READ(*,*) Y,M,D
4 WRITE(*,*) '오늘의 년월일을 입력하세요.'
5 READ(*,*) TY,TM,TD
6 COUNT=0
7 DO 30 N=Y,TY
8 DO 20 L=M,12
9 DO 10 K=D,MONTH(N,L)
10 IF((TY.EQ.N) .AND. (TM.EQ.L) .AND. (TD.EQ.K)) GOTO 40
11 COUNT=COUNT+1
12 10 CONTINUE
13 D=1
14 20 CONTINUE
15 M=1
16 30 CONTINUE
17 40 WRITE(*,900) COUNT
18 900 FORMAT(3X,'살아온 날수는 ',I7,'입니다.')
19 STOP
20 END
      최근 구매한 회원 학교정보 보기
      1. 최근 2주간 다운받은 회원수와 학교정보이며
         구매한 본인의 구매정보도 함께 표시됩니다.
      2. 매시 정각마다 업데이트 됩니다. (02:00 ~ 21:00)
      3. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      최근 본 자료더보기
      추천도서