program example
implicit none
integer i,j,k
open(11,file='test.txt')
do i=180,-180,-30
do j=180,-180,30
write(11,"(a2,i4,2x,a2,i4)") 'X=',j,'Y=',i
end do
do k=-180,180,30
write(11,"(a2,i4,2x,a2,i4)") 'X=',k,'Y=',i
end do
end do
end program example
1.jpg (32.95 KB, 下载次数: 399)
最终想达到的效果图
糖盒love玲珑 发表于 2016-3-27 12:26
j循环步长该是 -30 你写的30!
欢迎光临 Fortran Coder (http://bbs.fcode.cn/) | Powered by Discuz! X3.2 |