［共同参与］［挑战思路］［批处理处理浮点运算］ - 中国DOS联盟论坛

）　此贴为抛砖引玉，大家扩展思路，互动式共同参与批处理学习～：）

）　［用ＤＯＳ内部命令计算两个浮点数的和］

　　例如：　Sum.Bat 12.99 438.76
　　结果：　451.75

　　规则：　负数不考虑
　　　　　　有可能人为故意或无意输入的非数字等错误暂不考虑
　　　　　　只能使用ＤＯＳ内部命令（无ＤＯＳ版本限制），外部命令禁止使用。
　　　　　　只考虑计算%1与%2所出现的两个浮点数相加，更多的浮点相加暂不考虑。
　　　　　　允许数字出现的格式： 0.91　0.10　 2.12　1092.90
　　　　　　暂不允许出现的格式：　.91　　.9
　　　　　　（小数精度：小数点儿后两位）

　　目的：　拓展思路、增加批处理兴趣、增加大家互动学习亲自动手玩、
　　　　　　通过我们大家不断的交互让批处理的使用让每个人都能参与共同进步：）

　　方向：　这只是其中一个内容，更多的内容需要网友们共同发现、版主支持：）
　　　　　　大家可以用任何异想天开的任何想法实现上面问题～：）

　　为什么要出现此贴：　只有互动每个人都参与，自己的水平才能提高更快。
　　　　　　　　　　　　将遇到问题时才问、平时不主动学习批处理的方式变成大家主动一步一步共同提高：）

　　奖励：　优秀的解题与不同思路的观点解题，由版主象神一样的指导、示范，
　　　　　　然后给大家加分奖励以示激励～：）

　　其它：　等待大家有更好想法和非常实用的互动学习与应用的题目，大家一起参与：）
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝


@echo off
echo wscript.echo CDbl(WScript.Arguments(0))+CDbl(WScript.Arguments(1))> tmp.vbe
cscript //noLogo tmp.vbe %1 %2
del tmp.vbe

^_^

Originally posted by electronixtar at 2006-10-4 04:20:
@echo off echo wscript.echo CDbl(WScript.Arguments(0))+CDbl(WScript.Arguments(1))> tmp.vbe cscript //noLogo tmp.vbe %1 %2 del tmp.vbe

^_^

精彩～～　加了6分～：）


C:\TEMP>a.bat  12.99  438.76
451.75

本楼第一段的代码为最新修改的. 功能更加强大, 欢迎大家测试...


整数浮点数分段运算代码:
一般情况下整数位最多可运算9位数, 小数位最多可运算9位数. 
小数位整数位加起来最多可运算18位数.
否则会溢出或为无效数字...

该脚本的功能:
1.  可以运算任何实型数值.
2.  有判断错误输入的功能. 如运算数中存在非法字符或当字符位数超过脚本的运算范围时会提示你重新输入.
3.  解决了进制错误的问题.
4.  运算结果格式输出.

@echo off
if not %1*==* set num1=%1 & set num2=%2 & goto jmp
:input
cls
set num1=
set /p num1=input primary number:
set num2=
set /p num2=input number two number:
:jmp
echo %num1% | find "." >nul || set num1=%num1%.0
echo %num2% | find "." >nul || set num2=%num2%.0
if "%num1:~-1%"=="." set num1=%num1%0
if "%num2:~-1%"=="." set num2=%num2%0
if "%num1:~0,1%"=="." set num1=0%num1%
if "%num2:~0,1%"=="." set num2=0%num2%
set num=0
setlocal enabledelayedexpansion
for %%a in (%num1% %num2%) do (
    set /a num+=1
    for /f "tokens=1,2 delims=." %%i in ("%%a") do (
        if "!num!"=="1" (set one=%%i) else (set one_=%%i)
        if "!num!"=="1" (set two=%%j) else (set two_=%%j)
    )
)
call :omit %one%
set one=%want%
call :omit %one_%
set one_=%want%
call :raze %two%
set two=%want_%
call :raze %two_%
set two_=%want_%
call :go %one%
set countx=%wish%
call :go %one_%
set countx_=%wish%
if "%two%"=="" set two=0
if "%two_%"=="" set two_=0
call :go %two%
set county=%wish%
call :go %two_%
set county_=%wish%
if %countx% gtr 9 goto error
if %countx_% gtr 9 goto error
set after=0
set front=
if %county% lss %county_% (
    set count=%county_%
    set /a result=%county_%-%county%
    call :fine !result! %two%
    set two=!incept!
) else (
    set count=%county%
    set /a result=%county%-%county_%
    call :fine !result! %two_%
    set two_=!incept!
)
call :omit %two%
set two=%want%
call :omit %two_%
set two_=%want%
call :go %two%
set county=%wish%
call :go %two_%
set county_=%wish%
if %county% gtr 9 goto error
if %county_% gtr 9 goto error
if "%one%"=="" set one=0
if "%one_%"=="" set one_=0
if "%two%"=="" set two=0
if "%two_%"=="" set two_=0
set /a decimal=%two%+%two_%
set carry=0!decimal:~0,-%count%!
set decimal=!decimal:~-%count%!
set refer=%decimal%
call :go %refer%
set countz=%wish%
set /a spare=%count%-%countz%
set after=
set front=0
call :fine %spare% %decimal%
set decimal=%incept%
set /a integer=%one%+%one_%+%carry%
set dot=.
call :raze %decimal%
set decimal=%want_%
if "%decimal%"=="" set dot=
cls
echo ============
echo 运算结果!
echo ============
echo.
echo %num1%+%num2%=%integer%%dot%%decimal%
pause >nul
goto :eof

:go
set remove=%1@
set wish=0
:go_
if not "!remove:~0,1!"=="@" (
    set fault=1
    for /l %%c in (0,1,9) do (
        if "!remove:~0,1!"=="%%c" (
            set /a wish+=1
            set remove=!remove:~1!
            set fault=2
            goto go_
        )
    )
    if "!fault!"=="1" goto error
    goto go_
)
goto :eof
:fine
set take=%1
set incept=%2
:fine_
if not "%take%"=="0" (
    set /a take-=1
    set incept=%front%!incept!%after%
    goto fine_
)
goto :eof
:omit
set want=%1
:omit_
if "%want:~0,1%"=="0" (
    set want=%want:~1%
    goto omit_
)
goto :eof
:raze
set want_=%1
:raze_
if "!want_:~-1!"=="0" (
    set want_=!want_:~0,-1!
    goto raze_
)
goto :eof

:error
cls
echo ========================================================
echo.
echo          对不起, 你的输入存在下面两种错误:
echo.
echo          1.  输入了除阿拉伯数字外的非法字符.
echo.
echo          2.  整数或小数位数超过了9位.
echo.
echo ========================================================
echo.
echo.
echo 按任意键重新输入...
pause >nul
goto input

下面一段也是通用的, 但小数只能运算8位数, 且没有判断错误输入和判断输入的数值是否符合要求的功能.


整数浮点数分段运算代码:
整数位最多可运算9位数, 小数位最多可运算8位数. 
小数位整数位加起来最多可运算17位数.
否则会溢出或为无效数字...

可以运算任何类型的数值, 浮点型数值已不受位数限制. 
解决了小数第一位为零且后面跟8或9的数字会出现进制错误的问题.
运算结果格式输出!

此段代码已经通用. 欢迎大家测试...

@echo off
set /p number1=请输入运算数一:
set /p number2=请输入运算数二:
echo %number1% | find "." >nul || set number1=%number1%.0
echo %number2% | find "." >nul || set number2=%number2%.0
if "%number1:~-1%"=="." set number1=%number1%0
if "%number2:~-1%"=="." set number2=%number2%0
if "%number1:~0,1%"=="." set number1=0%number1%
if "%number2:~0,1%"=="." set number2=0%number2%
setlocal enabledelayedexpansion
for %%a in (%number1% %number2%) do (
    set /a num+=1
    for /f "tokens=1,2 delims=." %%i in ("%%a") do (
        if "!num!"=="1" (set one=%%i) else (set one_=%%i)
        if "!num!"=="1" (set two=%%j) else (set two_=%%j)
    )
)
call :omit %one%
set one=%want%
call :omit %one_%
set one_=%want%
call :go %two%
set count=%wish%
call :go %two_%
set count_=%wish%
if %count% lss %count_% (
    set /a result=%count_%-%count%
    call :fine !result! %two%
    set two=!incept!
) else (
    set /a result=%count%-%count_%
    call :fine !result! %two_%
    set two_=!incept!
)
if "%one%"=="" set one=0
if "%one_%"=="" set one_=0
set /a integer=%one%+%one_%
set /a decimal=1%two%+1%two_%
if "%decimal:~0,1%"=="2" (
    set decimal=%decimal:~1%
) else (
    set decimal=%decimal:~1%
    set /a integer=%integer%+1
)
:raze
if "!decimal:~-1!"=="0" (
    set decimal=!decimal:~0,-1!
    goto raze
)
if "%decimal%"=="" (
    set dot=
) else (
    set dot=.
)
echo %integer%%dot%%decimal%
pause
exit

:go
set remove=%1
set wish=0
:go_
if not "!remove:~0,1!"=="~" (
    for /l %%c in (0,1,9) do (
        if "!remove:~0,1!"=="%%c" (
            set /a wish+=1
            set remove=!remove:~1!
            goto go_
        )
    )
)
goto :eof
:fine
set take=%1
set incept=%2
:fine_
if not "%take%"=="0" (
    set /a take-=1
    set incept=!incept!0
    goto fine_
)
goto :eof
:omit
set want=%1
:again
if "%want:~0,1%"=="0" (
    set want=%want:~1%
    goto again
)
goto :eof

相关问题讨论: 关于数值运算时的进制问题!

[ Last edited by pengfei on 2006-10-9 at 05:01 ]

过瘾！！！给pengfei兄加６分～：）


C:\TEMP>b.bat 12.99  438.76
451.75
请按任意键继续. . .

两位大侠之作非常精彩～～
个人感觉要学好批处理和ＤＯＳ批处理以及脚本的应用，
其实就相当于在一步一步走向编程的道路：）

或是开发人员以一种程序思维、和数据结构的理解方式来让批处理达到一个更高的水平：）

这就是为什么很多网友学了ＤＯＳ批处理应用以后，
过了好多年再也提不高的原因之一：）

而有的大侠，确是每一天每一步都在不断的向上走，
技巧已经都不再重要了，应用到的数据结构可以解决很多问题：）
无论是在批处理里面还是在代码开发上，它们都是相通的：）

[ Last edited by redtek on 2006-10-4 at 05:21 ]

终于解决了小数位数的局限, 可以运算各种类型的数值, 小数位数不受限制. 暂时没有解决错误输入的问题.

代码更新在4楼!

　　发一段代码，匆忙中没来得及对数据进行查错处理和代码的优化，可以适应小数位数不一致的情况。基本思路是对数值的整数部分和小数部分分别进行计算：


@echo off
cls
set input1=
set input2=
set /p input1=请输入第一个数值：
set /p input2=请输入第二个数值：
setlocal enabledelayedexpansion
for /f "tokens=1-4 delims=." %%i in ("%input1%.%input2%") do (
    set num1=%%i
    set num2=%%j
    set num3=%%k
    set num4=%%l
    set length=0
    call :get_length %%j
    set length1=!length!
    echo !length1!
    set length=0
    call :get_length %%l
    set length2=!length!
    echo !length2!
    call :add_zero
    set /a sum1=!num1!+!num3!
    set /a sum2=!num2!+!num4!
    call :set_num
    if !sum2! geq !str! set /a sum2=!sum2!-!str! & set /a sum1=!sum1!+1
    echo !sum1!.!sum2!
)
pause
goto :eof

:get_length
for /f %%i in ("%1") do (
    set /a length+=1
    set var=%%i
    if not "!var!"=="" set var=!var:~0,-1!&& call :get_length !var!
)
goto :eof

:add_zero
set /a cha=%length1%-%length2%
set cha=%cha:-=%
if %cha% gtr 0 (
    for /l %%i in (1,1,%cha%) do set str=!str!0
    echo !str!
    if %length1% gtr %length2% (set num4=%num4%!str!) else (set num2=%num2%!str!)
)
echo %num2%   %num4%
goto :eof

:set_num
if %length1% geq %length2% (set longer=%length1%) else (set longer=%length2%)
set str=
for /l %%i in (1,1,%longer%) do set str=!str!0
set str=1%str%
echo %str%
goto :eof

[ Last edited by namejm on 2006-10-4 at 11:20 ]

还是脚本简单些 ^_^

解决了小数点后第一位为0且后面出现8或9, 导致数值为无效数字的问题.

一个全新的算法, 大概的意思是, 读取小数位数不足的补零. 去.号后小数和整数一起运算, 运算完成后再根据记录的小数点位置准确地插入到相应的地方, 从而完成了浮点数值的运算.

这段代码具有更好的通用性, 时间仓促没来得及优化:


整数浮点数合并运算代码:
整数位最多可运算8位数, 小数位最多可运算8位数.
小数位整数位加起来最多可运算9位数
否则会溢出或为无效数字...

用取位循环去零法解决了最高位为零或多个零的问题, 可以测试(0.0  .23  12.  .)的数值运算. 
解决了(0.0+0.0289), (0.08+1.029)之类的进制问题.
目前测试可以适应各种情况. 
期待大家进行全面测试...

@echo off
set /p number=请输入运算数一:
set /p number_=请输入运算数二:
call :omit %number%
set number=%want%
call :omit %number_%
set number_=%want%
echo %number% | find "." >nul || set number=%number%.0
echo %number_% | find "." >nul || set number_=%number_%.0
if "%number:~-1%"=="." set number=%number%0
if "%number_:~-1%"=="." set number_=%number_%0
if "%number:~0,1%"=="." set number=0%number%
if "%number_:~0,1%"=="." set number_=0%number_%
setlocal enabledelayedexpansion
for %%a in (%number% %number_%) do (
    set /a num+=1
    for /f "tokens=1,2 delims=." %%i in ("%%a") do (
        if "!num!"=="1" (set one=%%i) else (set one_=%%i)
        if "!num!"=="1" (set two=%%j) else (set two_=%%j)
    )
)
call :go %two%
set num1=%wish%
call :go %two_%
set num2=%wish%
if %num1% lss %num2% (
    set note=%num2%
    set /a result=%num2%-%num1%
    call :fine !result! %two%
    set two=!incept!
) else (
    set note=%num1%
    set /a result=%num1%-%num2%
    call :fine !result! %two_%
    set two_=!incept!
)
set term=0
if %one:~0,1%==0 set one=!one:~1!
if %one_:~0,1%==0 set one_=%one_:~1%
if "%one%"=="" (
    set one=1
    set /a term+=1
)
if "%one_%"=="" (
    set one_=1
    set /a term+=1
)
set /a fruit_=%one%%two%+%one_%%two_%
set fruit_=:%fruit_%
:insert
if not "!fruit_:~-1!"==":" (
    if "!num_!"=="%note%" (
        set fruit=.!fruit!
        set /a ii=!fruit_:~1!-%term%
        set fruit_=:!ii!
    )
    set fruit=!fruit_:~-1!!fruit!
    set fruit_=!fruit_:~0,-1!
    set /a num_+=1
    goto insert
)
echo %fruit%
pause
exit

:go
set remove=%1
set wish=0
:go_
if not "!remove:~0,1!"=="~" (
    for /l %%c in (0,1,9) do (
        if "!remove:~0,1!"=="%%c" (
            set /a wish+=1
            set remove=!remove:~1!
            goto go_
        )
    )
)
goto :eof
:fine
set take=%1
set incept=%2
:fine_
if not "%take%"=="0" (
    set /a take-=1
    set incept=!incept!0
    goto fine_
)
goto :eof
:omit
set want=%1
:again
if "%want:~0,1%"=="0" (
    set want=%want:~1%
    goto again
)
goto :eof

[ Last edited by pengfei on 2006-10-6 at 03:51 ]

　　pengfei 『第 10 楼』的代码先把浮点数用0把位数补齐，然后再把小数点去掉，对新数进行处理，然后再把小数点的位置复原，这个思路相当新颖，比我在『第 8 楼』的思路又更进了一步，优化之后，代码将会比我那段更简洁。看来，多多讨论真的很容易碰撞出智慧的火花^_^

^_^ 呵呵~ namejm兄八楼代码的思路和我四楼的一样, 如果小数第一位是零且后面跟了8或9就会出错, 还是进制问题, 而10楼的代码则不会.

我试了下，如果首位是0的数，后面有8和9都会出错！就是10楼的也一样！

版主是在整数的最高位加零吧!

你试试在小数点后第一位加零, 再比较两段代码的运算结果.

下面的是首位是0的数自动去0,小数点前没有数字自动加0，小数点末尾有0自动去0！

@echo off
if not %1*==* (set number=%1&set number_=%2&goto bj)
set /p number=请输入运算数一:
set /p number_=请输入运算数二:
:bj
echo %number% | find "." >nul || set number=%number%.0
echo %number_% | find "." >nul || set number_=%number_%.0
if %number:~0,1%==. set number=0%number%
if %number_:~0,1%==. set number_=0%number_%
if "%number:~-1%"=="." set number=%number%0
if "%number_:~-1%"=="." set number_=%number_%0
setlocal enabledelayedexpansion
for %%a in (%number% %number_%) do (
    set /a num+=1
    for /f "tokens=1,2 delims=." %%i in ("%%a") do (
        if "!num!"=="1" (set one=%%i) else (set one_=%%i)
        if "!num!"=="1" (set two=%%j) else (set two_=%%j)
    )
)
call :go %two%
set num1=%wish%
call :go %two_%
set num2=%wish%
if %num1% lss %num2% (
    set note=%num2%
    set /a result=%num2%-%num1%
    call :fine !result! %two%
    set two=!incept!
) else (
    set note=%num1%
    set /a result=%num1%-%num2%
    call :fine !result! %two_%
    set two_=!incept!
)
:1
set n1=0
if "!one:~0,1!"=="0" set one=!one:~1!&&goto 1
if %two:~0,1%==0 set two=1%two%&&set n1=1
:2
if "!one_:~0,1!"=="0" set one_=!one_:~1!&&goto 2
if %two_:~0,1%==0 set two_=1%two_%&&set/a n1+=1
set /a num2=%two%+%two_%
set/a n1=!num2:~0,-%note%!-%n1%
set num2=!num2:~-%note%!
set /a num1=%one%+%one_%+%n1%
:3
if !num2:~-1!==0 set num2=!num2:~0,-1!&&goto 3
if %num2%*==* (echo %num1%) ELSE echo %num1%.%num2%
PAUSE
goto :eof

:go
set remove=%1
set wish=0
:go_
if not "!remove:~0,1!"=="~" (
    for /l %%c in (0,1,9) do (
        if "!remove:~0,1!"=="%%c" (
            set /a wish+=1
            set remove=!remove:~1!
            goto go_
        )
    )
)
goto :eof
:fine
set take=%1
set incept=%2
:fine_
if not "%take%"=="0" (
    set /a take-=1
    set incept=!incept!0
    goto fine_
)
goto :eof

[ Last edited by qwe1234567 on 2006-10-6 at 07:40 ]

第1楼　redtek	发表于 2006-10-04 04:10
金牌会员　发帖 1,147　积分 2,902
［共同参与］［挑战思路］［批处理处理浮点运算］）　此贴为抛砖引玉，大家扩展思路，互动式共同参与批处理学习～：））　［用ＤＯＳ内部命令计算两个浮点数的和］　　例如：　Sum.Bat 12.99 438.76 　　结果：　451.75 　　规则：　负数不考虑　　　　　　有可能人为故意或无意输入的非数字等错误暂不考虑　　　　　　只能使用ＤＯＳ内部命令（无ＤＯＳ版本限制），外部命令禁止使用。　　　　　　只考虑计算%1与%2所出现的两个浮点数相加，更多的浮点相加暂不考虑。　　　　　　允许数字出现的格式： 0.91　0.10　 2.12　1092.90 　　　　　　暂不允许出现的格式：　.91　　.9 　　　　　　（小数精度：小数点儿后两位）　　目的：　拓展思路、增加批处理兴趣、增加大家互动学习亲自动手玩、　　　　　　通过我们大家不断的交互让批处理的使用让每个人都能参与共同进步：）　　方向：　这只是其中一个内容，更多的内容需要网友们共同发现、版主支持：）　　　　　　大家可以用任何异想天开的任何想法实现上面问题～：）　　为什么要出现此贴：　只有互动每个人都参与，自己的水平才能提高更快。　　　　　　　　　　　　将遇到问题时才问、平时不主动学习批处理的方式变成大家主动一步一步共同提高：）　　奖励：　优秀的解题与不同思路的观点解题，由版主象神一样的指导、示范，　　　　　　然后给大家加分奖励以示激励～：）　　其它：　等待大家有更好想法和非常实用的互动学习与应用的题目，大家一起参与：）＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

第2楼　electronixtar	发表于 2006-10-04 04:20
铂金会员　发帖 2,672　积分 7,493
@echo off echo wscript.echo CDbl(WScript.Arguments(0))+CDbl(WScript.Arguments(1))> tmp.vbe cscript //noLogo tmp.vbe %1 %2 del tmp.vbe ^_^

第3楼　redtek	发表于 2006-10-04 04:31
金牌会员　发帖 1,147　积分 2,902
Originally posted by electronixtar at 2006-10-4 04:20: @echo off echo wscript.echo CDbl(WScript.Arguments(0))+CDbl(WScript.Arguments(1))> tmp.vbe cscript //noLogo tmp.vbe %1 %2 del tmp.vbe ^_^ 精彩～～　加了6分～：） C:\TEMP>a.bat 12.99 438.76 451.75

第4楼　pengfei	发表于 2006-10-04 04:47
银牌会员　发帖 485　积分 1,218　来自湖南.娄底
本楼第一段的代码为最新修改的. 功能更加强大, 欢迎大家测试... 整数浮点数分段运算代码: 一般情况下整数位最多可运算9位数, 小数位最多可运算9位数. 小数位整数位加起来最多可运算18位数. 否则会溢出或为无效数字... 该脚本的功能: 1. 可以运算任何实型数值. 2. 有判断错误输入的功能. 如运算数中存在非法字符或当字符位数超过脚本的运算范围时会提示你重新输入. 3. 解决了进制错误的问题. 4. 运算结果格式输出. @echo off if not %1== set num1=%1 & set num2=%2 & goto jmp :input cls set num1= set /p num1=input primary number: set num2= set /p num2=input number two number: :jmp echo %num1% \| find "." >nul \|\| set num1=%num1%.0 echo %num2% \| find "." >nul \|\| set num2=%num2%.0 if "%num1:~-1%"=="." set num1=%num1%0 if "%num2:~-1%"=="." set num2=%num2%0 if "%num1:~0,1%"=="." set num1=0%num1% if "%num2:~0,1%"=="." set num2=0%num2% set num=0 setlocal enabledelayedexpansion for %%a in (%num1% %num2%) do ( set /a num+=1 for /f "tokens=1,2 delims=." %%i in ("%%a") do ( if "!num!"=="1" (set one=%%i) else (set one_=%%i) if "!num!"=="1" (set two=%%j) else (set two_=%%j) ) ) call :omit %one% set one=%want% call :omit %one_% set one_=%want% call :raze %two% set two=%want_% call :raze %two_% set two_=%want_% call :go %one% set countx=%wish% call :go %one_% set countx_=%wish% if "%two%"=="" set two=0 if "%two_%"=="" set two_=0 call :go %two% set county=%wish% call :go %two_% set county_=%wish% if %countx% gtr 9 goto error if %countx_% gtr 9 goto error set after=0 set front= if %county% lss %county_% ( set count=%county_% set /a result=%county_%-%county% call :fine !result! %two% set two=!incept! ) else ( set count=%county% set /a result=%county%-%county_% call :fine !result! %two_% set two_=!incept! ) call :omit %two% set two=%want% call :omit %two_% set two_=%want% call :go %two% set county=%wish% call :go %two_% set county_=%wish% if %county% gtr 9 goto error if %county_% gtr 9 goto error if "%one%"=="" set one=0 if "%one_%"=="" set one_=0 if "%two%"=="" set two=0 if "%two_%"=="" set two_=0 set /a decimal=%two%+%two_% set carry=0!decimal:~0,-%count%! set decimal=!decimal:~-%count%! set refer=%decimal% call :go %refer% set countz=%wish% set /a spare=%count%-%countz% set after= set front=0 call :fine %spare% %decimal% set decimal=%incept% set /a integer=%one%+%one_%+%carry% set dot=. call :raze %decimal% set decimal=%want_% if "%decimal%"=="" set dot= cls echo ============ echo 运算结果! echo ============ echo. echo %num1%+%num2%=%integer%%dot%%decimal% pause >nul goto :eof :go set remove=%1@ set wish=0 :go_ if not "!remove:~0,1!"=="@" ( set fault=1 for /l %%c in (0,1,9) do ( if "!remove:~0,1!"=="%%c" ( set /a wish+=1 set remove=!remove:~1! set fault=2 goto go_ ) ) if "!fault!"=="1" goto error goto go_ ) goto :eof :fine set take=%1 set incept=%2 :fine_ if not "%take%"=="0" ( set /a take-=1 set incept=%front%!incept!%after% goto fine_ ) goto :eof :omit set want=%1 :omit_ if "%want:~0,1%"=="0" ( set want=%want:~1% goto omit_ ) goto :eof :raze set want_=%1 :raze_ if "!want_:~-1!"=="0" ( set want_=!want_:~0,-1! goto raze_ ) goto :eof :error cls echo ======================================================== echo. echo 对不起, 你的输入存在下面两种错误: echo. echo 1. 输入了除阿拉伯数字外的非法字符. echo. echo 2. 整数或小数位数超过了9位. echo. echo ======================================================== echo. echo. echo 按任意键重新输入... pause >nul goto input 下面一段也是通用的, 但小数只能运算8位数, 且没有判断错误输入和判断输入的数值是否符合要求的功能. 整数浮点数分段运算代码: 整数位最多可运算9位数, 小数位最多可运算8位数. 小数位整数位加起来最多可运算17位数. 否则会溢出或为无效数字... 可以运算任何类型的数值, 浮点型数值已不受位数限制. 解决了小数第一位为零且后面跟8或9的数字会出现进制错误的问题. 运算结果格式输出! 此段代码已经通用. 欢迎大家测试... @echo off set /p number1=请输入运算数一: set /p number2=请输入运算数二: echo %number1% \| find "." >nul \|\| set number1=%number1%.0 echo %number2% \| find "." >nul \|\| set number2=%number2%.0 if "%number1:~-1%"=="." set number1=%number1%0 if "%number2:~-1%"=="." set number2=%number2%0 if "%number1:~0,1%"=="." set number1=0%number1% if "%number2:~0,1%"=="." set number2=0%number2% setlocal enabledelayedexpansion for %%a in (%number1% %number2%) do ( set /a num+=1 for /f "tokens=1,2 delims=." %%i in ("%%a") do ( if "!num!"=="1" (set one=%%i) else (set one_=%%i) if "!num!"=="1" (set two=%%j) else (set two_=%%j) ) ) call :omit %one% set one=%want% call :omit %one_% set one_=%want% call :go %two% set count=%wish% call :go %two_% set count_=%wish% if %count% lss %count_% ( set /a result=%count_%-%count% call :fine !result! %two% set two=!incept! ) else ( set /a result=%count%-%count_% call :fine !result! %two_% set two_=!incept! ) if "%one%"=="" set one=0 if "%one_%"=="" set one_=0 set /a integer=%one%+%one_% set /a decimal=1%two%+1%two_% if "%decimal:~0,1%"=="2" ( set decimal=%decimal:~1% ) else ( set decimal=%decimal:~1% set /a integer=%integer%+1 ) :raze if "!decimal:~-1!"=="0" ( set decimal=!decimal:~0,-1! goto raze ) if "%decimal%"=="" ( set dot= ) else ( set dot=. ) echo %integer%%dot%%decimal% pause exit :go set remove=%1 set wish=0 :go_ if not "!remove:~0,1!"=="~" ( for /l %%c in (0,1,9) do ( if "!remove:~0,1!"=="%%c" ( set /a wish+=1 set remove=!remove:~1! goto go_ ) ) ) goto :eof :fine set take=%1 set incept=%2 :fine_ if not "%take%"=="0" ( set /a take-=1 set incept=!incept!0 goto fine_ ) goto :eof :omit set want=%1 :again if "%want:~0,1%"=="0" ( set want=%want:~1% goto again ) goto :eof 相关问题讨论: 关于数值运算时的进制问题! [ Last edited by pengfei on 2006-10-9 at 05:01 ]

第5楼　redtek	发表于 2006-10-04 05:12
金牌会员　发帖 1,147　积分 2,902
过瘾！！！给pengfei兄加６分～：） C:\TEMP>b.bat 12.99 438.76 451.75 请按任意键继续. . .

第6楼　redtek	发表于 2006-10-04 05:18
金牌会员　发帖 1,147　积分 2,902
两位大侠之作非常精彩～～个人感觉要学好批处理和ＤＯＳ批处理以及脚本的应用，其实就相当于在一步一步走向编程的道路：）或是开发人员以一种程序思维、和数据结构的理解方式来让批处理达到一个更高的水平：）这就是为什么很多网友学了ＤＯＳ批处理应用以后，过了好多年再也提不高的原因之一：）而有的大侠，确是每一天每一步都在不断的向上走，技巧已经都不再重要了，应用到的数据结构可以解决很多问题：）无论是在批处理里面还是在代码开发上，它们都是相通的：） [ Last edited by redtek on 2006-10-4 at 05:21 ]

第7楼　pengfei	发表于 2006-10-04 10:15
银牌会员　发帖 485　积分 1,218　来自湖南.娄底
终于解决了小数位数的局限, 可以运算各种类型的数值, 小数位数不受限制. 暂时没有解决错误输入的问题. 代码更新在4楼!

第8楼　namejm	发表于 2006-10-04 11:18
荣誉版主　发帖 1,737　积分 5,226　来自成都
发一段代码，匆忙中没来得及对数据进行查错处理和代码的优化，可以适应小数位数不一致的情况。基本思路是对数值的整数部分和小数部分分别进行计算： @echo off cls set input1= set input2= set /p input1=请输入第一个数值： set /p input2=请输入第二个数值： setlocal enabledelayedexpansion for /f "tokens=1-4 delims=." %%i in ("%input1%.%input2%") do ( set num1=%%i set num2=%%j set num3=%%k set num4=%%l set length=0 call :get_length %%j set length1=!length! echo !length1! set length=0 call :get_length %%l set length2=!length! echo !length2! call :add_zero set /a sum1=!num1!+!num3! set /a sum2=!num2!+!num4! call :set_num if !sum2! geq !str! set /a sum2=!sum2!-!str! & set /a sum1=!sum1!+1 echo !sum1!.!sum2! ) pause goto :eof :get_length for /f %%i in ("%1") do ( set /a length+=1 set var=%%i if not "!var!"=="" set var=!var:~0,-1!&& call :get_length !var! ) goto :eof :add_zero set /a cha=%length1%-%length2% set cha=%cha:-=% if %cha% gtr 0 ( for /l %%i in (1,1,%cha%) do set str=!str!0 echo !str! if %length1% gtr %length2% (set num4=%num4%!str!) else (set num2=%num2%!str!) ) echo %num2% %num4% goto :eof :set_num if %length1% geq %length2% (set longer=%length1%) else (set longer=%length2%) set str= for /l %%i in (1,1,%longer%) do set str=!str!0 set str=1%str% echo %str% goto :eof [ Last edited by namejm on 2006-10-4 at 11:20 ]

第9楼　electronixtar	发表于 2006-10-04 20:17
铂金会员　发帖 2,672　积分 7,493
还是脚本简单些 ^_^

第10楼　pengfei	发表于 2006-10-04 23:50
银牌会员　发帖 485　积分 1,218　来自湖南.娄底
解决了小数点后第一位为0且后面出现8或9, 导致数值为无效数字的问题. 一个全新的算法, 大概的意思是, 读取小数位数不足的补零. 去.号后小数和整数一起运算, 运算完成后再根据记录的小数点位置准确地插入到相应的地方, 从而完成了浮点数值的运算. 这段代码具有更好的通用性, 时间仓促没来得及优化: 整数浮点数合并运算代码: 整数位最多可运算8位数, 小数位最多可运算8位数. 小数位整数位加起来最多可运算9位数否则会溢出或为无效数字... 用取位循环去零法解决了最高位为零或多个零的问题, 可以测试(0.0 .23 12. .)的数值运算. 解决了(0.0+0.0289), (0.08+1.029)之类的进制问题. 目前测试可以适应各种情况. 期待大家进行全面测试... @echo off set /p number=请输入运算数一: set /p number_=请输入运算数二: call :omit %number% set number=%want% call :omit %number_% set number_=%want% echo %number% \| find "." >nul \|\| set number=%number%.0 echo %number_% \| find "." >nul \|\| set number_=%number_%.0 if "%number:~-1%"=="." set number=%number%0 if "%number_:~-1%"=="." set number_=%number_%0 if "%number:~0,1%"=="." set number=0%number% if "%number_:~0,1%"=="." set number_=0%number_% setlocal enabledelayedexpansion for %%a in (%number% %number_%) do ( set /a num+=1 for /f "tokens=1,2 delims=." %%i in ("%%a") do ( if "!num!"=="1" (set one=%%i) else (set one_=%%i) if "!num!"=="1" (set two=%%j) else (set two_=%%j) ) ) call :go %two% set num1=%wish% call :go %two_% set num2=%wish% if %num1% lss %num2% ( set note=%num2% set /a result=%num2%-%num1% call :fine !result! %two% set two=!incept! ) else ( set note=%num1% set /a result=%num1%-%num2% call :fine !result! %two_% set two_=!incept! ) set term=0 if %one:~0,1%==0 set one=!one:~1! if %one_:~0,1%==0 set one_=%one_:~1% if "%one%"=="" ( set one=1 set /a term+=1 ) if "%one_%"=="" ( set one_=1 set /a term+=1 ) set /a fruit_=%one%%two%+%one_%%two_% set fruit_=:%fruit_% :insert if not "!fruit_:~-1!"==":" ( if "!num_!"=="%note%" ( set fruit=.!fruit! set /a ii=!fruit_:~1!-%term% set fruit_=:!ii! ) set fruit=!fruit_:~-1!!fruit! set fruit_=!fruit_:~0,-1! set /a num_+=1 goto insert ) echo %fruit% pause exit :go set remove=%1 set wish=0 :go_ if not "!remove:~0,1!"=="~" ( for /l %%c in (0,1,9) do ( if "!remove:~0,1!"=="%%c" ( set /a wish+=1 set remove=!remove:~1! goto go_ ) ) ) goto :eof :fine set take=%1 set incept=%2 :fine_ if not "%take%"=="0" ( set /a take-=1 set incept=!incept!0 goto fine_ ) goto :eof :omit set want=%1 :again if "%want:~0,1%"=="0" ( set want=%want:~1% goto again ) goto :eof [ Last edited by pengfei on 2006-10-6 at 03:51 ]

第11楼　namejm	发表于 2006-10-05 00:44
荣誉版主　发帖 1,737　积分 5,226　来自成都
pengfei 『第 10 楼』的代码先把浮点数用0把位数补齐，然后再把小数点去掉，对新数进行处理，然后再把小数点的位置复原，这个思路相当新颖，比我在『第 8 楼』的思路又更进了一步，优化之后，代码将会比我那段更简洁。看来，多多讨论真的很容易碰撞出智慧的火花^_^

第12楼　pengfei	发表于 2006-10-05 01:43
银牌会员　发帖 485　积分 1,218　来自湖南.娄底
^_^ 呵呵~ namejm兄八楼代码的思路和我四楼的一样, 如果小数第一位是零且后面跟了8或9就会出错, 还是进制问题, 而10楼的代码则不会.

第13楼　不得不爱	发表于 2006-10-05 04:44
超级版主　发帖 2,044　积分 5,310　来自四川南充
我试了下，如果首位是0的数，后面有8和9都会出错！就是10楼的也一样！

第14楼　pengfei	发表于 2006-10-05 04:49
银牌会员　发帖 485　积分 1,218　来自湖南.娄底
版主是在整数的最高位加零吧! 你试试在小数点后第一位加零, 再比较两段代码的运算结果.

第15楼　不得不爱	发表于 2006-10-05 05:09
超级版主　发帖 2,044　积分 5,310　来自四川南充
下面的是首位是0的数自动去0,小数点前没有数字自动加0，小数点末尾有0自动去0！ @echo off if not %1== (set number=%1&set number_=%2&goto bj) set /p number=请输入运算数一: set /p number_=请输入运算数二: :bj echo %number% \| find "." >nul \|\| set number=%number%.0 echo %number_% \| find "." >nul \|\| set number_=%number_%.0 if %number:~0,1%==. set number=0%number% if %number_:~0,1%==. set number_=0%number_% if "%number:~-1%"=="." set number=%number%0 if "%number_:~-1%"=="." set number_=%number_%0 setlocal enabledelayedexpansion for %%a in (%number% %number_%) do ( set /a num+=1 for /f "tokens=1,2 delims=." %%i in ("%%a") do ( if "!num!"=="1" (set one=%%i) else (set one_=%%i) if "!num!"=="1" (set two=%%j) else (set two_=%%j) ) ) call :go %two% set num1=%wish% call :go %two_% set num2=%wish% if %num1% lss %num2% ( set note=%num2% set /a result=%num2%-%num1% call :fine !result! %two% set two=!incept! ) else ( set note=%num1% set /a result=%num1%-%num2% call :fine !result! %two_% set two_=!incept! ) :1 set n1=0 if "!one:~0,1!"=="0" set one=!one:~1!&&goto 1 if %two:~0,1%==0 set two=1%two%&&set n1=1 :2 if "!one_:~0,1!"=="0" set one_=!one_:~1!&&goto 2 if %two_:~0,1%==0 set two_=1%two_%&&set/a n1+=1 set /a num2=%two%+%two_% set/a n1=!num2:~0,-%note%!-%n1% set num2=!num2:~-%note%! set /a num1=%one%+%one_%+%n1% :3 if !num2:~-1!==0 set num2=!num2:~0,-1!&&goto 3 if %num2%== (echo %num1%) ELSE echo %num1%.%num2% PAUSE goto :eof :go set remove=%1 set wish=0 :go_ if not "!remove:~0,1!"=="~" ( for /l %%c in (0,1,9) do ( if "!remove:~0,1!"=="%%c" ( set /a wish+=1 set remove=!remove:~1! goto go_ ) ) ) goto :eof :fine set take=%1 set incept=%2 :fine_ if not "%take%"=="0" ( set /a take-=1 set incept=!incept!0 goto fine_ ) goto :eof [ Last edited by qwe1234567 on 2006-10-6 at 07:40 ]