24小时热门版块排行榜    

CyRhmU.jpeg
查看: 684  |  回复: 8
当前主题已经存档。
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

tpp001

金虫 (著名写手)

[交流] 【求助】写了一个小程序出错,请大家帮忙【已解决】

我想编一个从一个文件z.txt中读取数据,把这个文件中的数据都除以一个常数(changshu),把结果写入一个名字为jieguo的文件中,我是新手,刚刚开始学,请大家帮忙谢谢了!

program xiangchu
integer i
parameter (j=94240, chushu=1.375E-3) !定义了文件中有多少行和除数.
real Z(i), N(i)
open (1,file="z.txt",status='old') !打开了一个z.txt文件
read (1,*)(Z(i),i=1,j) !读取文件中的数据
close(1)
do i=1,j,1
N(i)=Z(i)/chushu !计算文件中的每一个数除以一个常数
end do
write(jieguo)N(i) !把结果写入一个名字是jieguo的文件中
end

[ Last edited by nono2009 on 2009-12-25 at 09:17 ]
回复此楼
迷茫在知识的海洋里,需要你的指导。thankyou
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

黄胖胖

木虫 (正式写手)


nono2009(金币+1,VIP+0):给个圣诞小礼包!祝新年心想事成! 12-25 09:50
圣诞快乐!
9楼2009-12-25 09:28:10
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 tpp001 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见