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

作者: chunyu (sailor 知)   2023-03-19 00:11:49
小弟第一次接觸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
萬分感謝解惑

Links booklink

Contact Us: admin [ a t ] ucptt.com