Fortran Coder

标题: 有1000个数想分成100组如何实现？ [打印本页]

作者: alohomora100 时间: 2017-7-9 20:16
标题: 有1000个数想分成100组如何实现？
目下有一万个数，想10个一组分为100组如何实现呢？多谢各位！

作者: vvt 时间: 2017-7-10 09:40
这是逻辑问题，并非编程问题。

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

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

作者: alohomora100 时间: 2017-7-10 10:30

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列的数组。还望指教一二，多谢多谢。

作者: vvt 时间: 2017-7-10 11:32
基本的数组用法，循环和判断逻辑，还是应该自己去学习。这是基本功。

作者: alohomora100 时间: 2017-7-10 14:11

vvt 发表于 2017-7-10 11:32
基本的数组用法，循环和判断逻辑，还是应该自己去学习。这是基本功。

多谢多谢

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)