用fortran编写数字图形题目 编程输出如下数字三角阵。 1 7 8 13 14 15 19 20 21 22 25 26 ...

在 Fortran 中，可以使用循环和条件语句来编写数字三角形程序。下面是一个示例程序：

program triangle

implicit none

integer :: i, j, k, n

! 读入三角形的行数 read(*,'(I)') n

! 使用嵌套循环来输出三角形 do k = 1, n ! 输出空格 do i = 1, n-k write(,) ' ' end do

! 输出数字 do j = 1, 2k-1 write(,*) j+k-1 end do end do

! 使用嵌套循环来输出倒三角形 do k = n-1, 1, -1 ! 输出空格 do i = 1, n-k write(,) ' ' end do

! 输出数字 do j = 1, 2k-1 write(,*) j+k-1 end do end do

end program triangle

该程序使用两个嵌套循环，分别输出正三角形和倒三角形。首先，程序读入三角形的行数 n。然后，第一个循环使用变量 k 控制行数，第二个循环使用变量 i 控制空格数，第三个循环使用变量 j 控制数字数。正三角形和倒三角形的输出方式是类似的，只是正三角形是从上到下输出，而倒三角形是从下到上输出。

需要注意的是，在 Fortran 中，程序的输出是按列输出的，所以程序输出的三角形是竖直的。如果需要输出水平的三角形，可以在