fortran打印n行杨辉三角,n由程序执行输入
时间: 2024-03-17 15:47:17 浏览: 35
以下是使用Fortran语言打印n行杨辉三角的程序:
```
program yanghui
implicit none
integer :: n, i, j
integer, dimension(:,:), allocatable :: triangle
write(*,*) '请输入要打印的杨辉三角的行数:'
read(*,*) n
allocate(triangle(n,n))
do i = 1, n
triangle(i,1) = 1
triangle(i,i) = 1
end do
do i = 3, n
do j = 2, i-1
triangle(i,j) = triangle(i-1,j-1) + triangle(i-1,j)
end do
end do
do i = 1, n
do j = 1, i
write(*,'(I3)',advance='no') triangle(i,j)
end do
write(*,*)
end do
deallocate(triangle)
end program yanghui
```
程序首先要求用户输入要打印的杨辉三角的行数n,然后动态分配一个二维数组triangle来存储杨辉三角。接下来使用两个循环来计算杨辉三角的每一个元素的值,并将其存储在triangle数组中。最后使用两个循环来打印triangle数组中的元素,完成杨辉三角的打印。