用Fortran编写数字图形题目 编程输出如下数字三角阵。 1 7 8 13 14 15 19 20 21 22 25 26 27 28 29 31 32 33 34 35 36 25 26 27 28 29 19 20 21 22 13 14 15 7 8 1

可以使用以下代码来编写数字三角阵。

program triangle
    implicit none

    integer :: i, j, n, num

    ! 设置三角形的大小
    n = 7

    ! 外层循环控制每一行
    do i = 1, 2*n - 1
        ! 内层循环控制每一列
        do j = 1, 2*n - 1
            ! 计算当前位置的数字
            num = abs(n - i) + abs(n - j) + 1

            ! 输出数字，注意要使用2位宽度来对齐
            write(*, '(I2)', advance='no') num
        end do

        ! 输出换行符
        write(*, *)
    end do
end program triangle

这段代码会输出如下的数字三角阵：

 1  7  8 13 14 15 19 20 21 22 25 26 27 28 29 31 32 33 34 35 36 25 26 27 28 29 19 20 21 22 13 14 15  7  8  1