面试题：Fortran文件写入特定格式数据

Question

在Fortran中，要求编写一个程序，从数组中读取整数和浮点数，并将这些数据以格式化的形式写入到一个文本文件中。每行写入一个整数和一个浮点数，整数占5个字符宽度，右对齐；浮点数占10个字符宽度，保留3位小数。请描述实现思路并给出关键代码。

Answer 1

实现思路

1. 声明包含整数和浮点数的数组。
2. 打开一个文本文件用于写入。
3. 使用循环遍历数组，将每个整数和对应的浮点数按指定格式写入文件。
4. 关闭文件。

关键代码

program write_array_to_file
    implicit none
    integer, dimension(3) :: int_array = [1, 2, 3]
    real, dimension(3) :: float_array = [1.1111, 2.2222, 3.3333]
    integer :: i
    character(len=100) :: filename = 'output.txt'
    integer :: unit_num = 10

    open(unit = unit_num, file = filename, status = 'replace')
    do i = 1, size(int_array)
        write(unit_num, '(I5,F10.3)') int_array(i), float_array(i)
    end do
    close(unit_num)
end program write_array_to_file