Q & A
首頁 向上 Q & A 教學區

目錄

  1. PRINT 與 WRITE 的比較...？
  2. 找出下述程式之錯誤之處...？

PRINT 與 WRITE 的比較...？

PRINT 與 WRITE 其實非常相似。 只是，差在WRITE可用於 輸出到另一個檔案(須 事先另外指定)。

回到頁首

找出下述程式之錯誤之處...？

        INTEGER ODDMAX

         PARAMETER (ODDMAX=999)

        INTEGER NEXODD,   ITEM

         OPEN (UNIT=3, FILE='ODDNUM',  FORM='FORMATTED',

     +     ACCESS=  'SEQUENTIAL',   STATUS='NEW')

　

         DO 10 NEXODD=1,ODDMAX,2

                     WRITE (3,19) NEXODD

19                FORMAT (I3)

10    CONTINUE

　

        REWIND (UNIT=3)

　

        DO 20 NEXODD=1,ODDMAX,2

              READ (3,15,END=99) ITEM

              PRINT *,NEXODD

15          FORMAT (I3)

20     CONTINUE

　

99     CONTINUE

　

         END FILE (UNIT=3)

         CLOSE (UNIT=3)

         STOP

         END

　

回到頁首

修訂日期：2000/09/24 。