ifix floor
nint int ceiling (1.1 /
1.5 / -1.1 / -1.5)
ex: ifix
针对数据类型为real型
1.0000000
1.0000000
-1.0000000
-1.0000000
（正的向下取整，负的向上取整，都往0这个方向靠拢）
ex: floor
针对real数据类型
1.0000000
1.0000000
-2.0000000
-2.0000000
（向下取整）
ex: nint
针对real数据类型
1.0000000
2.0000000
-1.0000000
-2.0000000 (四舍五入)
ex:int
针对数据类型有real，integer，complex
1.0000000
1.0000000
-1.0000000
-1.0000000
（正的向下取整，负的向上取整，都往0这个方向靠拢）
ex: ceiling
针对real数据类型
2.0000000
2.0000000
-1.0000000
-1.0000000
（向上取整）
忽略代码定义的实型
program
main
implicit
none
real a, b,c,d
！ 改过来 integer a，b，c，d
a =
ifix(1.1)
b =
ifix(1.5)
c
=ifix(-1.1)
d
=ifix(-1.5)
write(*,*)
write(*,*) "ifix floor
nint int ceiling (1.1 /
1.5 / -1.1 / -1.5)"
write(*,*)
write(*,*) "ex: ifix
"
write(*,*)
a,b,c,d
a =
floor(1.1)
b =
floor(1.5)
c =
floor(-1.1)
d =
floor(-1.5)
write(*,*) "ex: floor
"
write(*,*)
a,b,c,d
a =
nint(1.1)
b =
nint(1.5)
c =
nint(-1.1)
d =
nint(-1.5)
write(*,*) "ex: nint
"
write(*,*)
a,b,c,d
a =
int(1.1)
b =
int(1.5)
c =
int(-1.1)
d
=int(-1.5)
write(*,*) "ex:int
"
write(*,*)
a,b,c,d
a =
ceiling(1.1)
b =
ceiling(1.5)
c
=ceiling(-1.1)
d
=ceiling(-1.5)
write(*,*) "ex: ceiling
"
write(*,*)
a,b,c,d
end
加载中，请稍候......
喜欢
加载中…