Re: [問題] 一個輸出的問題

看板Fortran作者 (sjgau)時間14年前 (2010/04/30 11:58), 編輯推噓1(100)
留言1則, 1人參與, 最新討論串3/4 (看更多)
你的問題,確實是 問題。 以下的程式,是我測試的結果, 請參考。 你先使用 答案正確的 那一種方式。 我再慢慢的 幫你找答案。 ! 以下的 block if 非常重要,他可以把整個段落的文章 ! 一下子 通通變成 註解。 !DEC$IF (.FALSE.) ! 0.000000E+00 ! 0.938560-218 ! 0.938560-218 ! 9.385600000000000E-219 Hello World, c= 63 Fortran Pause - Enter command<CR> or <CR> to continue. !DEC$ENDIF ! ----------------------------------------------- program VF0431 implicit none integer a, b, c real*8 x, y, z x= 0.938560E-218 write(*, 10)x 10 format(1x, E30.6) x= 0.938560D-218 write(*, 10)x x= 0.938560D-218 write(*, 20)x 20 format(1x, D30.6) x= 0.938560D-218 write(*, *)x ! ------------------------------------------- a= 5 b= 6 c= a*b print *, 'Hello World, c= ', c pause end program VF0431 ※ 引述《Gill0920 (不斷邁進!!)》之銘言: : 想請問~ 是不是10的次方 只有固定4個位子可以讓他輸出? : EX: 我跑出來的數值是 0.134678E+04 跟 0.938560-218 (但是其實是E-218) : 前者可以表示出"E" 但是 後者沒辦法表示出 E : 我的輸出表示為 E13.6 但是沒辦法顯示出 E : 請問各位高手~ 有什麼方法嗎? 可以強制寫出E嗎 因為資料很大 一個一個改會瘋掉XD : 麻煩大家~~ -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 61.20.174.139

04/30 12:19, , 1F
已寄信~~感謝!!!
04/30 12:19, 1F
文章代碼(AID): #1BsbM0IE (Fortran)
文章代碼(AID): #1BsbM0IE (Fortran)