fortran输出数字三角阵

在Fortran中，要输出一个数字三角形，通常我们会使用嵌套循环来逐行打印数字。下面是一个简单的例子，它将创建一个从1开始递增的数字三角形，直到达到指定的最大层数：

program triangle
    implicit none
    integer :: i, j, n, value
    write (*, *) "Enter the maximum number of rows:"
    read (*, *) n
    value = 1
    do i = 1, n
        ! 每行的第一个和最后一个数字固定是1和i+1
        write (*,'(I3)') value
        value = value + 1
        ! 中间的数字是从2到i
        do j = 2, i - 1
            write (*,'(I3)') value
            value = value + 1
        end do
        ! 行结束添加换行符
        write (*, '(A)') repeat(' ', i-1)
    end do
end program triangle

在这个程序中，用户会被提示输入最大层数（即行数），然后程序会按照层次递增的方式打印出每个数字。例如，如果输入5，你会看到如下三角形：

   1
  2 2
 3 3 3
4 4 4 4
5 5 5 5 5