作者h888512 (理论型嘴炮)
看板Programming
标题[问题] 新手请大家帮忙debug
时间Wed Oct 13 15:31:04 2010
是用fortran写的
program calculate
implicit none
real x(999)
integer counter,sum
integer, parameter :: limit=46
open(8,file='data.txt',status='old')
sum=0
do counter=1, limit,1
read(8,'1x,f4.1',err=99) x(counter)
sum =sum+x(counter)
99 close(1)
end do
write(*,*) sum/46
end
compile之後没有bug,可是读出来的东西是0
file和compiler都放在桌面上
请大家帮帮忙,谢啦!!
--
◥▁▁▁▁ ◢
◤
██ ／-
不..不要误会，我不是针对你..
□–□-◢◤
我是说在座的各位，都是垃圾....
▼ㄑ ◢
▼一 ／◣
https://www.youtube.com/watch?v=HWWMvpIhHNY ◢ /◣─ ◤ /█◣ ψdajidali
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.187.84
1F：→ Cypresslin:你的sum要拿来存放x，他们类别应相同 140.115.36.229 10/13 15:35
2F：→ Cypresslin:另外PTT有Fortran版喔！ 140.115.36.229 10/13 15:36
3F：→ h888512:请问可以说仔细一点吗,感谢~ 140.112.187.84 10/13 15:39
※ h888512:转录至看板 Fortran 10/13 16:13
4F：→ h888512:de出bug了!!感谢 140.112.187.84 10/13 21:50