作者sjgau (sjgau)
看板Fortran
标题fortran 的 real*4 的精确度
时间Mon Dec 27 07:17:27 2010
! 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:
[email protected]
我的课程介绍网页：
http://www.csie.ntu.edu.tw/train/teacher_display.php?num=18
AutoCAD 台湾地区菁英讲师获选
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.137.104.67