24小时热门版块排行榜    

查看: 1138  |  回复: 7

东亚晴空

新虫 (初入文坛)

[求助] 谢谢打架了。帮我写个小程序吧。急求啊。。。

利用fortran编写程序求出能整除n(n>2)且不是偶数的1000以内的各整数
回复此楼

» 猜你喜欢

睡在哪里,都是睡在夜里。
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

东亚晴空

新虫 (初入文坛)

我就8个金币。这是全部家当。打架帮帮忙啊
睡在哪里,都是睡在夜里。
2楼2013-01-04 14:31:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

东亚晴空

新虫 (初入文坛)

呜呜好伤心啊。帮忙啊,我以后一定好好学习,再也不走神了。这滋味好难受啊
睡在哪里,都是睡在夜里。
3楼2013-01-04 14:43:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xzhdty

至尊木虫 (职业作家)

^_^小木虫老顽童^_^

天天打架怎么会呢
4楼2013-01-04 17:14:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jingjingdou

银虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
jjdg: 编辑内容 2013-01-05 23:38
jjdg: 金币+2, 辛苦了 2013-01-05 23:38:41
东亚晴空: 金币+4, ★★★★★最佳答案 2013-01-07 11:37:04
fortran65程序:
CODE:
     program modify
        dimension k(1000),m(1000)
        do i=1,1000
        k(i)=i
        enddo
        write(*,*)'please give a number(n大于2):'
        read(*,*)n
        j=1
        do i=n+1,1000
        if(mod(i,n).eq.0.and.mod(i,2).ne.0)then
        m(j)=k(i)
        write(*,*)j,m(j)
        j=j+1
        endif
        enddo
        stop
        end

程序说明,输入一个大于2的整数,得到数组m(j)即为楼主想要的结果。

[ Last edited by jjdg on 2013-1-5 at 23:38 ]
顺一点,一点就好!
5楼2013-01-04 17:21:21
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jingjingdou

银虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★
东亚晴空: 金币+4, ★★★很有帮助 2013-01-07 11:37:40
程序已经调试成功,用的是CVF的fortran65
顺一点,一点就好!
6楼2013-01-04 17:22:23
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jingjingdou

银虫 (小有名气)

【答案】应助回帖


jjdg: 金币+1, 辛苦了 2013-01-05 23:39:12
http://www.baidupcs.com/file/67a ... p;response-cache-co
百度网盘的下载链接,文件夹,关于你需要的求解过程的。
顺一点,一点就好!
7楼2013-01-04 17:32:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

xiaoqing8569

铁杆木虫 (著名写手)

奥林匹亚光学院院长


jjdg: 金币+1, 辛苦了 2013-01-05 23:38:59
用mathematica实现了,呵呵
jieGuo = {};
a = Input["输入数字大于2的整数:"];
For[i = 3, i < 1000,
If[Mod[i, a] == 0 && Mod[i, 2] != 0, jieGuo = Append[jieGuo, i],
  jieGuo]; i++]
jieGuo
Export["D:\\data.xls", jieGuo]
8楼2013-01-04 21:15:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 东亚晴空 的主题更新
信息提示
请填处理意见