Fortran Coder

查看: 8343|回复: 4
打印 上一主题 下一主题

[数值问题] 有1000个数想分成100组如何实现?

[复制链接]

23

帖子

9

主题

0

精华

熟手

F 币
134 元
贡献
82 点
跳转到指定楼层
楼主
发表于 2017-7-9 20:16:39 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
目下有一万个数,想10个一组分为100组如何实现呢?多谢各位!
分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

23

帖子

9

主题

0

精华

熟手

F 币
134 元
贡献
82 点
5#
 楼主| 发表于 2017-7-10 14:11:41 | 只看该作者
vvt 发表于 2017-7-10 11:32
基本的数组用法,循环和判断逻辑,还是应该自己去学习。这是基本功。

多谢多谢

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
地板
发表于 2017-7-10 11:32:36 | 只看该作者
基本的数组用法,循环和判断逻辑,还是应该自己去学习。这是基本功。

23

帖子

9

主题

0

精华

熟手

F 币
134 元
贡献
82 点
板凳
 楼主| 发表于 2017-7-10 10:30:49 | 只看该作者
vvt 发表于 2017-7-10 09:40
这是逻辑问题,并非编程问题。

Do i = 1 , 100
[Fortran] 纯文本查看 复制代码
do i=1,n            
            wq(1)=wa(i)*coord(i,1)/wt
                write(12,*)wq(1)
          enddo
          do i=1,1000
            do j=1,10
                  m(i)=(i-1)*10+j
                  qcm(1)=wq(m,1)
                  write(13,*)qcm(10)
        enddo

file12中最后是一个10000行1列的数组,我想把12中第一列前10个数相加给第一个qcm(1),11-20相加给第二个qcm(1),最后file13中得到1000行1列的数组。还望指教一二,多谢多谢。

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
沙发
发表于 2017-7-10 09:40:26 | 只看该作者
这是逻辑问题,并非编程问题。

Do i = 1 , 100
  Do j = 1 , 10
     处理 a( (i-1) * 100 + j )
  End Do
End Do

这样就能满足你的要求了。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-11-23 15:24

Powered by Tencent X3.4

© 2013-2024 Tencent

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