中国DOS联盟

可以输入1.1+0.5+101.85+...........
只能是正数，小数到30位，可以加小数
@echo off&setlocal ENABLEDELAYEDEXPANSION&set w=0&set qq=0&set ww=0
:str
set/p ks=%qq% ^>
if "%ks%" equ "*" set qq=0&set ww=0&goto str
for %%a in (%ks:+= %) do (set w=0&set qq=!qq!&set ww=%%a
for /f "tokens=1,2 delims=." %%i in ("!qq!") do (set st1=%%i&set qq=.%%j000000000000000000000000000000)
for /f "tokens=1,2 delims=." %%i in ("!ww!") do (set/a st=%%i+!st1!&set ww=.%%j000000000000000000000000000000)
set qq=!qq:~0,30!&set ww=!ww:~0,30!
for /l %%i in (1,1,30) do (set/a q=!qq:~-%%i,1!+!ww:~-%%i,1!+!w!
if !q! geq 10 (set w=1) else (set w=0)
if "!qq:~-%%i,1!" equ "." (set/a st=!st!+!q!&set sss=!st!.!e!&^
for /l %%i in (1,1,30) do (if "!sss:~-%%i,1!" neq "0" (set/a qq2+=1&^
if "!qq2!" equ "1" if "!qq1:~-1!" equ "." (set qq=!qq1:~0,-1!) else (set qq=!qq1!)) else (set qq1=!sss:~0,-%%i!))) else (set e=!q:~-1!!e!))
set qq2=0&set e=)
::echo 结果:%qq%
goto str