Fortran 四捨五入 [問題]

[wanghank12 (半天雲)]

題目是給我們k=1.2345678

要我們用write的format方法

顯示出

k=1

k=1.23

k=1.2345

k=1.234567
--------------------------------

program main

implicit none

real k

k=1.2345678

write(*,"(x,F6.4)")k

end

會顯示出1.2346

他自己四捨五入進位了

請教板上的高手

要怎麼改善這問題?

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.115.201.25
→ Semisphere:qq 中央有開Fortran的課程?
推 latinboy: 將k無條件捨去到第n位: k = INT(k*(10**n))/REAL(10**n)
推 Cypresslin:to 1F 有
→ wanghank12:以解決 我們是把K=1.2345678 轉成字串然後FORMAT取位數
推 agody:to 1F 不但有,就我所知還不只一門課有教Fortran
→ Semisphere:是整門課只教Fortran，還是數值分析用到Fortran的呀
推 agody:當然是整門課在教Fortran
→ wanghank12:我是數值分析用到FORTRAN