Fortran Coder

查看: 166|回复: 4

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

[复制链接]

12

帖子

4

主题

0

精华

入门

F 币
53 元
贡献
32 点
发表于 2017-7-9 20:16:39 | 显示全部楼层 |阅读模式
目下有一万个数,想10个一组分为100组如何实现呢?多谢各位!
回复

使用道具 举报

452

帖子

0

主题

0

精华

大师

F 币
926 元
贡献
437 点

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

QQ
发表于 2017-7-10 09:40:26 | 显示全部楼层
这是逻辑问题,并非编程问题。

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

这样就能满足你的要求了。

12

帖子

4

主题

0

精华

入门

F 币
53 元
贡献
32 点
 楼主| 发表于 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列的数组。还望指教一二,多谢多谢。

452

帖子

0

主题

0

精华

大师

F 币
926 元
贡献
437 点

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

QQ
发表于 2017-7-10 11:32:36 | 显示全部楼层
基本的数组用法,循环和判断逻辑,还是应该自己去学习。这是基本功。

12

帖子

4

主题

0

精华

入门

F 币
53 元
贡献
32 点
 楼主| 发表于 2017-7-10 14:11:41 | 显示全部楼层
vvt 发表于 2017-7-10 11:32
基本的数组用法,循环和判断逻辑,还是应该自己去学习。这是基本功。

多谢多谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|QQ群|Fcode

GMT+8, 2017-10-19 17:08

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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