기상 기후 강의 노트

주어진 표현식의 결과를 구하여라

1)      2+3/5

2)      (2+3)**2

3)      25.01**1/2

4)      (2.0 + 3**2 ) /( 8-2+1)

5)      abs (1-2-4)

6)      int (5.0 + 4.0/ 3.0 )

7)      "one"//"two"

다음 식을 fortran 표현식으로 써라

다음 식의 계산값을 구하는 fortran 프로그램을 작성하시오.

과제

아래 문제를 해결하는 코드를 작성해 봅시다. (내장함수 이용)

1. 정수 17을 실수로 변환  (아래 예제 코드 참고)

  i = 17

 gi = i 

 write(*,*) gi

2. 실수 23.67을 정수로 변환

3.  125의 1/3승값 

4.  -136.35의 절대값

5.  √289 값 구하기  

6.  정수 6971 실수화 

7.  3161.89 정수화 

8.  19.825 소수부 절단 

9.  -31.695 소수부 절단 

10. 37을 5로 나눈 나머지 구하기

11. 정수 113, 216, 351, 679, 823 중 최대값 

12. 실수 32.95, 86.45, 21.33, 69.28, 19.81 중 최대값

13. 실수 19.3, 21.2, 13.6, 37.6, 37.8, 27.9 중 최소값

14. 정수 198, 321, 439, 691, 113 중 최소값 

15. 83과 -21 중 -21의  부호를 83에 넘겨주기

16. e⁵

17. ln 1.7 (= log_e 1.7)

18. log 8.5 (= log₁₀ 8.5)

19. sin 75° (주의 radian 이 아님) 
20. cos 35° 
21. tan 25° 

연습

1. hello.f90

program hello

  print*, “hello”

end program hello

2. print_int.f90

program print_int  

  print*,”1+2+3=”

  print*, 1+2+3

end program print_int

3. do_int.f90

program do_int

  implicit none

  integer :: i

  do i=1,10

    print*,i

  enddo

end program do_int

4. cal_sum.f90

program cal_sum

  implicit none

    integer :: sum=0,i

      do i=1,10

        sum=sum+i

      enddo

      print*,’sum=’,sum

end program cal_sum

5. test_if_even_odd.f90

 program test_if_even_odd

     implicit none

     integer :: evensum=0,oddsum=0,i

       do i=1,100

          if ( mod(i,2).eq.0) then

                evensum=evensum+i

          else

                oddsum=oddsum+i

          endif

       enddo

       print*, ‘짝수합:’, evensum

       print*, ‘홀수합:’, oddsum

end program test_if_even_odd

주어진 표현식의 결과를 구하여라

1)       2+3/5

2)       (2+3)**2

3)       25.01**1/2

4)       (2.0 + 3**2 ) /( 8-2+1)

5)       abs (1-2-4)

6)       int (5.0 + 4.0/ 3.0 )

7)       “one”//”two”

힌트

과제

1. 섭씨<-> 화씨 온도 상호 전환하는 프로그램 만들기

힌트

program reformatting

  real :: degreef, degreec

  read *, degreec

  degreef =(9.0/5.0)*degreec+32

  print*, degreef

end program reformatting

2. 세변의 길이가 A, B, C인 삼각형의 둘레 및 면적 계산