Fortran中的输入输出！！！

爱被打了一巴掌 2024-02-17 18:32 47阅读 0赞

我们学习计算机语言的目的在于与计算机进行交互  
（输入即向计算机发送指令，输出即计算机对我们发送的指令做出的响应），  
所以交互的前提首先要搞清编程语言的输入输出

输入输出方法有：write print read  
我们需要在输入输出语句中提供三方面的信息：  
1）通过什么设备进行输入输出  
2）采用的输入输出格式  
3）输入输出的具体内容

program main
    implicit none
    
    ! ！！！！！注意本例中的！号为注释内容
    
    ! 这两个语句，声明了两个integer变量和一个real变量
    integer(kind = 4) :: A = 23, B = 14
    real(kind = 4) :: C = 4.5
    
    
    ! 普通输入输出,*号代表采用默认格式,又叫表控格式
    print *,  A, B, C
    ! 格式化输入输出，采用标号100定义的格式
    print 100, A, B, C
    100 format(1x, 2I4, F7.3)
    ! 或者
    print '(1x, 2I4, F7.3)', A, B, C
    
    ! ------------------------分割线-------------------------
    ! print 只能输出到屏幕，而如果想要输出到文件可以使用write 
    !-格式：write(u, f) 输出项
    !- u:表示设备号，指明输入输出设备，默认*或标号6为屏幕
    !- f:表示格式说明符 如上所述100
    !------------输入语句read与write类似------------
    !-格式read(u, f) 输出项
    !- u:表示设备号，指明输入输出设备，默认*号为屏幕
    !- f:表示格式说明符 如上所述100
    write(6, *) A, B, C
    write(*, '(1x, 2I4, F7.3)') A, B, C
    ! 下面这一句把A，B，C输出到代号为80的文件，如果没有打开此文件
    !，会默认创建文件名为fort.80的文件
    write(80, '(1x, 2I4, F7.3)') A, B, C
    ! ------------------------分割线
    ! 输入，带格式的输入比较苛刻，可以自行试验
    read(*, *) A, B, C
    ! ------------------------分割线-------------------------
    ! 上面我们用到了一些格式化输出
    ! 接下来介绍一下格式化描述符的意义
    !1. 整数编辑描述符I，O等
    !   I用于十进制整数的输入输出， 格式：rIw  r:重复的系数 w:字段宽度
    print '(1x, 2I4, F7.3)', A, B, C  ! 2I4对应后面A B两个整数变量，宽度各为4
    print '(1x, I4, I4, F7.3)', A, B, C ! 展开形式
    !2. 实型数据编辑描述符F, E, G等（与整型用法类似） 格式rFw.d d为输入输出的小数位数
    !如果宽度w不够,输出以*号代替
    !
    !3. 字符型编辑符A
    print '(2a)', 'hello fortran!', 'I am ADreamClusive!'
    ! 上面的输出    hello fortran!I am ADreamClusive!  
    ! 两个字符串紧紧连在一起，可读性不好，也不好看
    !3. X编辑符
    ! 用于在输入输出数据之间插入空格
    print '(a, 2X, a)', 'hello fortran!', 'I am ADreamClusive!'
    ! 输出内容   hello fortran!  I am ADreamClusive!
    ! 这样就比上边的格式舒服了很多
    
    ! ------------------------分割线-------------------------
    ! 当然，在格式中可以有字符串的输入输出
    print '("lili:      ", a)', 'hello fortran!'
    print '("fortran:   ", a)', 'I am ADreamClusive!'
    ! 斜杠编辑符
    print '("lili:      ", a/"fortran:   ",a)', 'hello fortran!', 'I am ADreamClusive!'
    ! 比较老的方式：H编辑符号
    write(*, 200) A, B, C
    200 format(1x, 2HA= , I3, 2HB= , I3, 2HC= , F5.2)
    end program