24小时热门版块排行榜    

CyRhmU.jpeg
南方科技大学公共卫生及应急管理学院2025级博士研究生招生报考通知
查看: 679  |  回复: 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的回帖

gurong

铁虫 (正式写手)


nono2009(金币+1,VIP+0):欢迎常来程序软件版学习交流。 12-24 11:14
学习中,呵呵
7楼2009-12-24 10:44:31
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 tpp001 的主题更新
普通表情 高级回复(可上传附件)
信息提示
请填处理意见