作者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