用fortran语言编写:输出杨辉三角形

以下是用Fortran语言编写的输出杨辉三角形的代码：

program yanghui
implicit none
integer :: n, i, j
integer :: triangle(20,20) ! 储存杨辉三角的数组
write(*,*) '请输入要输出的行数：'
read(*,*) n

! 初始化第一行
triangle(1,1) = 1

do i = 2, n
  ! 计算每一行的数值
  triangle(i,1) = 1
  do j = 2, i-1
    triangle(i,j) = triangle(i-1,j-1) + triangle(i-1,j)
  end do
  triangle(i,i) = 1
end do

! 输出杨辉三角
do i = 1, n
  do j = 1, i
    write(*,'(I5)',advance='no') triangle(i,j)
  end do
  write(*,*) ! 换行
end do

end program yanghui

这段程序通过嵌套循环计算并储存了杨辉三角的每一个数值，并将其输出到屏幕上。用户可根据需要输入要输出的行数，程序会自动计算并输出对应行数的杨辉三角形。