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

回复此楼

» 猜你喜欢

垃圾破二本职称评审标准已经有19人回复
职称评审没过，求安慰已经有53人回复
毕业后当辅导员了，天天各种学生超烦已经有5人回复
26申博自荐已经有3人回复
A期刊撤稿已经有4人回复

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

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

查看全部散金贴

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

已阅回复此楼关注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的回帖

查看全部 5 个回答

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