Fortran Coder

查看: 10736|回复: 2
打印 上一主题 下一主题

[求助] 写两个角度变化的的程序

[复制链接]

40

帖子

11

主题

0

精华

大宗师

F 币
4267 元
贡献
1857 点

规矩勋章

QQ
跳转到指定楼层
楼主
发表于 2016-3-26 16:00:13 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
如题,我打算写一个两个角度变化的程序,两个角度都是从-180.0度变化到180.0度,第一个角度从-180变化到180,再从180变到-180,反复这样变化,直到第二个角度从-180变到180为止。如图。
想请教各位,我编写的代码中,程序
[Fortran] 纯文本查看 复制代码
    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
根本没有走k那个地方,我的这个要求如何才能实现?

1.jpg (32.95 KB, 下载次数: 233)

最终想达到的效果图

最终想达到的效果图
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩
where is dream,where is home

15

帖子

2

主题

0

精华

新人

F 币
142 元
贡献
84 点
沙发
发表于 2016-3-27 12:26:26 来自移动端 | 只看该作者
j循环步长该是 -30 你写的30!

评分

参与人数 2贡献 +10 收起 理由
fcode + 5 很给力!
978142355 + 5 很给力!

查看全部评分

40

帖子

11

主题

0

精华

大宗师

F 币
4267 元
贡献
1857 点

规矩勋章

QQ
板凳
 楼主| 发表于 2016-3-27 17:34:09 | 只看该作者
糖盒love玲珑 发表于 2016-3-27 12:26
j循环步长该是 -30 你写的30!

谢谢你,是我疏忽了,感谢你的提醒,完美的解决了我的问题。
where is dream,where is home
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-12-23 13:53

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表