作者sjgau (sjgau)
看板Fortran
标题Re: [问题] 一个输出的问题
时间Fri Apr 30 11:58:54 2010
你的问题，确实是 问题。
以下的程式，是我测试的结果，
请参考。
你先使用 答案正确的 那一种方式。
我再慢慢的 帮你找答案。
! 以下的 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
1F：推 Gill0920:已寄信~~感谢!!! 04/30 12:19