十进制 1.25 转为二进制......
Var
D1:Double;
Begin
D1:='1.25';
Edit1.Text:= D1的二进制表示? 0000 0001 . 0100 0000
D1:='1.50';
Edit1.Text:= D1的二进制表示? 0000 0001 . 1000 0000
D1:='1.99';
Edit1.Text:= D1的二进制表示? 0000 0001 . 1111 1111
End;
格式如上,十进制小数部分转二进制没有函数,循环×2取整数就可以得到的,大家帮我写个函数吧。只要帮我写小数部分的就行了。谢谢你们。