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