[問題] 新手問題：十進位轉二進位再用二進位轉回
小弟第一次接觸Fortran，先前完全沒有其他程式語言基礎，想請問各位神大
假設兩個數值分別是 k1=3.1415和 k2=2.71828 ，怎麼轉成二進位（取到小數第6位）再轉回十進位，並計算其值與原值的差？
IMPLICIT NONE
Real*4 k1, k2
k1=3.1415
k2=2.71828
WRITE(*,'("Binary -> ", 2B32.6)') k1, k2
OPEN(unit=20, file='FT_01031201_EX04_2.out')
WRITE(20,'("Binary -> ", 2B32.6)') k1, k2
只會寫到這裡
從下面開始，改怎麼利用剛剛算的二進位值再轉十進位？
WRITE(*,'("Output the data")')
50 FORMAT('Output the data')
WRITE(20,50) 'Integer -> ', 2I32.6 ,k1, k2
CLOSE(20)
END
萬分感謝解惑
-----
Sent from JPTT on my iPad
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.36.248.203 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Fortran/M.1679155911.A.7F7.html
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章