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
.......
谢谢各位，由于本人金币不到三十个了，所以给不了太多，权当是略表心意了谢谢大家

回复此楼

» 猜你喜欢

最近几年招的学生写论文不引自己组发的文章已经有11人回复
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？已经有4人回复
需要合成515-64-0，50g，能接单的留言已经有3人回复
中科院杭州医学所招收博士生一名（生物分析化学、药物递送）已经有3人回复
临港实验室与上科大联培博士招生1名已经有8人回复
想换工作。大多数高校都是评职称时认可5年内在原单位取得的成果吗？已经有4人回复
带资进组求博导收留已经有9人回复

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

» 抢金币啦！回帖就可以得到:

查看全部散金贴

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的回帖