24小时热门版块排行榜

返回列表

memgr

铜虫 (正式写手)

应助: 0 (幼儿园)
金币: 229.8
帖子: 330
在线: 101.4小时
虫号: 859962

[交流] 【求助】求fortra程序

被人想求高手编一个小小的程序是这样子的，读入一个文件，文件中包含下面两列数据，希望每一行的两个数据相加，得到一个数据，最后输出一个文件，文件中包含三列数据，分别是读入文件的两列数据与加和得到的一列数据
例如一个文件含下面两列数据
1 2
4 8
6 9
7 15
9 17
11  18
.......
希望得到文件为
1 2 3
4 8 12
6 9 15
7 15  22
9 17  26
11  18  29
.......
谢谢各位，由于本人金币不到三十个了，所以给不了太多，权当是略表心意了谢谢大家

回复此楼

» 猜你喜欢

2025冷门绝学什么时候出结果已经有3人回复
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入已经有4人回复
康复大学泰山学者周祺惠团队招收博士研究生已经有6人回复
AI论文写作工具：是科研加速器还是学术作弊器？已经有3人回复
孩子确诊有中度注意力缺陷已经有6人回复
2026博士申请-功能高分子，水凝胶方向已经有6人回复
论文投稿，期刊推荐已经有4人回复
硕士和导师闹得不愉快已经有13人回复
请问2026国家基金面上项目会启动申2停1吗已经有5人回复
同一篇文章，用不同账号投稿对编辑决定是否送审有没有影响？已经有3人回复

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

» 抢金币啦！回帖就可以得到:
查看全部散金贴

1楼2011-04-01 17:14:58

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

snoopyzhao

至尊木虫 (职业作家)

★ ★
微尘、梦想(金币+2): 谢谢回复…… 2011-04-03 17:59:05
memgr(金币+1): 2011-04-07 14:34:06

CODE:

program test

implicit none

integer :: a, b, ios

do

   read(*,*, iostat = ios) a, b

   if (ios < 0) exit

   write(*,'(3I5)') a, b, a+b

end do

end program test

假定你的数据文件是 foo.dat，输出文件为 bar.dat，上面程序编译的可执行程序是 a.exe

那么执行

a.exe < foo.dat > bar.dat

赞一下(1人)

回复此楼

2楼2011-04-01 19:49:48

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

memgr

铜虫 (正式写手)

应助: 0 (幼儿园)
金币: 229.8
帖子: 330
在线: 101.4小时
虫号: 859962

引用回帖:

Originally posted by snoopyzhao at 2011-04-01 19:49:48:

CODE:

program test

implicit none

integer :: a, b, ios

do

   read(*,*, iostat = ios) a, b

   if (ios < 0) exit

   write(*,'(3I5)') a, b, a+b

end do

end program test

假定 ...

谢谢高手指点能否说全点啊，在下是新手，是不是应该先open，读取数据，在进行操作啊，希望全点，越全越好，谢谢。

赞一下

回复此楼

3楼2011-04-03 09:17:28

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