如何按行进行数据操作

vvt

1.我不清楚你现在的代码是怎样的？数据文件是怎样的？你做了什么改动。因此，你的第一个问题我没办法回答。
2.你可以从你需要的开始，循环到你结束的位置，进行求和（或其他操作）。并不一定必须从数组的第一个循环到最后一个。

wxy

vvt 发表于 2017-1-31 15:42
你可以：
1. 只读取 start 到 end 之间的数据，然后计算。
2. 读取所有数据，然后只计算 start 到 end 之间 ...

成功了 谢谢，但是还有两个问题 1.运行结果中把之前每行的均值累加结果都显示出来 我只想要输入的start,end之间所有行的和，也就是最后一行的结果才是我想要的，之前的代码显示的就只是一个结果，数据计算这部分的代码我并没有改动怎末显示的不一样呢
2.我用的是第一个方法，你提到的第二个方法在读取所有数据后，对数组进行计算，我想尝试一下，但脑子还是转不过来，数组也有行数列数，怎末对数组指定行之间进行计算呢，我看书上的例子都是对某一行进行操作

vvt

你可以：
1. 只读取 start 到 end 之间的数据，然后计算。
2. 读取所有数据，然后只计算 start 到 end 之间的数据。

请选择其中一种方法。

如果你选用第一种方法，请先跳过第 1 到 第 start-1 的数据。
如果你选用第二种方法，请先完成所有数据的读取，然后再计算。（而不是一边读取一边计算）

wxy

vvt 发表于 2017-1-29 23:16
问题1. 在你的例子里，已经把所有文件中的365行，都读入到内存里（t数组）了，所以你可以自由的操作内存（t ...

谢谢 ，我还有一个问题，帮忙看一下第23行怎么改能够把start，end输入的值赋给i,没有错误提示。但是运行时还没赋值就输出了错误的结果

[Fortran] 纯文本查看 复制代码

module typedef
    type tdd
        integer :: stat=0
        real ::  tmax , tmin ,  total , average
    end type
end module

PROGRAM MAIN
    USE typedef
    implicit none
    real::rain
    INTEGER,PARAMETER::temp=365
    type(tdd)::t(temp)! 保存气温值
    type(tdd):: total !日均温累加
    integer i,dy,start,end

    open(7,file="1988.txt")

    write(*,*)"start:"
    read(7,*) start
    write(*,*)"end:"
    read(7,*) end

    do i=start,end

        read(7,*)dy , t(i)%tmax , t(i)%tmin , rain

        t(i)%average=(t(i)%tmax+t(i)%tmin)/2    !日均温
        total%average=total%average+t(i)%average    !日均温累加=积温
    print *,dy , t(i)%tmax , t(i)%tmin , rain , total%average    !

    enddo
    STOP
end PROGRAM

vvt

问题1. 在你的例子里，已经把所有文件中的365行，都读入到内存里（t数组）了，所以你可以自由的操作内存（t数组），而不再需要管文件的第几行了。
   此外，行是文件的内容，如果你不需要修改文件内容。就不存在“怎么给行赋值”的问题。（行也不能，没法赋值）
   注意赋值是针对内存中的变量。文件内容只能（从文件）读取（到内存）或（从内存）写入（到文件）

问题2. 请给出代码和错误提示。