[問題] 為何這樣會爆掉@@@@@@@@@@@@@救命啊!!

看板Fortran作者darrenmm (mm)時間10年前 (2014/03/14 16:20)推噓1(1推 0噓 13→)

留言14則, 7人參與討論串1/3 (看更多)

我的程式碼如下: ============================================== program Q1 implicit none real,parameter :: n=30 real(kind=8) :: a(n) integer i real :: AA=0.0 do i=1,n a(i)=AA*3**i-0.4*(1/2)**i-0.1*i-0.05 write(*,*) a(i) end do stop end =============================================== 這是一個計算數列的小程式，但我不懂為何執行後到第a(20)就會爆掉.. 但如果我不用迴圈單純輸入a(20)=AA*3**20-0.4*(1/2)**30-0.1*30-0.05 這樣就可以成功了@@ 那到底為何無法用迴圈跑出來~~~救命啊 -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 140.112.26.246

→

kotogen

03/14 17:10, , 1^F

03/14 17:10, 1^F

→

gilocustom

03/14 17:58, , 2^F

03/14 17:58, 2^F

→

gilocustom

03/14 18:02, , 3^F

03/14 18:02, 3^F

http://ppt.cc/~MQT 就是會像這樣!到第19項就算不下去了.. 請幫幫我:(

→

gilocustom

03/14 18:20, , 4^F

03/14 18:20, 4^F

推

wenni

03/14 18:49, , 5^F

03/14 18:49, 5^F

可以給點提示嗎~"~ 難道a(n)不是用real? 但除了real也沒有別的東西可以用了啊@@.. *[1;31m→ *[33mgilocustom*[m*[33m:你已經排除a了，但是n、i與AA呢？ 03/15 00:00 都試過了.. 依然無解啊:( 我抓到應該是爆在3的20次方那裡.. 但是為何會爆掉呢而且是在迴圈裡才會爆掉如果單純計算 AA*3**20-0.4*(1/2)**20-0.1*20-0.05 就可以算出來詭異啊~~~~~~~ → Cypresslin:怎麼試的講講看吧 *[m 03/15 00:07 i跟n宣告integer應該沒問題吧 AA宣告real(kind=8) 依然crash..

→

gilocustom

03/15 00:54, , 6^F

03/15 00:54, 6^F

→

gilocustom

03/15 00:54, , 7^F

03/15 00:54, 7^F

=================修正過後=============== program Q1 implicit none integer,parameter :: n=30 real(kind=8) :: a(n) integer i real(kind=8) :: AA=0.0 do i=1,n a(i)=AA*3**i-0.4*(1/2)**i-0.1*i-0.05 write(*,*) a(i) end do stop end ========================================== 結果 http://ppt.cc/~MQT 附註：若a(n)改寫成a(n)=-0.4*(1/2)**i-0.1*i-0.05則程式成功。 ※ 編輯: darrenmm 來自: 111.240.210.163 (03/15 01:12)

→

gilocustom

03/15 01:21, , 8^F

03/15 01:21, 8^F

→

gilocustom

03/15 01:21, , 9^F

03/15 01:21, 9^F

→

gilocustom

03/15 01:22, , 10^F

03/15 01:22, 10^F