推 dennyb:不是很懂，不過在n=n+1這裡似乎會造成計數器跑不到末數 11/01 01:05
→ dennyb:因為n被不斷的加，所以迴圈做不完，於是程式就自動跳過這個 11/01 01:05
→ dennyb:do的指令。 另外a的分母應該是!才是，所以還要做一個迴圈 11/01 01:06
→ dennyb:把!=1*2*3...*n做出來。 11/01 01:07
推 FosterIX:對了 是1/n!<0.0005才會停下來吧 11/01 08:04
我..我...我.....寫不出來啦~~~~~~
real:: e, a
integer::n
e = 1.
n = 1
DO i = 1,n,1
a = 1. / n
if (a< 0.0005) exit
e = e + a
n = n + 1
ENDDO
為什麼我跑出來的值都是1
我不知道怎麼改啦><"
救我!!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.211.7.160