4 結構化程式設計(Structured Programming) 一

4.1 循序結構(Sequential Structure)

依照敘述出現的先後次序執行, 每一敘述執行一次.

4.2 LOGICAL 資料型式

• 邏輯常數

        .TRUE.
        .FALSE.
  
  

• 邏輯變數

      LOGICAL list
  
  

  例如，

      LOGICAL ENDATA, SORTED, NEG, SATUR
      SATUR = .TRUE.
      NEG = SATUR
  
  

• 簡單邏輯陳式(Expression)
  • 邏輯常數
  • 邏輯變數
  • 關係陳式，如

        X .LE. 1.0
        B**2 .GE. 4*A*C
    
    

  • 關係運算子

          .GT.    >
          .LT.    <
          .GE.    >=
          .LE.    <=
          .EQ.    =
          .NE.    !=
    
    注意 -- FORTRAN 90 已可直接使用符號。
    
    

• 捨入誤差

  使用 .EQ. 和 .NE. 時，記得許多實數值都不能準確地儲存。 因此用 .EQ. 比較兩項實數值，往往結果為 .FALSE.，即使兩數在代數上相等。

  例題: APPROX : roundoff error

 
• 複合邏輯陳式
  • 邏輯運算子

          .NOT.
          .AND.
          .OR.
          .EQV.
          .NEQV.
    
    

  • 邏輯陳式

          (N .GT. 10) .AND. (N .LT. 100)
          (A .AND. B) .OR. (.NOT. A .AND. .NOT. B)
    
    

  • 運算優先次序(Precedence)

          ()
          * / %
          + -
          .GT.  .LT.  .GE.  .LE.  .EQ.  .NE.
          .NOT.
          .AND.
          .OR.
          .EQV. .NEQV.
    

  例題: HADDER : Half Adder
  

4.4 選擇式結構(Selection Structure)

• 簡式 IF

        IF (score .GT. 60) THEN
            PRINT *, '及格'
        END IF
  
  

• 邏輯式 IF

        IF (score .GT. 60)  PRINT *, '及格'
  
  

• IF-ELSE 敘述

        IF (score .GT. 60) THEN
            PRINT *, '及格'
        ELSE
            PRINT *, '不及格'
        END IF
  
  

  例題:
  1. POLLUT : Pollution index
  2. QUAD1 : 解二次方程式
  
  
• 多層 IF

        IF (score .GT. 80) THEN
            PRINT *, '甲'
        ELSE
            IF (score .GT. 70) THEN
                PRINT *, '乙'
            ELSE
                IF (score .GT. 60) THEN
                    PRINT *, '丙'
                ELSE ...
                END IF
            END IF
         END IF
  
  

  注意: ELSE's 和最接近的 IF 配對
  
  例題: QUAD2 : 解二次方程式

 
• IF-ELSE IF

        IF (score .GT. 80) THEN
            PRINT *, '甲'
        ELSE IF (score .GT. 70) THEN
            PRINT *, '乙'
        ELSE IF (score .GT. 60) THEN
            PRINT *, '丙'
        ELSE ...
        END IF
  
  

  例題: QUAD3 : 解二次方程式

4.5 反覆結構 :DO 迥圈