作者fishrupm (哈啾)
看板Fortran
标题[问题] fortran77程式问题QQ
时间Thu Feb 26 01:06:55 2009
program test
implicit none
integer n,i,sum,d(100000) !宣告 n,i,sum,d 为整数
real average1,average2 !宣告 average1,average2 为实数
open(1,file='data.txt')
open(10,file='out.txt')
do i=1,100000
read(1,*,end=100) d(i) !读取(输入)资料 d(i)
n=i
enddo
100 continue
write(*,*) 'n=',n !在萤幕上显示出"n=",并列出 n 的数值
sum=0 !给定sum的起始值为0
do i=1,n !开始do回圈,执行1至n的加总
sum=sum+d(i)
enddo ! do回圈的结束
average1=sum/n
average2=real(sum)/n
write(*,*) 'sum=',sum
write(*,*) 'average1=',average1
write(*,*) 'average2=',average2
write(10,*) 'sum=',sum
write(10,*) 'average1=',average1
write(10,*) 'average2=',average2
stop
end
----------------
後来检查的时候有一个错误
可是我一直找不出来(刚学 程式是老师提供用的)
可以拜托帮我找一下吗>"<
谢谢大家
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 118.170.200.66
1F:推 t19861203:read(1,*,end=100) 是这边有问题吗? 02/26 01:23
2F:推 janhon:档案代码不要用1,用10以上比较好 02/26 02:52
3F:推 jsb: 应该是开档的时候没宣告 status 吧? 02/26 08:53
4F:→ jsb: 这是老师给的练习除错作业吗?感觉上是故意写给你学程式的。 02/26 08:55
5F:→ fishrupm:不是除错题 是老师要写给我们看怎麽用 >"< 02/26 09:36
6F:→ Semisphere:程式没错,多半是格式问题,要选fix format 02/26 14:03
7F:→ Semisphere:或是你开文字档贴上程式码,将副档名改成.f,用fortran 02/26 14:05
8F:→ Semisphere:开启後帮他增加专案档即可 02/26 14:06
9F:推 meteorology:程式放的资料夹路径不能是中文~ 02/26 15:31
10F:→ fishrupm:s大 我试过了 还是一个error m大我用的是英文^^ 谢谢你们 02/26 15:35
11F:→ Semisphere:错误讯息贴上来吧,我刚测试可以跑 02/26 17:04
12F:推 charlesdc:可以+1 CVF6.0 02/26 23:28
13F:→ fishrupm:98-test1.exe - 1 error(s), 0 warning(s) 02/27 13:15
14F:→ fishrupm:我知道哪里错了= =" 我把档案放在桌面 移到D槽就可以了 02/27 14:40
15F:→ fishrupm:谢谢大家的帮忙QQ 02/27 14:50