Make your own free website on Tripod.com

 

1.     Type Logical Variables:

INTEGER  ABC                                            DEBUG

.TRUE. or .FALSE.

REAL     XYZ               

CHARACTER*10  NAME  

LOGICAL  DEBUG

2.     Relational Operators 判斷兩數大小關係:

.LT.   .LE.   .GT.   .GE.   .EQ.    .NE.

3.     Logical Operators 組合兩個判斷結果, 再做一次綜合判斷:

判斷結果邏輯值 (logical value):   .TRUE.     .FALSE.

4.     IFD .GE.  0  .AND.  D .LE. 10THEN

              兩者須同時成立

END IF

5.IFD .LE. 0  .OR.  D .GE. 10THEN

             ....

  END IF

6.  operand1   .AND.  operand2     result

            T                            T          T

            T                            F           F

F                            F           F

F                            T           F

7.  IF.NOT.A .EQ. 0))THEN             .TRUE.→.FALSE.

.......                                                 .FALSE.→.TRUE.

     END IF

8.寫一判斷式(logical expressions)用於判斷是否 X, Y都大於 Z

X .GE. ZANDY .GE. Z

9.    LOGICAL DEBUG                               

    PARAMETERDEBUG=TRUE.)      

   LOGICAL FLAG ,SWITCH

   SWITCH=.FALSE

   FLAGSWITCH

DEBUG FLAG SWITCH
TRUE FALSE FALSE

10.   IFB**24*A*C   .GT.  0THEN

          ..........

          END IF

   ------------------------------------------------------

   DB**24*A*C

   IFD  .GT.  0THEN

       

   END IF

   -----------------------------------------------------

   LOGICAL DGT0

   REAL A,B,C

   READ *,A,B,C

   DB**24*A*C

   DGT0=(D .GT.  0

   IFDGT0THEN

        ....

   END IF