연습
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인 삼각형의 둘레 및 면적 계산