作者chunyu (sailor 知)
看板Fortran
标题[问题] 新手问题：十进位转二进位再用二进位转回
时间Sun Mar 19 00:11:49 2023
小弟第一次接触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://webptt.com/cn.aspx?n=bbs/Fortran/M.1679155911.A.7F7.html