求助怎么给数组赋值

wutongyu · 发表于 2012-11-5 10:27:22

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

要定义一个array（72,73）的数组，现在文件的格式是这样，每个纬度带上有73个数，共有72条纬度带，想把每个对应的数据赋值到数组里面。 XOE0)NI2N7F@NB2CZH$QQ]J.jpg

，比如想把第7行第一个数31赋值给array（1,1），第二个数32赋值给array（1,2），第三个数32赋值给array（1,3），依次类推赋值到array（1,73），从第13行到17行就是array（2，:）的内容了，如此下去一直到array（72，：），不知哪位大神会呀，给提供个思路也行，跪求

mofangbao · 发表于 2012-11-5 10:50:53

一行行的读取，判断是不是到了你要赋值的那一行，如果是，就赋值啊

wutongyu · 发表于 2012-11-5 11:03:18

mofangbao 发表于 2012-11-5 10:50

登录/注册后可看大图

一行行的读取，判断是不是到了你要赋值的那一行，如果是，就赋值啊

现在就是不知道设置什么判断条件，比如说设置什么条件能把第11行的第一个数31赋值给array（1,65）呢

言深深 · 发表于 2012-11-5 11:29:27

你这个问题还没解决啊？？？？？
http://bbs.06climate.com/forum.php?mod=viewthread&tid=10602
http://bbs.06climate.com/forum.php?mod=viewthread&tid=10727
都问了俩个了？还没有把问题问道点子上面去！
其中在你的第二个帖子里面我给你比较详细的答复不知道是是不是能看明白，其实很简单的已经东西，唉····

大致按你的数据，造了一份数据
字符
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
5 6 7 8 9 10 11 12 13
字符
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
5 6 7 8 9 10 11 12 13
字符
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
5 6 7 8 9 10 11 12 13
！！！！！！！！！！！！！！！！！！！！！！！！
数据一共三份，没份73个，分在5行里面，前面四行各16个，最后一行7个
由于怕动脑子，没有把程序设计的很复杂，但是满足你的要求能用了，附件是数据和read文件
！！！！！！！！！！！！！！！！！！！！！！！！
parameter(m=3,n=73)
character*8 null
real x(m,n)
open(1,file="wutongyu.txt")
do i=1,m
read(1,*)null
read(1,*)(x(i,j),j=1,16)
read(1,*)(x(i,j),j=17,32)
read(1,*)(x(i,j),j=33,48)
read(1,*)(x(i,j),j=49,64)
read(1,*)(x(i,j),j=65,73)
enddo
close(1)
end

【希望】楼主多多学习思考进步

wutongyu.txt (651 Bytes, 下载次数: 4)

topmad · 发表于 2012-11-5 11:29:35

我觉得这个已经不是编程问题了，有点偏向于算法问题了，你好好总结一下你的赋值规律然后再想想怎么用语言进行读取

mofangbao · 发表于 2012-11-5 12:11:34

要学会找规律
你看你的数据，是每6行重复一次，暂成为一个块，每一块的格式都是一致的，假如你需要的只是每一块的最后一行赋值到一个数组中，这个数组就是array(i,65:73)，其中i表示第几块。
这样，你可以用两个循环来实现，外循环负责控制块，内循环负责块中的最后一行赋值，也就是第6行
首先把你的数据前面的行号全部去掉，否则要另外处理一下你的行号，代码看深深的就行了，他的内循环省去了，直接全部写了出来。

		自动登录	找回密码
密码			立即注册

[求助] 求助怎么给数组赋值

登录后查看更多精彩内容~