24小时热门版块排行榜

>论坛更新日志 (3008)
>虫友互识 (576)
>论文投稿 (177)
>休闲灌水 (150)
>基金申请 (129)
>导师招生 (102)
>文献求助 (100)
>公派出国 (67)
>硕博家园 (55)
>博后之家 (54)
>考博 (44)
>教师之家 (33)
>考研 (29)
>论文道贺祈福 (26)
>找工作 (24)
>绿色求助(高悬赏) (11)

返回列表

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

回复此楼

» 猜你喜欢

求个博导看看已经有14人回复
上海工程技术大学张培磊教授团队招收博士生已经有3人回复
上海工程技术大学【激光智能制造】课题组招收硕士已经有5人回复
求助院士们，这个如何合成呀已经有4人回复
临港实验室与上科大联培博士招生1名已经有9人回复
想换工作。大多数高校都是评职称时认可5年内在原单位取得的成果吗？已经有7人回复
需要合成515-64-0，50g，能接单的留言已经有4人回复
自荐读博已经有4人回复
写了一篇“相变储能技术在冷库中应用”的论文，论文内容以实验为主，投什么期刊合适？已经有6人回复
带资进组求博导收留已经有10人回复

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

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

查看全部散金贴

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