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

回复此楼

» 猜你喜欢

青B发送上会通知了吗已经有14人回复
博士申请已经有5人回复
4,4二甲基联苯干啥用，有懂得吗已经有4人回复
某211大学教师把个人教师官方主页改成:我跑了我跑了我跑了!官宣跑路！已经有6人回复
西安交大新媒学院副院长用撤稿论文结题已经有7人回复
论文撤稿了已经有9人回复
化学专业申博已经有5人回复
招收2026级博士生已经有5人回复
宿州学院学报已经有3人回复
医学类期刊求推荐已经有6人回复

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

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

查看全部散金贴

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