Fortran/Fortran 簡單輸入和輸出

C. 計算有限級數之和的程式

    WRITE(*,*)'ENTER THE VALUE OF X'
    READ(*,*)X              
    WRITE(*,*)'ENTER THE VALUE OF N'
    READ(*,*)N
    SUM=0.0
    DO 10I=1,N
    TERM=((-1)**I)*(X**(I*0.5))/I*(I+1))
    SUM=SUM+TERM

10  CONTINUE
    WRITE (*,*)`SUM OF SERIES'=,SUM
    PAUSE
    STOP
    END

預設輸出

Fortran 程式使用 **read** 語句從標準輸入或檔案讀取資料，並且可以使用 **print** 語句寫入標準輸出。使用 **write** 語句可以寫入標準輸出或檔案。在寫入檔案之前，必須開啟該檔案併為其分配一個單元號，程式設計師可以使用該單元號引用該檔案。如果希望使用 **write** 語句將語句寫入預設輸出，語法為 write(*,*). 它的使用方式如下：

program hello_world
    implicit none
    write (*,*) "Hello World!"
end program

這段程式碼將 "Hello World!" 寫入預設輸出（通常是標準輸出，即螢幕），類似於使用 print *, 語句。

檔案輸出

為了演示檔案輸出，以下程式從鍵盤讀取兩個整數，並將它們及其乘積寫入輸出檔案：

program xproduct
    implicit none
    integer :: i, j
    integer, parameter :: out_unit=20

    print *, "enter two integers"
    read (*,*) i,j

    open (unit=out_unit,file="results.txt",action="write",status="replace")
    write (out_unit,*) "The product of", i, " and", j
    write (out_unit,*) "is", i*j
    close (out_unit)
end program xproduct

檔案 "results.txt" 將包含以下行：

 The product of 2 and 3
 is 6

預設情況下，每個新行的 print 或 write 語句都從新行開始列印。例如：

program hello_world
    implicit none

    print *, "Hello"
    print *, "World!"
end program

列印到標準輸出

Hello
World!

如果將 "Hello World!" 放置在一個 print 語句中，文字 "Hello World!" 將出現在一行上。