포트란의 시작-문법 3 제어문

[올란도]

컴퓨터 언어는 문법적인 특징이 다 다르지만 구성 요소는 거의 비슷하다.

그렇기 때문에 한가지라도 명확하게 알고있으면 다른 언어에 대해 익숙해지기가 쉽다.

모든 일이 다 그렇겠지만, 한가지라도 명확하게 알고 있는 것이 중요하다.

제어문의 종류

stop,goto,pause,continue,call,return,if,do

이런 것들이 프로그램의 흐름을 제어한다고 해서 제어문이라고 한다.

stop

프로그램이 끝을 알려준다.

goto 번호

해당 번호로 무조건 분기한다.

계산형 goto

goto(10,20,30)k

k값이 1이면 10, 2이면 20,2이면30으로 분기함.

할당형  goto

assign 30 to k

goto k,(20,30,40)

k에 30을 할당했으므로 문번호 30으로 분기함.

pause

프로그램 실행중 일시 정지시킨다.

call

서브루틴 호출

return

call에 의해 호출된 서브루틴을 호출된 곳으로 분기시킨다.

continue 번호

해당 번호로 이동하는데 goto문과 비슷하지만 단독 사용보단 do문과 함께 사용된다.

if

비교된 결과가 참인지 거짓인지를 판별한다.

       program ex

       i=10
       read(*,*) j
       if(i-j) 10,20,30
   10 write(*,*) 'i가 작다'
       goto 40
   20 write(*,*) 'i가 같다'
       goto 40
   30 write(*,*) 'i가 크다'
   40 continue  

       stop
       end



 

if문에 사용되는 관계 논리 연산자의 종류

Relational & Logical Expression‎
Operator	Meaning
.LT. Or < =	Less Than
.LE. Or = =	Less than or Equal to
.EQ. Or / =	Equal to
.NE. or > =	Not Equal to
.GT. Or <	Greater Than
.GE. Or 2x	Greater than or equal to
.AND.	True if both A and B are true
.OR.	True if either A, B, or both, are true
.NEQV.	True if either A or B is true, but false if both are true
.XOR.	Same as .NEQV.
.EQV.	True if both A and B are true, or both are false
.NOT.	True if A is false and false if A is true

 if(i-j) 10,20,30

일반적인 if문 즉 다른 언어와 좀 다른것을 알수가 있다.

위의 예에서 조건이 음수이면 문번호 10으로 이동,조건이 0이면 20,조건이 양수이면 30으로 이동된다.

if(a .eq. b) write(*,*) "="

조건이 참일때 즉, a와b의 값이 같을때 '='를 출력해준다.

포트란에만 있는 듯한 if문의 사용방법이었다.

일반적인 if문도 사용할수 있다.

if(condition-a) then

   a true statement

else if(condition-b) then

  b true statemant

else

  statemant

endif

do

반복적으로 해당영역을 실행해야 할 경우에 사용

씨나 베이직에서도 do문은 있다. 그것과 유사하다.

do 문번호 변수=시작값,끝값

내용

문번호 continue

       do 10 i=1,10

       j=j+i

   10  continue

       write(*,*) j

       stop

       end



 

do문에서 지정된 문번호까지 시작값1에서 끝값10까지 i의 값이 1씩 증가하면서 반복해준다.

문번호 10번에는 continue문으로 해주어야 한다.왜냐? 문법이 그런것이다.

그렇지만 continue문 없이도 사용할수 있다.

       do i=1,10

       j=j+i

       enddo     

       write(*,*) j

       stop

       end



이렇게 사용해도 된다.

파일에서 값을 읽어 들일때

      real a(2,2), b(2,2), c(2,2)

      open(9,file='test.in')

      read(9,*) ((a(i,j),j=1,2),i=1,2)

 이렇게 할수 도 있다.

 다른 컴퓨터 언어에는 없는 사용법이다.

위의 내용은 아래의 내용과 같은 결과이다.

      real a(2,2), b(2,2), c(2,2) 

      open(9,file='test.in') 

      do i=1,2 

      do j=1,2 

         read(9,*) a(i,j) 

      enddo 

      enddo 


어떤 식으로 사용하든 편한데로 사용하면 된다.

그러나 포트란의 특징은 알고 있어야 할 것이다.