fortran 的 real*4 的精確度
! VF0658.f90
!dec$if (.false.)
這個是 段落式的 註解，
以下為 程式的輸出。
x, y= 1.6777216E+07 1.6777216E+07
16777216.000 16777216.000
--> 2^n, n= 24.00000
Fortran Pause - Enter command<CR> or <CR> to continue.
以下為 說明：
real*4 為 32個 bits,
1個 bits 代表數字的 正／負
8個 bits 代表數字的 數量級，2^n, --> 1.7*10^(+/- 38)
23個 bits 代表數字的 精確度，如上
!dec$endif
! ---------------------------------------------------------
program VF0658
implicit none
real*4 x, y, z
x= 10
y= x + 1
! y > x
do while (y .GT. x)
x= x + 1
y= x + 1
end do
! y <= x
print *, 'x, y= ', x, y
write(*, '(1x, 2F20.3)')x, y
z= log(x)/log(2.0)
print *, '--> 2^n, n= ', z
pause
end program VF0658
--
e-mail: sjgau4311@gmail.com
我的課程介紹網頁：
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18
AutoCAD 台灣地區菁英講師獲選
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 114.137.104.67
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
