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!" 将出现在一行上。