검색어 입력폼

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

등록일 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
다운로드 맨위로