中国DOS联盟

欢迎继续测试~

@echo off

title 批处理除法运算脚本    by:Ye - *    bbs.cn-dos.net

:start

cls   

call :del.bat  

echo.                          

echo  bbs.cn-dos.net

echo --------------------------------------------------------------------------------

echo  程序用途: 两个数的除法运算,被除数和除数都可以是小数

echo  使用说明: 1.被除数或除数的整数位和小数位之和最多9位,超过可能会出错

echo              不过通过下面这个例子,原理上被除数可以计算到任意位:

echo              789/9=(7/9)的值补00+(8/9)的值补0+9/9

echo            2.被除数或除数可简写输入,输入下面这些都可以执行: 9. or .9

echo            3.任何位置输入 ^&、^"、^<、^>、^|、空格 中的任何一个都会引起错误

echo            4.如果出现"无效数字。数字精确度限为 32 位",是位数太多了,结果无效

echo --------------------------------------------------------------------------------

set num1_k=

set /p num1_k= 输入被除数:

if == goto start

:: 判断是否为纯数字

call :pan_c_num %num1_k%

:: 判断是否输入两个以上的.

call :q_wei %num1_k%



set num2_k=

set /p num2_k=   输入除数:

if == goto start

call :pan_c_num %num2_k%

call :q_wei %num2_k%



set num1=%num1_k%

set num2=%num2_k%



:: 判断常见的几种情况

if %num2%==0 (echo  错误:除数不可以为0&pause>nul&goto start)

if %num1%==0 (set zhi=0& goto show)

if %num1%==%num2% (set zhi=1& goto show)

if %num1%==. (set zhi=0& goto show)

if %num2%==. (echo  错误:除数不可以为.&pause>nul&goto start)



:: 为.xx xx.和xx补全

>var_.txt echo %num1%

find "." var_.txt>nul&& (if %num1:~0,1%==. set num1=0%num1%

                         if %num1:~-1,1%==. set num1=%num1%0)||set num1=%num1%.0

>var_.txt echo %num2%

find "." var_.txt>nul&& (if %num2:~0,1%==. set num2=0%num2%

                         if %num2:~-1,1%==. set num2=%num2%0)||set num2=%num2%.0



:: 算全部的位数

call :q_wei %num1%

set n1_wei=

set /p n1_wei=<var_.txt

call :q_wei %num2%

set n2_wei=

set /p n2_wei=<var_.txt



:: 算小数点以后的位数

call :x_wei %num1% %n1_wei%

set x1_wei=

set /p x1_wei=<var_.txt

set /a x1_wei=x1_wei-1

call :x_wei %num2% %n2_wei%

set x2_wei=

set /p x2_wei=<var_.txt

set /a x2_wei=x2_wei-1



:: 比较小数位大小，并补小数位到位数相同

if %x1_wei%==%x2_wei% goto wei_t

set max_wei=%x1_wei%

if %max_wei% lss %x2_wei% (set max_wei=%x2_wei%)

set /a bu1_wei=%max_wei%-%x1_wei%

set /a bu2_wei=%max_wei%-%x2_wei%

if %bu1_wei%==0 goto bu_w1_ok

    call :bu_xwei %bu1_wei%

    set x1_wei_0=

    set /p x1_wei_0=<var_.txt

    set num1=%num1%%x1_wei_0%

:bu_w1_ok

if %bu2_wei%==0 goto bu_w2_ok

    call :bu_xwei %bu2_wei%

    set x2_wei_0=

    set /p x2_wei_0=<var_.txt

    set num2=%num2%%x2_wei_0%

:bu_w2_ok

:wei_t

set x_wei=0



:: 去除.

set num1=%num1:.=%

set num2=%num2:.=%



:: 算新的全部的位数

call :q_wei %num1%

set n1_xwei=

set /p n1_xwei=<var_.txt

call :q_wei %num2%

set n2_xwei=

set /p n2_xwei=<var_.txt



:: 位数大于8无法计算,这里,因为set /a 好象最大可以计算到8888888/9999999

if 8 LEQ %n1_xwei% (echo 数字位数太多,暂时计算不了&pause>nul&goto start)

if 8 LEQ %n2_xwei% (echo 数字位数太多,暂时计算不了&pause>nul&goto start)



:: 第一位如果是0就去除

if %num1:~0,1%==0 (

          call :qu_0 %num1% %n1_xwei%

          set num1=

          set /p num1=<var_.txt

                   )



if %num2:~0,1%==0 (

          call :qu_0 %num2% %n2_xwei%

          set num2=

          set /p num2=<var_.txt

                   )



:: 这是防止输入0.0 0.00 等 00 000 等=0的数字而无法执行程序

:: 因为当某个数为0时,第一位如果是0就去除,这样这个数就是空了,写入文件的时候为"ECHO 处于关闭状态。"

>var_.txt echo %num1%

find "关闭状态" var_.txt>nul&&(set zhi=0& goto show)

>var_.txt echo %num2%

find "关闭状态" var_.txt>nul&&(echo  错误:除数不可以为0&pause>nul&goto start)



:: 比较大小,1>2才继续运行

:fc_

if %num1% GEQ %num2% goto fc_ok

                          set /a num1=%num1%*10

                          set /a x_wei=x_wei+1

                          goto fc_ 

:fc_ok



:: 开始计算

call :jisuan %num1% %num2%

set zhi=

set /p zhi=<var_.txt



:: 开始补小数位

if %x_wei%==0 goto show



:: 去除值中的.

set zhi_=

set zhi_=%zhi:.=%



if %x_wei%==1 (

          set zhi_=

          set zhi=0.%zhi_%

          goto show

              )



:: 其余就是%x_wei%大于1的情况

set /a x_wei-=1

call :bu_xwei %x_wei%

set zhi_bu=

set /p zhi_bu=<var_.txt

set zhi=

set zhi=0.%zhi_bu%%zhi_%

   

goto show

:: 显示结果

:show

call :del.bat

echo --------------------------------------------------------------------------------

echo  运算结果:

echo  %num1_k%/%num2_k%=%zhi%

echo --------------------------------------------------------------------------------

echo                                                           按任意键继续计算......&pause>nul&goto start



:: $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$



:q_wei

set var=

set var=%1

setlocal ENABLEDELAYEDEXPANSION

set n=0

set d_geshu=0

:start_a

set "var_=!var:~%n%,1!"

if "%var_%" == "" goto end_a

:: 记录点的个数

if == set /a d_geshu=d_geshu+1

set /a n=n+1

goto start_a

:end_a

>var_.txt echo %n%

:: 判断.的个数,有两个以上的.退出

if %d_geshu% gtr 1 (echo  错误:被除数或除数只可以由数字和一个.组成&pause>nul&goto start)

goto :eof



:del.bat

if exist var_.txt del /q var_.txt>nul

goto :eof



:x_wei

setlocal ENABLEDELAYEDEXPANSION

set var=

set var=%1

set n=0

:start_b

set "var_=!var:~-%n%,1!"

if "%var_%"=="." goto end_b

set /a n=n+1

if %n%==%2 goto end_b

goto start_b

:end_b

>var_.txt echo %n%

goto :eof



:jisuan

set var1=

set var2=

set n=0

set zhi_x=

set var1=%1

set var2=%2

:start_c

if %var1%==0 goto end_c

set /a zhi=%var1%/%var2% 

set /a var1=(var1-%var2%*%zhi%)*10

set /a n=n+1

if %n%==2 (set zhi_x=%zhi_x%.%zhi%) else (set zhi_x=%zhi_x%%zhi%)

:: 这里的if %n%==10是算10次,为了算的更精确，可以设置更大

if %n%==10 goto end_c

goto start_c

:end_c

>var_.txt echo %zhi_x%

goto :eof



:bu_xwei

set var=

set var=%1

set wei=

set n=0

:start_d

set /a n=n+1

set wei=%wei%0

if %n%==%var% goto end_d

goto start_d

:end_d

>var_.txt echo %wei%

goto :eof





:qu_0

set var=

set var=%1

setlocal ENABLEDELAYEDEXPANSION

set n=0

set shu=

:start_e

set "var_=!var:~%n%,1!"

if not "%var_%"=="0" goto end_e

set /a n=n+1

goto start_e

:end_e

:start_e_1

set "var_=!var:~%n%,1!"

set shu=%shu%%var_%

set /a n=n+1

if %n%==%2 goto end_e_1 

goto start_e_1

:end_e_1    

>var_.txt echo %shu%

goto :eof



:pan_c_num

:: 判断是否为纯数字,先替换了.为空

set var_=%1

set var_=%var_:.=%

>var_.txt echo %var_%

findstr "^*$" var_.txt>nul||(echo  错误:被除数或除数只可以由数字和一个.组成&pause>nul&goto start)

goto :eof

你这个脚本是支持几位数的计算？
输入被除数:99.66666
输入除数:9.966666
数字位数太多,暂时计算不了

思路:
两数字长度有限:
FOR /L %%i IN (start,step,end) DO if "%num1:~"%%i",1" == "".""set set num1=%%i
得到小数点位置.
很多或未知,用循环即.
set /a i=0
:start
if "%num1:~"%%i",1" == "".""set set num1小数点位置=%%i &goto :end &::find用XP好像是外部命令
set /a i+=1
goto :start
得到两数字的小数点位置.
从小数点开始顺环计算整数部分.
如:
set /a k=num1小数点位置
set /a j=num2小数点位置
:start1
if %num1:%k%,1% =="" set num11=0
if %num2:%j%,1% =="" set num22=0
set /a num11=%num1:%k%,1%
set /a num22=%num2:%j%,1%
set /a Valu=num11+num22
set /a k+=1 &set /a j+=1
if if %num1:%k%,1% =="" if %num2:%j%,1% =="" else :goto :end1
同理处理小数点后的位数.
再用ECHO输出
上的%num2:%j%,1% 中间变量能否用ALT+8来做计算没测试.

Originally posted by qwe1234567 at 2006-10-19 08:56:
你这个脚本是支持几位数的计算？
输入被除数:99.66666
输入除数:9.966666
数字位数太多,暂时计算不了

里面我设置了小于7，可以取消看看

rem 测试系数是WINXPSP2
::C:\>ver
::
::Microsoft Windows XP
@echo off
set asicc=智123445679890弱ceho
%asicc:~-3,1%%asicc:~-4,1%%asicc:~-2% %asicc:~-5,1%%asicc:~0,1%制作:QQ%asicc:~4,2%%asicc:~1,1%%asicc:~6,1%%asicc:~5,1%%asicc:~-6,1%%asicc:~2,1%%asicc:~3,1%%asicc:~12,1%
set /p num1=请输入数字1:
set /p num2=请输入数字2:
::set num1=%num1%00&set num2=%num2%00

REM 得到num1,num2小数点位置
set /a i=0
:start1
call set num11=%%num1:~%i%,1%%&call set num22=%%num2:~%i%,1%%
::echo %num11% ,,,,,%num22%,,,,%num111%,,,,%num222% &pause
if "%num11%" == "." set n1=%i%&set a1=true
if "%num22%" == "." set n2=%i%&set a2=true
if "%a1%" == "true" if "%a2%" == "%a1%" goto :next2
set /a i+=1
goto :start1

:next2
echo 结束 小数点1位置%n1% ,,,,小数点2位置%n2%,,,num1=%num1%,,,num2=%num2%
Rem 得到小数部分的数字两数相加的结果
set/a a1=n1&set /a a2=n2&::a1,a2这里又用来
::echo a1=%a1% n1=%n1% a2=%a2% n2=%n2%
set /a value=0
:start2
set/a n1+=1&set /a n2+=1
call set t1=%%num1:~%n1%,1%%&call set t2=%%num2:~%n2%,1%%
::echo t1=%t1% t2=%t2%
if "%t1%" == "" call set value=%value%%%num2:~%n2%%%& goto :next3
if "%t2%" == "" call set value=%value%%%num1:~%n1%%%& goto :next3
set /a tmp1=%t1%+%t2% &set tmp2=%value:~-1%
if "%tmp1:~1,2%" NEQ "" set/a tmp2+=1
::echo tmp2=%tmp2%
set value=%value:~0,-1%%tmp2%%tmp1:~-1%
::echo %value% &pause
goto start2

:next3
set z=%value:~0,1%
echo value=%value%
echo z=%z%
pause
REM 计算整数部分
::set value2=0
:start3
set/a a1-=1&set /a a2-=1
call set t1=%%num1:~%a1%,1%%&call set t2=%%num2:~%a2%,1%%
::echo t1=%t1% t2=%t2%
set /a tmp1=%t1%+%t2%+%z%
if "%tmp1:~1,2%" NEQ "" set/a z=1
set value2=%tmp1:~-1%%value2%
if "%a1%" == "0" call set value1=%%num2:~0,%a2%%%& goto :next4
if "%a2%" == "0" call set value1=%%num1:~0,%a1%%%& goto :next4
::echo value2=%value2% tmp2=%tmp2% z进位=%z% tmp1两数相加结果=%tmp1%&pause
set /a z=0
goto start3

:next4
echo value1=%value1% z=%z% value2=%value2% &pause
REM 计算剩余部分+1的可能
if "%z%" NEQ "1" goto :end
set /a a1=a1-a2
if "%a1:~0,1%" == "-" set a1=%a1:~1%
echo on
:start4
if "%a1%" == "0" goto :end
set /a t1=%a1%
set /a a1-=1
call set tmp1=%%value1:~%a1%,1%%
::echo 取%a1%位置的数%tmp1%
set/a tmp1+=1
call set tmp2=%%value1:~0,%a1%%%
call set i=%%value1:~%t1%%%
echo 0到%a%位置的数%tmp2%
set value1=%tmp2%%tmp1:~-1%%i%
echo value1(加1后结果)=%value1% tmp1(加1的数)=%tmp1% tmp2(1-a1字符)=%tmp2% i从当前到最后字符=%i% &pause
set z=0
if "%tmp1:~1,2%" NEQ "" set z=1&goto :start4
:end
if "%z%"=="0" set z=
echo 结果数是=%z%%value1%%value2%.%value:~1%
%asicc:~-3,1%c%asicc:~-2% 感谢使用本软件有问题请联系QQ:%asicc:~4,2%15%asicc:~4,1%0230
echo 按任意键退出&pause >nul 2>nul

::待测式::晕有太多错误.不过还可能有错误
::长度为SET所能容纳长度.
::程序位数可以加大来循环.就是不用一位一位的算,如二位数与两位数或更大的比较快一点,这里顺环变量是1
::请问楼主,能不能构造程序,来运行自已的程序呢?

[ Last edited by yfd11 on 2006-10-20 at 06:26 ]

2楼的就是用的程序
纯bat化这是为了训练批处理能力

不知95楼这段脚本具体实现什么功能, 好像变量出了点问题.

讨论了这么久真的有点厌倦了, he200307兄除法运算的算法不够成熟, 而且在一些细节上处理得不够细致, 你的代码没有仔细看. 这里帮你解决最后小数点进位的问题. 代码有点啰嗦.

@echo off

setlocal enabledelayedexpansion

set /p ii=请输入一个浮点数:

set /p pp=请选择小数点需要进的位数:

call :integer %ii%

set one=%num%

set /a ok=one-pp

set "ii=%ii:.=%"

if %pp% lss %one% (

    set result=!ii:~0,%ok%!.!ii:~%ok%!

) else (

    call :plus %ok:~1%

    set result=0.!ii:~0,%ok:~1%!!ii:~%ok:~1%!

)

echo 进位结果=%result%

pause

goto :eof



:integer

set temp=%1

:integer_

if not "%temp:~0,1%"=="." (

    set /a num+=1

    set temp=%temp:~1%

    goto integer_

)

goto :eof

:plus

for /l %%i in (1,1,%1) do (

    set ii=0!ii!

)

goto :eof

[ Last edited by pengfei on 2006-10-21 at 01:14 ]

Originally posted by electronixtar at 2006-10-20 01:38:
2楼的就是用的程序
纯bat化这是为了训练批处理能力

严重同意此观点。

　　redtek兄发的这两个主题都是锻炼我们批处理能力的。

95楼代码我在2000里运行就显示些乱七八糟的东西，也不知道什么是结果，你那个代码不是用来计算的吗？

被除数多少位都可以实现：789/9=(7/9)的值补00+(8/9)的值补0+9/9
除数没有想到好方法

我也来个除法运算脚本，经过我的测试是没有问题，请大家测试：

@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 err)

:input

set num1=

set num2=

echo				     实 数 除 法 运 算 脚 本

echo.

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

echo.

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

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

echo.

echo 						中国DOS联盟论坛 qwe1234567制作

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

set/p num2=请输入除数:

:jmp

set fh1=

set fh2=

set fh=

if %num1%*==* goto err

if %num2%*==* goto err

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 :qc %num1% num1

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

call :qc %num2% num2

if %err%==1 goto err

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 :qs0 %o1%

set o1=%sw%

call :qs0 %o2%

set o2=%sw%

call :qw0 %t1%

set t1=%sw%

call :qw0 %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 err

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

call :js %t1%

set s1=%sw%

call :js %t2%

set s2=%sw%

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

call :j0 !s3! %t2%

set t2=!sw!

) ELSE (set/a s3=s2-s1

call :j0 !s3! %t1%

set t1=!sw!)

set tmp1=%o1%%t1%

set tmp2=%o2%%t2%

call :qs0 %tmp2%

set tmp2=%sw%

call :js %sw%

set s2=%sw%

call :qs0 %tmp1%

set tmp1=%sw%

call :js %sw%

set s1=%sw%

set/a zsw=s1-s2

call :qw0 %tmp2%

set tmp2=%sw%

call :js %sw%

set s2=%sw%

if %s2% GTR 8 echo 超出计算范围了!!&GOTO input

set tmp1=%tmp1%00000000000000000000000000000000000000000

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

if %sw% geq %tmp2% set/a zsw+=1

set sw=%tmp1:~0,9%

set sw1=%tmp1:~9%

set jg=

:ksjs

set/a jg0=sw/tmp2

set/a sw=sw%%tmp2*10+%sw1:~0,1%

set sw1=%sw1:~1%

set jg=%jg%%jg0%

if not %sw1%.==. goto ksjs

if %zsw% lss 1 (for /l %%c in (0,-1,!zsw!) do set jg=0!jg!) else goto jxs

set o1=%jg:~0,1%

set o2=%jg:~1%

goto xs

:jxs

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

set o2=!jg:~%zsw%!

:xs

call :qw0 %o2%

set o2=%sw%

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

echo 计算结果是:

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

pause

cls

goto input



:qs0

set sw=%1

:qs1

if %sw%==0 goto :eof

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

goto :eof

:qw0

set sw=%1

:qw1

if %sw%==0 goto :eof

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

goto :eof

:js

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

:qc

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

:j0

set sw=%2

if %1==0 goto :eof

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

goto :eof

:err

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

echo 请重新输入...

goto input

计算结果是保留40位小数

qwe1234567 斑竹 加点说明哈~要么说说思路哈~

那我大概说下：
1：检查错误与符号
2：小数点对齐
3：计算整数的位数
4：被除数尾数上加41个0
5：除数尾数去0
6：开始计算
7：确定小数点的位置
8：输出结果