易语言实现将32位IEEE754格式编码小数型高精度无损转换还原到文本字符串 (返回文本型)

CNWTEPRG

1. .版本 2
   
2. .支持库 eCalc
   
3. .支持库 spec
   
4. 
   
5. .程序集 程序集1
   
6. .程序集变量 正次方表, 大数, , "128", 初始化生成,后续只读
   
7. .程序集变量 负次方表, 大数, , "128", 初始化生成,后续只读
   
8. 
   
9. .子程序 _启动子程序, 整数型
   
10. 
    
11. 初始化次方表 ()
    
12. _临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
    
13. 返回 (0)  ' 可以根据您的需要返回任意数值
    
14. 
    
15. .子程序 _临时子程序
    
16. .局部变量 小数, 小数型
    
17. 
    
18. 小数 ＝ 0.1
    
19. 调试输出 (小数, 小数型_无损到文本 (小数), 到文本 (小数))
    
20. 小数 ＝ -1234567
    
21. 调试输出 (小数, 小数型_无损到文本 (小数), 到文本 (小数))
    
22. 输出调试文本 (小数)
    
23. 
    
24. .子程序 小数型_无损到文本, 文本型, 公开, 返回小数文本(高精度无损还原,没有e+,e-符号 失败返回INF或NAN
    
25. .参数 小数, 小数型, , 使用核心库的 到文本() 将损失精度 无损转换不丢失精度,且不出现e符号
    
26. .局部变量 符号位, 逻辑型, , , 真:负数 假:正数
    
27. .局部变量 指数位, 整数型, , , 范围:-127~128
    
28. .局部变量 尾数位, 整数型, , , 范围:0~8388607
    
29. .局部变量 大数, 大数, , , 小数运算结果
    
30. .局部变量 尾数精度, 大数, , , 2的指数位次方/8388608
    
31. .局部变量 尾数, 大数, , , 范围:0~8388607
    
32. .局部变量 初始化, 逻辑型, 静态
    
33. 
    
34. 符号位 ＝ 假
    
35. 指数位 ＝ 0
    
36. 尾数位 ＝ 0
    
37. 置入代码 ({ 80, 83, 139, 69, 8, 131, 248, 0, 125, 7, 187, 1, 0, 0, 0, 235, 2, 51, 219, 137, 93, 252, 80, 193, 232, 23, 37, 255, 0, 0, 0, 131, 232, 127, 137, 69, 248, 88, 37, 255, 255, 127, 0, 137, 69, 244, 91, 88 })
    
38. .如果真 (初始化 ＝ 假)
    
39.     初始化次方表 ()
    
40.     初始化 ＝ 真
    
41. .如果真结束
    
42. .判断开始 (指数位 ＝ -127 且 尾数位 ＝ 0)
    
43.     返回 (“0”)
    
44. .判断 (指数位 ＝ 128)
    
45.     .如果 (尾数位 ＝ 0)
    
46.         返回 (选择 (符号位, “-INF”, “INF”))
    
47.     .否则
    
48.         返回 (选择 (符号位, “-NAN”, “NAN”))
    
49.     .如果结束
    
50. 
    
51. .默认
    
52.     尾数.导入数字 (尾数位)
    
53.     .如果 (指数位 ≥ 0)
    
54.         大数 ＝ 正次方表 [指数位 ＋ 1]
    
55.     .否则
    
56.         大数 ＝ 负次方表 [0 － 指数位]
    
57.     .如果结束
    
58.     尾数精度 ＝ 大数.乘 (负次方表 [23])
    
59.     大数 ＝ 大数.加 (尾数精度.乘 (尾数))
    
60.     .如果真 (符号位)
    
61.         大数.负 ()
    
62.     .如果真结束
    
63. 
    
64. .判断结束
    
65. 返回 (大数.导出文本 ())
    
66. 
    
67. .子程序 初始化次方表, , , 第一次执行 小数型_无损到文本() 需要初始化
    
68. .局部变量 次方, 整数型
    
69. .局部变量 大数, 大数
    
70. .局部变量 大数二, 大数, , , 固定:2
    
71. .局部变量 大数半, 大数, , , 固定:0.5
    
72. 
    
73. 大数.导入数字 (1)
    
74. 大数二.导入数字 (2)
    
75. 大数半.导入数字 (0.5)
    
76. .计次循环首 (128, 次方)
    
77.     正次方表 [次方] ＝ 大数
    
78.     大数 ＝ 大数.乘 (大数二)
    
79. .计次循环尾 ()
    
80. 大数.导入数字 (1)
    
81. .计次循环首 (128, 次方)
    
82.     大数 ＝ 大数.乘 (大数半)
    
83.     负次方表 [次方] ＝ 大数
    
84. .计次循环尾 ()
    

复制代码