24小时热门版块排行榜    

Znn3bq.jpeg
汕头大学海洋科学接受调剂
查看: 1772  |  回复: 4

小小糊涂虫

新虫 (小有名气)

[求助] 新手!!FORTRAN求助,从一文件中读取坐标,然后赋值!!!!! 已有1人参与

各位高人求帮忙,!!

   本人想从1.dat 文件中读取坐标信息,然后赋予每个坐标固定值(假设Z=0),最后吧结果输出在2.dat中
   1.dat 中坐标信息(两列数据)   -------------------------------------期望的目标文件   2.dat      

             楼主期望的是读取后再赋值,拜托各位了  
   
    1  1                                                                                                 1    1    0
    1  2                                                                                                 1   2     0
    1  3                                                                                                 1    3    0
    2  1                                                                                                 2     1   0
    2  2                                         →→→→→→                                  2     2   0
    2  3                                                                                                 2   3     0
   3   1                                                                                                 3    1    0                                                                    
   3   2                                                                                                 3   2     0
   3   3                                                                                                  3   3    0
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

小小糊涂虫

新虫 (小有名气)

2楼2015-04-14 21:44:38
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
小小糊涂虫: 金币+20, ★★★★★最佳答案, 刚接触FORTRAN语言,还望多多应助。 多谢! 2015-04-15 14:08:00
open(1, file='1.dat')
open(2, file='2.dat')
z=0
do i=1,xx
read(1, *) j, k
write(2, *) j, k ,z
end do

end
3楼2015-04-15 00:42:46
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

pugongyingi

银虫 (小有名气)

引用回帖:
3楼: Originally posted by jerkwin at 2015-04-15 00:42:46
open(1, file='1.dat')
open(2, file='2.dat')
z=0
do i=1,xx
read(1, *) j, k
write(2, *) j, k ,z
end do

end

尝试了用这个程序生成两个相应的dat文件,但dat2没有输出。
疑惑:z=0-未经声明时z会默认为数组输出么?
do i=1,xx -i和xx未经声明,那么系统如何识别呢?
所以,dat2无输出是因为系统无法识别命令么?
如果是,那么要如何声明dat1的大小呢?(我是想定义i=size('1.dat'))
嘿嘿,问题有点多O(∩_∩)O
成人,成事。胆大,心细,脸皮厚。
4楼2015-04-16 09:33:53
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jerkwin

专家顾问 (正式写手)

引用回帖:
4楼: Originally posted by pugongyingi at 2015-04-16 09:33:53
尝试了用这个程序生成两个相应的dat文件,但dat2没有输出。
疑惑:z=0-未经声明时z会默认为数组输出么?
do i=1,xx -i和xx未经声明,那么系统如何识别呢?
所以,dat2无输出是因为系统无法识别命令么?
如果是 ...

我的程序只是示例, 告诉你怎么写, 不是完整的程序
xx那是代表你的行数, 你应该能看出这点吧
你没对xx赋值, 自然没有输出
5楼2015-04-16 09:45:58
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 小小糊涂虫 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 本科郑州大学,一志愿华东师范大学282求调剂 +27 熊哥xtk 2026-04-07 32/1600 2026-04-13 15:18 by xhd3152
[考研] 材料考研调剂 +29 云木达达 2026-04-11 31/1550 2026-04-13 13:32 by lyh鲁老师
[考研] 290求调剂 +18 柯淮然 2026-04-12 20/1000 2026-04-13 12:56 by cyh—315
[考研] 考研二轮调剂 +10 故人?? 2026-04-09 10/500 2026-04-13 09:55 by szhize
[考研] 材料085601调剂 +30 何润采123 2026-04-10 32/1600 2026-04-13 09:51 by szhize
[考研] 271求调剂 +23 2261744733 2026-04-11 23/1150 2026-04-13 08:48 by 学zh
[考研] 0831生医工第一轮调剂失败求助 +12 小熊睿睿_s 2026-04-11 16/800 2026-04-12 16:28 by 钰璞
[考研] 一志愿西北工业大学289 085602 +33 yang婷 2026-04-10 34/1700 2026-04-12 08:11 by Art1977
[考研] 296求调剂 +14 汪!?! 2026-04-08 15/750 2026-04-11 20:28 by dongdian1
[考研] 293求调剂 +6 勇远库爱314 2026-04-08 6/300 2026-04-11 10:08 by zhq0425
[考研] 一志愿211,化学学硕,310分,本科重点双非,求调剂 +17 努力奋斗112 2026-04-06 20/1000 2026-04-11 00:31 by wangjihu
[考研] 293调剂 +25 yj1221 2026-04-08 26/1300 2026-04-10 15:02 by 柴小白
[考研] 机械还有还有名额吗?太难了 +6 笑笑袁 2026-04-10 6/300 2026-04-10 11:54 by 高维春
[考研] 337求调剂 +4 Gky09300550, 2026-04-09 4/200 2026-04-09 17:18 by 帕尔马拉特
[考研] 086004 求调剂 309 +7 Yin DY 2026-04-08 7/350 2026-04-09 13:59 by Delta2012
[考研] 材料工程322 +18 哈哈哈吼吼吼哈 2026-04-07 19/950 2026-04-09 10:44 by cymywx
[考研] 一志愿211,化学学硕,310分,本科重点双非,求调剂 +10 努力奋斗112 2026-04-07 10/500 2026-04-08 15:01 by screening
[考研] 277求调剂 +4 考研调剂lxh 2026-04-06 6/300 2026-04-08 10:40 by 逆水乘风
[考研] 344求调剂 +11 魏子per 2026-04-07 11/550 2026-04-07 23:01 by JourneyLucky
[考研] 一志愿西南090202求调剂 +4 在线求有学上 2026-04-07 4/200 2026-04-07 19:47 by biomichael
信息提示
请填处理意见