|
|
|
| 乘法,加法,计算器 |
| 运行环境： Win9x/NT/2000/XP/2003 |
（载入中...） |
| 文件大小： 1 K |
| 软件类别： BAT源码 |
| 软件语言： 简体中文 |
| 软件属性： 热 |
| 授权方式： 免费版 |
| 添加时间： 2008-3-29 7:11:00 |
| 软件等级： ★★★ |
| 软件绿化： 佚名 |
| 相关链接： 源码演示地址 源码注册地址 |
| 下载次数： 日： 周： 月： 总： |
| 软件添加： 审核:lodge 录入:lodge |
警告：运行BAT源码是一种危险的动作，如果你不熟悉，请不要尝试！
@echo off
:: 乘法,加法,计算器,可计算小数
:: by 小楼一夜听春雨
:toud
cls
setlocal EnableDelayedExpansion
echo.&echo 目前只能计算 加法和乘法,可以计算超大数,和小数.
echo.&echo 加,减,乘,除,的表示方法分别是 + - x /
echo.&echo 输入方法 如: 1234567891212+65465831657654
echo.
set /p suru=请输入:
set suru=%suru: =%
for /f "tokens=1,2 delims=+-x/" %%a in ("%suru%") do (
set sstt1=%%a
set sstt2=%%b
)
call set pand=%%suru:%sstt1%=%%
call :lis !sstt1! _yw _ddd
call :lis !sstt2! _er _yyy
set _num1=!sstt1:.=!
set _num2=!sstt2:.=!
set _jb=0&set _dierg=0
if !_ddd! gtr !_yyy! (set /a _jb=_ddd-_yyy&set _dierg=2&set _jxs=!_ddd!) else set _jxs=!_yyy!
if !_ddd! lss !_yyy! set /a _jb=_yyy-_ddd&set _dierg=1
for /l %%y in (1 1 !_jb!) do set _jbo=!_jbo!0
if !_dierg! equ 0 set _jia11=!_num1!&set _jia22=!_num2!
if !_dierg! equ 2 set _jia22=!_num2!!_jbo!&set _jia11=!_num1!
if !_dierg! equ 1 set _jia11=!_num1!!_jbo!&set _jia22=!_num2!
set /a _ddd=_ddd+_yyy
if "%pand:~0,1%"=="+" call :kai !_jia11! !_jia22!
if !_yw! lss !_er! (
set _xia=!_num1!&set _sang=!_num2!
set _duo=!_er!&set _sao=!_yw!
) else (
set _xia=!_num2!&set _sang=!_num1!
set _duo=!_yw!&set _sao=!_er!
)
:: 计算乘法
set _jin=0&set _he=0
for /l %%a in (1 1 !_duo!) do (
set _var1=!_sang:~-%%a,1!
for /l %%b in (1 1 !_sao!) do (
set _var2=!_xia:~-%%b,1!
set /a _ji=!_var1!*!_var2!
set /a _ji=_jin+_ji
set _ji=0!_ji!
set _jin=!_ji:~-2,1!
set _abc=!_ji:~-1!!_abc!
)
:: 处理积
if !_abc! lss 1 set _abc=0
if !_jin! neq 0 set _abc=!_jin!!_abc!
set _lin=0!_lin!
set _abc=!_abc!!_lin!
set _abc=!_abc:~0,-1!
call :kai !_he! !_abc!
set _abc=&set _jin=0
)
goto jiajia
:: 将积相加
:kai
set __jie=
set __num1=%1&set __num2=%2
for /l %%i in (1 1 200) do (
set __str1=0!__num1!
set __str2=0!__num2!
)
set __str1=!__str1:~-200!&set __str2=!__str2:~-200!
set __jin=0
for /l %%i in (-1 -1 -200) do (
set /a __a=!__str1:~%%i,1!+!__str2:~%%i,1!+!__jin!
set __jie=!__a:~-1!!__jie!
set __a=0!__a!
set __jin=!__a:~-2,1!
)
for /f "tokens=* delims=0" %%i in ("!__jie!") do set _he=%%i
if "%pand:~0,1%"=="+" goto jiajia
goto :eof
:lis
:: 判断位数.
set _w=%1
set _dian=
for /l %%a in (0 1 200) do if not "!_w:~%%a,1!"=="" set /a %2+=1
for /f "tokens=2 delims=." %%a in ("%1") do set _dian=%%a
set _dddian=!_dddian!!_dian!
if not "!_dian!"=="" (
set /a %2-=1
for /l %%a in (0 1 50) do if not "!_dian:~%%a,1!"=="" set /a %3+=1
)
goto :eof
:: 显示结果
:jiajia
cls&echo.
for /l %%a in (1 1 10) do set _qian=!_qian!0
set _he=!_qian!!_he!
if "%pand:~0,1%"=="+" set _ddd=!_jxs!
call set _zh=%%_he:~0,-!_ddd!%%
call set _hou=%%_he:~-!_ddd!%%
if not "!_dddian!"=="" set _he=!_zh!.!_hou!
for /f "tokens=* delims=0" %%i in ("!_he!") do set _he=%%i
if "!_he:~0,1!"=="." set _he=0!_he!
:_zonjie
if not "!_dddian!"=="" (
if "!_he:~-1!"=="0" set _he=!_he:~0,-1!&goto _zonjie
if "!_he:~-1!"=="." set _he=!_he:~0,-1!
)
echo !sstt1!
echo %pand:~0,1% !sstt2!
echo = !_he!
for /f "tokens= 1delims=_=" %%z in ('set _') do set _%%z=&set __%%z=
echo.&pause
goto toud
|
@echo off
:: 乘法,加法,计算器,可计算小数
:: by 小楼一夜听春雨
:toud
cls
setlocal EnableDelayedExpansion
echo.&echo 目前只能计算 加法和乘法,可以计算超大数,和小数.
echo.&echo 加,减,乘,除,的表示方法分别是 + - x /
echo.&echo 输入方法 如: 1234567891212+65465831657654
echo.
set /p suru=请输入:
set suru=%suru: =%
for /f "tokens=1,2 delims=+-x/" %%a in ("%suru%") do (
set sstt1=%%a
set sstt2=%%b
)
call set pand=%%suru:%sstt1%=%%
call :lis !sstt1! _yw _ddd
call :lis !sstt2! _er _yyy
set _num1=!sstt1:.=!
set _num2=!sstt2:.=!
set _jb=0&set _dierg=0
if !_ddd! gtr !_yyy! (set /a _jb=_ddd-_yyy&set _dierg=2&set _jxs=!_ddd!) else set _jxs=!_yyy!
if !_ddd! lss !_yyy! set /a _jb=_yyy-_ddd&set _dierg=1
for /l %%y in (1 1 !_jb!) do set _jbo=!_jbo!0
if !_dierg! equ 0 set _jia11=!_num1!&set _jia22=!_num2!
if !_dierg! equ 2 set _jia22=!_num2!!_jbo!&set _jia11=!_num1!
if !_dierg! equ 1 set _jia11=!_num1!!_jbo!&set _jia22=!_num2!
set /a _ddd=_ddd+_yyy
if "%pand:~0,1%"=="+" call :kai !_jia11! !_jia22!
if !_yw! lss !_er! (
set _xia=!_num1!&set _sang=!_num2!
set _duo=!_er!&set _sao=!_yw!
) else (
set _xia=!_num2!&set _sang=!_num1!
set _duo=!_yw!&set _sao=!_er!
)
:: 计算乘法
set _jin=0&set _he=0
for /l %%a in (1 1 !_duo!) do (
set _var1=!_sang:~-%%a,1!
for /l %%b in (1 1 !_sao!) do (
set _var2=!_xia:~-%%b,1!
set /a _ji=!_var1!*!_var2!
set /a _ji=_jin+_ji
set _ji=0!_ji!
set _jin=!_ji:~-2,1!
set _abc=!_ji:~-1!!_abc!
)
:: 处理积
if !_abc! lss 1 set _abc=0
if !_jin! neq 0 set _abc=!_jin!!_abc!
set _lin=0!_lin!
set _abc=!_abc!!_lin!
set _abc=!_abc:~0,-1!
call :kai !_he! !_abc!
set _abc=&set _jin=0
)
goto jiajia
:: 将积相加
:kai
set __jie=
set __num1=%1&set __num2=%2
for /l %%i in (1 1 200) do (
set __str1=0!__num1!
set __str2=0!__num2!
)
set __str1=!__str1:~-200!&set __str2=!__str2:~-200!
set __jin=0
for /l %%i in (-1 -1 -200) do (
set /a __a=!__str1:~%%i,1!+!__str2:~%%i,1!+!__jin!
set __jie=!__a:~-1!!__jie!
set __a=0!__a!
set __jin=!__a:~-2,1!
)
for /f "tokens=* delims=0" %%i in ("!__jie!") do set _he=%%i
if "%pand:~0,1%"=="+" goto jiajia
goto :eof
:lis
:: 判断位数.
set _w=%1
set _dian=
for /l %%a in (0 1 200) do if not "!_w:~%%a,1!"=="" set /a %2+=1
for /f "tokens=2 delims=." %%a in ("%1") do set _dian=%%a
set _dddian=!_dddian!!_dian!
if not "!_dian!"=="" (
set /a %2-=1
for /l %%a in (0 1 50) do if not "!_dian:~%%a,1!"=="" set /a %3+=1
)
goto :eof
:: 显示结果
:jiajia
cls&echo.
for /l %%a in (1 1 10) do set _qian=!_qian!0
set _he=!_qian!!_he!
if "%pand:~0,1%"=="+" set _ddd=!_jxs!
call set _zh=%%_he:~0,-!_ddd!%%
call set _hou=%%_he:~-!_ddd!%%
if not "!_dddian!"=="" set _he=!_zh!.!_hou!
for /f "tokens=* delims=0" %%i in ("!_he!") do set _he=%%i
if "!_he:~0,1!"=="." set _he=0!_he!
:_zonjie
if not "!_dddian!"=="" (
if "!_he:~-1!"=="0" set _he=!_he:~0,-1!&goto _zonjie
if "!_he:~-1!"=="." set _he=!_he:~0,-1!
)
echo !sstt1!
echo %pand:~0,1% !sstt2!
echo = !_he!
for /f "tokens= 1delims=_=" %%z in ('set _') do set _%%z=&set __%%z=
echo.&pause
goto toud
|
* 为了达到最快的下载速度，推荐使用网际快车下载本站软件。
* 如果您发现该软件不能下载，请通知管理员或点击【此处报错】，谢谢！
* 未经本站明确许可，任何网站不得非法盗链及抄袭本站资源；如引用页面，请注明来自本站，谢谢您的支持！ |
|
|
| 网友评论：（评论内容只代表网友观点，与本站立场无关！） |
【发表评论】 |
|
|
