Delphi如何直接取浮点数的幂

2010-01-18 04:56:27 274 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Delphi浮点数显示精度问题经过单步调试，发现在从数据集中获取值（LTemp:= ADOTable1.FieldByName('Value1').AsFloat;）时便是如此：数据库中值为10.1，获取时 LTemp为10.1000003814697。通过更改设置Access数据库，字段为：数字->双精度，当界面表格显示时，采用赋值单元格形式。软件使用Access数据库，字段设置：数字->单精度，当界面表格显示时，采用赋值单元格形式。阅读详情

一个浮点数变量Val，如何通过Delphi的函数（注意是Delphi的函数而不是自定义的函数）直接取它的幂值？

比如当Val:=101.3时，它的科学表达式形式为“1.013E+2”，我想得到它的幂值“2”
当Val:=0.0103时，它的科学表达式形式为“1.013E-2”,我想得到的值是“-2”

...全文

3D-IC测试挑战与Tessent解决方案解析 3D-IC技术通过硅通孔(TSV)实现芯片垂直堆叠，是延续摩尔定律的关键路径。该技术面临三大核心挑战：KGD标准严苛化要求测试覆盖率达99.5%以上，存储器测试需兼容LPDDR/HBM等多种协议，逻辑堆叠需解决TSV互连的电气特性和时序验证问题。Mentor Tessent平台采用混合测试架构，结合压缩扫描测试(ATPG)和内建自测试(BIST)技术，实现100x测试数据压缩比和99.97%的TSV缺陷检出率。这些创新方案在移动SoC和高性能计算芯片中已获验证，测试时间缩短73%，缺陷逃逸率降低77%。随着阅读详情

wooden954

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

wooden954 2010-01-19

打赏
举报

没有人有其它思路了？？

wooden954 2010-01-19

打赏
举报

4楼所贴是Log10函数的实现，只有4句汇编，速度应该是非常快的。

wooden954 2010-01-19

打赏
举报

看来应该是Log10函数最快了，结贴给分！

yyyyyhhhhwwww 2010-01-19

打赏
举报

2楼正解，顶

日立奔腾浪潮微软松下联想 2010-01-19

打赏
举报

x86的浮点遵循IEEE754标准，但是有单精度、双精度、扩展精度的差别，另外Delphi中还有real48自定义格式，你自己分析不会快的。

wooden954 2010-01-18

打赏
举报

不知道Delphi的浮点数在不同型号的CPU（但仅限于X86或X64系列机)上是否采用的同一种格式，如果是的话，我倒是想直接分析浮点数的阶码得到幂。

npkaida 2010-01-18

打赏
举报

[Quote=引用 2 楼 supertitan001 的回复:]
edit1.Text:=inttostr(round(log10(strtofloat(edit1.Text))));
[/Quote]
2 楼正解
round(log10(101.3)) ---> 2
round(log10(0.0103)) ---> -2

亮剑_ 2010-01-18

打赏
举报

[Quote=引用 2 楼 supertitan001 的回复:]
edit1.Text:=inttostr(round(log10(strtofloat(edit1.Text))));
[/Quote]
原来有函数



function Log10(const X: Extended): Extended;

  { Log.10(X) := Log.2(X) * Log.10(2) }

asm

        FLDLG2     { Log base ten of 2 }

        FLD     X

        FYL2X

        FWAIT

end;

亮剑_ 2010-01-18

打赏
举报

1、用mod，以1为分界值
2、利用FormatFloat，再提取幂值

SuperTitan001 2010-01-18

打赏
举报

edit1.Text:=inttostr(round(log10(strtofloat(edit1.Text))));

wooden954 2010-01-18

打赏
举报

查了一下关于Math的单元函数，貌似没有直接支持的函数
不知道其它单元有没有。

如果实在没有，我会把分给算法效率最高的一位。

Delphi如何直接取浮点数的幂

相关推荐