[問題] 新手問題:十進位轉二進位再用二進位轉回

看板Fortran作者 (sailor 知)時間1年前 (2023/03/19 00:11), 編輯推噓0(000)
留言0則, 0人參與, 最新討論串1/2 (看更多)
小弟第一次接觸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
文章代碼(AID): #1a5UB7Vt (Fortran)
文章代碼(AID): #1a5UB7Vt (Fortran)