加载中…FORTRAN中如何四舍五入
(2009-12-29 20:24:11)
标签：
杂谈 |
分类： 专业学习 |
1. ANINT產生的結果還是REAL, 只是小數點之後的數值已經處理
2. 你的問題可以參看下面的例子﹕
Implicit None
Integer :: I,J, K
Real :: X, Y,Z
X = 1.234567
Print *,"X ANINT(X) = ", X,ANINT(X)
Print *,"X ANINT(X*10.)/10. = ",X, ANINT(X*10.)/10. ！ 四舍五入到小数点后一位
Print *,"X,ANINT(X*100.)/100. = ",X,ANINT(X*100.)/100. ！ 四舍五入到小数点后两位
Print *,"X ANINT(X*1000.)/1000. = ",X, ANINT(X*1000.)/1000.
End
2. 你的問題可以參看下面的例子﹕
Implicit None
Integer :: I,J, K
Real :: X, Y,Z
X = 1.234567
Print *,"X ANINT(X) = ", X,ANINT(X)
Print *,"X ANINT(X*10.)/10. = ",X, ANINT(X*10.)/10.
Print *,"X,ANINT(X*100.)/100. = ",X,ANINT(X*100.)/100. ！ 四舍五入到小数点后两位
Print *,"X ANINT(X*1000.)/1000. = ",X, ANINT(X*1000.)/1000.
End
喜欢
0
赠金笔
后一篇：建议读读的专业书籍