中国DOS联盟

已经修改，在格式输出上正常.减法上的错误已经解决！请测试！
1111111111.1111111111-1111111111.1111111112=-0.0000000001

pengfei：怎么感觉你的代码比我的代码慢多了？

比你的是要慢, 测试同样的运算你的为三十多毫秒, 我的为五十来毫秒.

你的代码为小数整数一起运算, 在判断上走了捷径, 我当时编写的初忠是完全模拟人工计算. 因此代码也是最原始的计算方式.

我那段代码中使用的变量更多, 运算更为复杂,这也是影响速度的原因之一. 算法是程序的灵魂, 解决同样的问题效率都会不一样. 由于时间关系, 代码的优化已及更新稍候进行...

[ Last edited by pengfei on 2006-10-13 at 01:18 ]

实际以上脚本运算N位的数值范围并不现实, 原因在于环境变量存储空间是有限的...

代码更新，纠正变量过长时引起比较代码出错的问题！请测试！

嘎嘎~~~! 关于一楼第1段代码真是不忍心修改, 虽然算法是最原始的. 但实现这样的算法用批处理的三种基本结构来完成. 自己都有点沾沾自喜, 呵呵~ 我的心血呀!!!

还是不打算修改了, 要么就用新的算法写一段新的代码.

兄弟们多多帮忙测试一下一楼第1段代码的BUG...

原来你们早就处理好此事，我还想自己也写个计算器，不过，我想把你们的全部合并，做一个混合运算的calc

有无支持平方根的批处理？？

多搜索就有了

@echo off

set a=2

set/p p=请输入需要开平方的数字(0~89999999之间)

set/p w=请输入精确到小数点后几位(9以内)

:lp

set /a a=(p/a+a)/2,n=a*a,r=a,y=p-n

if %n% lss 0 goto lp

if %n% gtr %p% goto lp

if %n% equ %p% goto ok

if "%w%"=="" goto ok

set/a m=10,x=r*20,y*=100,b+=1

:lp1

set/a m-=1,s=(x+m)*m

if %s% gtr %y% goto lp1

if %w% neq 0 set/a y-=s,r=r*10+m,t=t*10+m,m=10,x=r*20,y*=100,w-=1&goto lp1

:ok

if not "%t%" == ""  set a=%a%.%t%

echo %p%开平方结果: %a%

pause>nul