中国DOS联盟

C:\>set/a a=999999999999999999999/8
无效数字。数字精确度限为 32 位。

我在想被除数尾数上加41个0，不是位数更多？还可以计算？为什么？

被除数尾数上加41个0是为了输出小数加的，我那个脚本可以就是上千位的被除数，不信你自己试下

看了一下102楼qwe1234567版主的代码, 写的很不错, 吸取了前面的精华, 把he200377兄的为了提高精度在后面加零反复计算的方案改成了被把除数除完9位再一位一位的取出来算. 因此突破了被除数的位数限制. 在一些细节方面考虑得更加全面, 比如小数点进位等. 这就是集体智慧的结晶.

要想突破除数位数限制, 需要更加发散的思路. 而我那个非常恐惧的算法一直没有勇气实现他. 可能我真的有点害怕, 害怕他的效率会让你们吓一跳...

[ Last edited by pengfei on 2006-10-21 at 00:45 ]

要想突破除数位数限制, 需要先设计个思路

突破除数位数限制 我看没有什么好方法，实在想不出了我是

我到是可以突破除数位数限制，方法正在构思中

Originally posted by qwe1234567 at 2006-10-21 23:01:
我到是可以突破除数位数限制，方法正在构思中

说说思路哈~方法大家想嘛，哈哈~

用模拟数组方法？
快说啊～～～：）））

就是先除，在乘，在减

Originally posted by qwe1234567 at 2006-10-21 23:20:
就是先除，在乘，在减

还是不明白~

等我发表了你看下就明白了

OK, 看你的作品, 我那个算法虽然突破了位数限制, 但效率太低了.

经过几天的连续测试和代码优化，终于把可以对N位实数进行除法运算的脚本做出来了，不过除数最好在16位也内，否则等待时间就太长了，除数位数越多等待时间越长！请大家测试。。。。
哎，CMD的运算速度太慢了。。。。

@echo off

cls

title 中国DOS联盟论坛 qwe1234567制作

color 17

setlocal enabledelayedexpansion

if not %1*==* (set num1=%1&if not %2*==* (set num2=%2&goto jmp) ELSE goto 错误)

:输入

set num1=

set num2=

echo				     实 数 除 法 运 算 脚 本

echo.

echo		        该脚本理论上可以对N位以内的实数进行除法运算

echo.

echo		 注意: 除阿拉伯数字外, 第一位允许输入符号"-", 以及最多一个"."号, 

echo			  不允许输入其他字符。否则, 都将视为错误输入...

echo.

echo 						中国DOS联盟论坛 qwe1234567制作

set/p num1=请输入被除数:

set/p num2=请输入除数:

:jmp

set fh1=

set fh2=

set fh=

if %num1%*==* goto 错误

if %num2%*==* goto 错误

if %num1:~0,1%==- set fh1=-&set num1=%num1:~1%

if %num2:~0,1%==- set fh2=-&set num2=%num2:~1%

if %fh1%*==-* (if %fh2%*==* set fh=-) else if %fh2%*==-* set fh=-

set err=0

echo %num1%|find ".">nul&&set num1=0%num1%0

call :去错 %num1% num1

echo %num2%|find ".">nul&&set num2=0%num2%0

call :去错 %num2% num2

if %err%==1 goto 错误

for /f "tokens=1* delims=." %%a in ("%num1%") do (set o1=%%a

set t1=%%b)

for /f "tokens=1* delims=." %%a in ("%num2%") do (set o2=%%a

set t2=%%b)

call :去首0 %o1%

set o1=%sw%

call :去首0 %o2%

set o2=%sw%

call :去尾0 %t1%

set t1=%sw%

call :去尾0 %t2%

set t2=%sw%

if not %t1%==0 (set o3=%o1%.%t1%) else set o3=%o1%

if not %t2%==0 (set o4=%o2%.%t2%) else set o4=%o2%

if %o4%==0 goto 错误

if %o3%==0 echo 计算结果是0÷%fh2%%o4%=0&goto 输入

call :计数 %t1%

set s1=%sw%

call :计数 %t2%

set s2=%sw%

If %s1% geq %s2% (set/a s3=s1-s2

call :加尾0 !s3! %t2%

set t2=!sw!

) ELSE (set/a s3=s2-s1

call :加尾0 !s3! %t1%

set t1=!sw!)

set tmp1=%o1%%t1%

set tmp2=%o2%%t2%

call :去首0 %tmp2%

set tmp2=%sw%

call :计数 %sw%

set s2=%sw%

call :去首0 %tmp1%

set tmp1=%sw%

call :计数 %sw%

set s1=%sw%

set/a zsw=s1-s2

call :去尾0 %tmp2%

set tmp2=%sw%

call :计数 %sw%

set s2=%sw%

if %sw% gtr 8 set/a s2=8-sw

set tmp1=%tmp1%0000000000000000000000000000000000000000

set tmp=!tmp1:~0,%sw%!

set sw1=!tmp1:~%sw%!

set jg=

set tmp1=%tmp2:~0,8%

set sw0=!tmp:~0,%s2%!

if %sw% LEQ 8 set/a s2+=1

:开始计算

set/a jg0=sw0/tmp1

:计算

if %jg0%==0 goto 结果

set a1=%tmp2:~-8%

set a2=%tmp2:~0,-8%

set a3=*

set a4=0

set ji=

:乘

if %a1:~0,1%==0 set a1=1%a1%&set a3=1

set/a ji0=jg0*a1+a4

if %a3%==1 set ji=%ji:~-8%

set a4=%ji0:~0,-8%

set ji=%ji0:~-8%%ji%

if %a4%.==. set a4=0

if %a2%.==. goto 减

set a1=%a2:~-8%

set a2=%a2:~0,-8%

goto 乘

:减

if not %a4%==0 set ji=%a4%%ji%

set a1=%tmp%

set jg1=0

set jg2=

:减法

set a2=%a1:~-9%

set a1=%a1:~0,-9%

if not %a1%.==. set a2=1%a2%

set a3=%ji:~-9%

call :去首0 %a3%

set a3=%sw%

set ji=%ji:~0,-9%

set/a jg5=a2-a3+jg1

set/a jg1=0%jg5:~0,-9%-1

if %a1%.==. (if %jg5:~0,1%==- (set jg1==-1) else set jg1=0)

:1

if not %a1%.==. if %jg5:~0,-8%.==. set jg5=0!jg5!&goto 1

set jg2=%jg5:~-9%%jg2%

if %a1%*==* (if %jg1%==-1 (set/a jg0-=1&goto 计算) ELSE set tmp=%jg2%&goto 结果)

goto 减法

:结果

if %sw1%.==. set jg=%jg%%jg0%&goto 显示

set tmp=%tmp%%sw1:~0,1%

call :去首0 %tmp%

set tmp=%sw%

set sw1=%sw1:~1%

set jg=%jg%%jg0%

set sw0=!tmp:~0,%s2%!

goto 开始计算

:显示

if not %jg:~0,1%==0 (set/a zsw+=1)

if %jg:~0,1%==0 set jg=%jg:~1%

if %zsw% gtr 0 goto jxs

for /l %%c in (0,-1,!zsw!) do set jg=0!jg!

set o1=%jg:~0,1%

set o2=%jg:~1%

goto xs

:jxs

set o1=!jg:~0,%zsw%!

set o2=!jg:~%zsw%!

:xs

call :去尾0 %o2%

set o2=%sw%

if %o2%==0 (set jg=%o1%) else set jg=%o1%.%o2%

echo 计算结果是:

echo %fh1%%o3%/%fh2%%o4%=%fh%%jg%

pause

goto :eof



:去首0

set sw=%1

:qs1

if %sw%==0 goto :eof

if %sw:~0,1%==0 set sw=!sw:~1!&goto qs1

goto :eof

:去尾0

set sw=%1

:qw1

if %sw%==0 goto :eof

if %sw:~-1%==0 set sw=!sw:~0,-1!&goto qw1

goto :eof

:计数

set sw=0

set sw1=%1

if %sw1%==0 set sw=1&goto :eof

:js1

if not %sw1%*==* set sw1=%sw1:~1%&set/a sw+=1&goto js1

goto :eof

:去错

echo %1|find ".">nul||set %2=%1.0

for /f "tokens=1* delims=." %%i in ("%1") do echo %%i%%j|findstr "^*$">nul||set err=1

goto :eof

:加尾0

set sw=%2

if %1==0 goto :eof

for /l %%c in (1,1,%1) do set sw=!sw!0

goto :eof

:错误

echo 你输入了非法字符或者除数是0!

echo 请重新输入...

goto 输入

这个脚本的长度是4K。

qwe1234567版主 这个写的就好多了，哈哈带了说明，看着也不累~顶一个