|
|
★
小木虫(金币+0.5):给个红包，谢谢回帖交流
请教一下：
program eambcc
implicit none
real :: i,j,k
integer :: at=0
do i=-1,1,0.5
do j=-1,1,0.5
do k=-1,1,0.5
if((mod(i,1.0)==0.and.mod(i,1.0)==0.and.mod(i,1.0)==0).or.&
(abs(mod(i,1.0))==0.5.and.abs(mod(j,1.0))==0.5.and.abs(mod(k,1.0))==0.5))then
write(*,100)i,j,k
100 format(2x,f4.1,2x,f4.1,2x,f4.1)
end if
end do
end do
end do
运行结果：
-1.0 -1.0 -1.0
-1.0 -1.0 -0.5
-1.0 -1.0 0.0
-1.0 -1.0 0.5
-1.0 -1.0 1.0
-1.0 -0.5 -1.0
-1.0 -0.5 -0.5
-1.0 -0.5 0.0
-1.0 -0.5 0.5
-1.0 -0.5 1.0
-1.0 0.0 -1.0
-1.0 0.0 -0.5
-1.0 0.0 0.0
-1.0 0.0 0.5
-1.0 0.0 1.0
-1.0 0.5 -1.0
-1.0 0.5 -0.5
-1.0 0.5 0.0
-1.0 0.5 0.5
-1.0 0.5 1.0
-1.0 1.0 -1.0
-1.0 1.0 -0.5
-1.0 1.0 0.0
-1.0 1.0 0.5
-1.0 1.0 1.0
-0.5 -0.5 -0.5
-0.5 -0.5 0.5
-0.5 0.5 -0.5
-0.5 0.5 0.5
0.0 -1.0 -1.0
0.0 -1.0 -0.5
0.0 -1.0 0.0
0.0 -1.0 0.5
0.0 -1.0 1.0
0.0 -0.5 -1.0
0.0 -0.5 -0.5
0.0 -0.5 0.0
0.0 -0.5 0.5
0.0 -0.5 1.0
0.0 0.0 -1.0
0.0 0.0 -0.5
0.0 0.0 0.0
0.0 0.0 0.5
0.0 0.0 1.0
0.0 0.5 -1.0
0.0 0.5 -0.5
0.0 0.5 0.0
0.0 0.5 0.5
0.0 0.5 1.0
0.0 1.0 -1.0
0.0 1.0 -0.5
0.0 1.0 0.0
0.0 1.0 0.5
0.0 1.0 1.0
0.5 -0.5 -0.5
0.5 -0.5 0.5
0.5 0.5 -0.5
0.5 0.5 0.5
1.0 -1.0 -1.0
1.0 -1.0 -0.5
1.0 -1.0 0.0
1.0 -1.0 0.5
1.0 -1.0 1.0
1.0 -0.5 -1.0
1.0 -0.5 -0.5
1.0 -0.5 0.0
1.0 -0.5 0.5
1.0 -0.5 1.0
1.0 0.0 -1.0
1.0 0.0 -0.5
1.0 0.0 0.0
1.0 0.0 0.5
1.0 0.0 1.0
1.0 0.5 -1.0
1.0 0.5 -0.5
1.0 0.5 0.0
1.0 0.5 0.5
1.0 0.5 1.0
1.0 1.0 -1.0
1.0 1.0 -0.5
1.0 1.0 0.0
1.0 1.0 0.5
1.0 1.0 1.0
Press any key to continue
为什么运行结果不满足：(abs(mod(i,1.0))==0.5.and.abs(mod(j,1.0))==0.5.and.abs(mod(k,1.0))==0.5))这个条件？ |
|
回复此楼