作者latinboy (昵称)
看板Fortran
标题Re: [问题] 请教 如何写出这样的东西
时间Fri Jun 12 14:33:42 2009
※ 引述《magaiml (祈)》之铭言：
: 大概结果是
: x(1:5,1) 显示=> T F F F F
: x(1:5,2) F T F F F
: x(1:5,3) F F T F F
: x(1:5,4) F F F T F
: x(1:5,5) F F F F T
: x(1:5,6) T T F F F
: ......
: x(1:5,32) T T T T T
有趣的题目 手痒试试看
program lalalal
implicit none
integer, parameter :: n = 4 !<<= 这里修改大小
logical, allocatable :: x(:,:)
integer :: i, j, k
allocate( x( n, 2**n ) )
do i = 1, 2**n
k = i - 1
do j = 1, n
x(j,i) = ( mod(k,2)==1 )
k = k / 2
end do
print *, x(:,i)
end do
end program
执行结果:
F F F F
T F F F
F T F F
T T F F
F F T F
T F T F
F T T F
T T T F
F F F T
T F F T
F T F T
T T F T
F F T T
T F T T
F T T T
T T T T
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 58.115.25.219
※ 编辑: latinboy 来自: 58.115.25.219 (06/12 14:50)