delphi cos函数问题

kiti 2010-11-22 09:23:21

edit1.text:=floattostr(cos(90*pi/180));
得到的结果为啥是 -2.71050543121376E-20 不是应该是0的吗?

...全文

269 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

goalone1985 2010-11-23

打赏
举报

这个结果都到小数多少位了。趋近于零，你用COPY函数，取前几位，结果就是0.000..

Frank.WU 2010-11-23

打赏
举报

第一，你的数值是 -2.71050543121376E-20
第二，float

bdmh 2010-11-22

打赏
举报

是趋近于0

Delphi编写程序，实现cos函数计算

_HELP函数集 ●●●●●●● ------------------------------------------------------------------ abs(x) 绝对值 arctan(x) 反正切 cos(x) 传回馀弦函数值 exp(x) e的x次幂 frac(x) 取小数部分 int(x) 取整 ln(x) 自然对数 sin(x) 传回正弦函数值 sqr(x) x*x sqrt(x) 平方根其它 pred(x) pred('D')='C', pred(true)=1; succ(x) succ('Y')='Z', succ(pred(x))=x ord(x) 求x在字符集中的序号,如ord('A')=65 chr(x) chr(65)='A' round(x) 四舍五入 trunc(x) trunc(4.8)=4,trunc('-3.6')=-3 upcase(x) upcase('a')='A' hi(I) hi($2A30)=$2A lo(I) lo($2A30)=$30 random(n) 产生[0,n)间的随机整数 sizeof(name) 求出某类型或变量在内存中占用的字节数 swap(num) swap($3621)=$2136

使用结构体实现；支持指数(exp)、对数(log)、三角函数(sin cos tan)、乘方(power)、开方(root)、加减乘除、4次及以下多项式求根(getroot)、求长度、求角度、各种操作符重载

/* 表达式计算 */ /* 调用方式：CalcExp('1+max(0.5,sin(1))+sum(1,2^3,mod(5,3))', res, infoStr) */ /* 带符号参数调用方法,先调用符号定义AddSignParam，再调用 CalcExp： */ /* AddSignParam(['a','s'], [1, 0.5]); 或者 AddSignParam('a=1,s=0.5') */ /* CalcExp('1+a+sin(s)', res, infoStr) */ /* 其中res存储计算结果，为double型；infoStr存储计算时的提示信息,为string */ 表达式计算器 V2.3 支持以下功能: 1、四则运算 + - * / 、括弧()、正负(+ -) 2、百分数 %、求幂 ^ 、整数阶乘 ! (1 至 150) 3、参数符号计算，示例：a+b @@a=1,b=2 结算结果为3 用@@表示表达式中定义符号的值 4、常数e、圆周率PI 5、丰富的函数功能: 统计函数： max,min,sum,avg,stddev 标准偏差，均支持多参数三角函数: sin,cos,tan,arcsin,arccos,arctan degrad(60) 角度转弧度 raddeg(3.14) 弧度转角度 costh(a,b,c) 余弦定理 cosC) 指数对数函数：sqrt,power(x,y),abs,exp,log2,log10,logN(a,N),ln 数据处理函数：int(x),trunc(x) 取整 frac(x) 取小数部分 round(x) 四舍五入取整 roundto(x,-1) 保留一位小数 mod(M,N) 求模几何面积函数：s_tria(a,b,c) 三角形面积 s_circ(r) 圆形面积 s_elli(a,b) 椭圆面积 s_rect(a,b) 矩形面积 s_poly(a,n) 正多边形面积平面几何函数：pdisplanes(x1,y1,x2,y2) 平面两点距离 pdisspace(x1,y1,z1,x2,y2,z2) 空间两点 p_line(x0,y0, A, B, C) 平面点到线距离 p_planes(x0,y0,z0 A, B, C, D)空间点到面距离数列求和: sn(a1, d, n) 等差数列前n项和 sqn(a1, q, n) 等比数列前n项和个税计算函数：intax(x), arcintax(x) 个税反算 6 、历史计算记录，双击计算记录可重新修改计算示例: sin(1)+(-2+(3-4))*20% , e^63+PI , 15! , log2(max(2,3)) 注: 运算符必须为半角格式，三角函为弧度，输入可用空格间隔

ESC:显示或隐含扩展输入框 F1: 显现帮助窗口 ESC:关闭帮助窗口 C：清输入框和输出值 AU：所见即得计算值（hd：关闭所见即得功能） MC：保留 M+: 累加累减寄存器（鼠标右击转换累加或累减） Mn:寄存器，可以存储十组数据（在Mn状态下，空格清空输入框，拖曳数据，自动保存->M0~M9）（在M0~M9状态下，空格清空输入框，回车，自动清除->Mn） ≈≈扩展部分≈≈ 复原：表达式宽(685)、显示宽度(14)、小数位数(6)复原以及所有数据初始化表达式宽：表达式宽度：扩展输入表达式的宽度显示宽度：输入输出数字精度位数：指定输出小数位数 (超出部分截断) 调色板：$000000~$ffffff,BGR (':'左右分别是底色和文字本色) 进制转换： toHex:输入十进制，输出十六进制 toBin:输入十进制，输出二进制 toDec:$输入十六进制，输出十进制 toDec:b输入二进制，输出十进制数学公式： mod:AmodB(得余数。输入A、B为十进制，输出十进制) div:AdivB(A整除B，得整数。输入A、 B为十进制，输出十进制) X^:A的B次方(2X^3=8) 2X^:2的B次方(2X^3=8) logN:X^的逆函数(8logN2=3) logN2:2X^的逆函数(8logN2=3) 逻辑运算： (and)：求与 (or):求或 (not):求非 (Xor):求异或(相异为1,相同为0) 转换函数： sin()、cos()、tg(): exp():eX^A(e=2.7182818284 eX^1) ln():exp()的逆函数 Char():输入字符，输出ASCII对应码 (Char(a)=97) Byte():输入ASCII对应码，输出字符 (Byte(30)='0') 使用技巧：各输入框支持鼠标拖曳功能，用鼠标划过选定复制内容，进行拖曳。放落后落点在光标所在处 delphi 源码开放

语言基础/算法/系统设计

16,749

社区成员

33,245

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章