PROGRAM TRIGRAPH77

      INTEGER I, J
      REAL X, Y, DX, DY
      REAL S, C, T
      INTEGER NX, NY
      PARAMETER (NX = 80, NY = 25)
      REAL PI, YMAX, YMIN

      PARAMETER (PI = 3.1415927)
      PARAMETER (YMAX = 1.5, YMIN = -1.5)

      DX = 2.0 * PI / NX
      DY = (YMAX - YMIN) / NY

      DO 100 J = NY, 1, -1
         Y = YMIN + (J - 1) * DY
         DO 110 I = 1, NX
            X = -PI + (I - 1) * DX
            S = SIN(X)
            C = COS(X)
            T = TAN(X)

            IF (ABS(S - Y) .LT. DY/2.0) THEN
               WRITE(*,'(A)', ADVANCE='NO') 'S'
            ELSE IF (ABS(C - Y) .LT. DY/2.0) THEN
               WRITE(*,'(A)', ADVANCE='NO') 'C'
            ELSE IF (ABS(T) .LT. 1.5 .AND. ABS(T - Y) .LT. DY/2.0) THEN
               WRITE(*,'(A)', ADVANCE='NO') 'T'
            ELSE IF (ABS(Y) .LT. DY/2.0) THEN
               WRITE(*,'(A)', ADVANCE='NO') '-'
            ELSE IF (ABS(X) .LT. DX/2.0) THEN
               WRITE(*,'(A)', ADVANCE='NO') '|'
            ELSE
               WRITE(*,'(A)', ADVANCE='NO') ' '
            ENDIF
110      CONTINUE
         WRITE(*,*)
100   CONTINUE

      END



TRIGRAPH77.EXE【Intel Fortran Compiler】実行結果

            T                           |           T
                                        |
           T                            |          T
          T                          CCCCCCC      T      SSSSSSS
         T                       CCCC   |   CCCC T   SSSS       SSSS
        T                      CC       |       CC SS               SS
       T                     CC         |      T SSC                  SS
      T                    CC           |     TSS   CC                  SS
     T                   CC             |    SS       CC                  SS
   TT                   C               |  TS           C                   S
  T                   CC                | SS             CC                  SS
ST------------------CC------------------SS-----------------CC------------------S
TS                 C                   S|                    C                 T
  SS             CC                  SS |                     CC              T
    S           C                   ST  |                       C           TT
     SS       CC                  SS    |                        CC        T
       SS   CC                  SST     |                          CC     T
         SSC                  SS T      |                            CC  T
        CC SS               SS  T       |                              CC
    CCCC     SSSS       SSSS   T        |                              T CCCC
CCCC             SSSSSSS      T         |                             T      CCC
                             T          |                            T
                                        |
                            T           |                           T
                                        |