|
很简的一个程序
parameter (n=10)
integer a(n,n)
do i=1,n
a(i,1)=1
a(i,i)=1
enddo
do i=1,n
print 100, (a(i,j),j=1,i)
enddo
do i=3, n
do j=2,j-1
a(i,j)=a(i-1,j-1)+a(i-1,j)
enddo
enddo
print *, "杨辉三角形打印如下"
do i=1,n
print 100, (a(i,j),j=1,i)
enddo
100 format (1x, 10i5)
end
把上面红色部分的删掉之后 输出就变成了
杨辉三角形打印如下
1
1 1
1 0 1
1 0 0 1
1 0 0 0 1
1 0 0 0 0 1
1 0 0 0 0 0 1
1 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 1
1 0 0 0 0 0 0 0 0 1
加上之后就变正常了 ,这是为啥呢?
|
|