作者h888512 (理論型嘴砲)
看板Fortran
標題[問題] 新手請大家幫忙debug
時間Wed Oct 13 16:13:15 2010
※ [本文轉錄自 Programming 看板 #1CjM0zmB ]
作者: 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
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.112.187.84
4F：推 youlieme:sum應該宣告為real 不然小數會捨去 若x都小於1就都會是0 10/13 16:21
5F：→ h888512:改完了 不過結果一樣耶... 10/13 16:24
6F：推 youlieme:你在迴圈裡把 x(counter) write出來看一下有沒有問題 10/13 17:12
7F：推 meteorology:46. 10/13 20:15
8F：→ gilocustom:讀取的格式字串缺括號。 10/13 20:20
9F：→ h888512:天阿...我竟然犯這種錯誤...謝謝樓上 10/13 21:40