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

등록일 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. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      4. 지식포인트 보유 시 지식포인트가 차감되며
         미보유 시 아이디당 1일 3회만 제공됩니다.
      상세하단 배너
      최근 본 자료더보기
      상세우측 배너
      상세우측 배너
      상세우측 배너
      추천도서
      [포트란] 살아온 날수구하기
      하나은행 통장 개설 이벤트 오늘 하루 보지 않기 닫기
      ?>
      닫기