如何使用Fortran编程语言来实现并输出杨辉三角形？

在Fortran编程中，你可以使用循环结构和数组来创建和输出杨辉三角形。杨辉三角是一个数学术语，它是一个由数字构成的三角形，每一行的每个数字都是前一行两个相邻数字之和。下面是一个简单的示例，展示如何用Fortran编写这个功能：

program PascalTriangle
    implicit none

    integer :: n, i, j, triangle(0:100, 0:100) ! 初始化一个足够大的二维数组
    character(len=5) :: num_str

    write(*,*) "请输入杨辉三角的高度: "
    read(*,*) n
    triangle(0,:) = 1 ! 第一行和最后一行始终为1

    do i = 1, n
        do j = 0, i - 1
            triangle(i,j) = triangle(i-1,j) + triangle(i-1,j+1) ! 计算当前行的元素值
        end do
        if (i .gt. 1) then
            write(num_str, "(I4)") triangle(i,i) ! 将数值转换成字符串输出
            write(*, "(A)", advance="no") "[" // trim(num_str) // "] " ! 输出格式化的数字和方括号
            ! 打印空格用于美观
            do k = 1, i-1
                write(num_str, "(I4)") 0
                write(*, "(A)", advance="no") " " // trim(num_str)
            end do
            write(*, *) "]" ! 结束这一行的输出
        end if
    end do

end program PascalTriangle

运行此程序后，会提示用户输入杨辉三角的高度，然后按照规则生成和显示相应的三角形。