标题: 批处理计算器 [打印本页]
作者: 26933062 时间: 2007-2-7 05:35 标题: 批处理计算器
可能用批处理作个计算器吗?要能显示小数的
比如9除以4=2.25
[ Last edited by 26933062 on 2007-2-6 at 04:44 PM ]
作者: namejm 时间: 2007-2-7 10:13
以下代码可以指定正整数相除的精确度，没有做出错检测：
@echo off
setlocal enabledelayedexpansion
:begin
cls
set num=0
set dec_str=
set input=
set /p input= 请输入以空格分隔的被除数、除数和精确度：
for /f "delims=" %%i in ("%input%") do call :count %%i
:count
set /a int_str=%1/%2
set /a mod=%1%%%2
if %mod% equ 0 goto end
:count_dec
set mod=%mod%0
if %mod% lss %2 (
set dec_str=!dec_str!0
goto count_dec
) else (
set /a dec=%mod%/%2
set dec_str=!dec_str!!dec!
set /a mod=%mod%%%%2
)
set /a num+=1
if %mod% neq 0 if %num% lss %3 goto count_dec
:end
for /l %%i in (1,1,%3) do set zero_str=!zero_str!0
set dec_str=%dec_str%%zero_str%
cls
echo.&echo.&echo.
echo %1÷%2=%int_str%.!dec_str:~0,%3! ^(保留 %3 位小数^)
echo.
pause
goto begin
sorry，写错了个变量，更正一下。setlocal enabledelayedexpansion
:begin
cls
set num=0
set dec_str=
set input=
set /p input= 请输入以空格分隔的被除数、除数和精确度：
for /f "delims=" %%i in ("%input%") do call :count %%i
:count
set /a int_str=%1/%2
set /a mod=%1%%%2
if %mod% equ 0 goto end
:count_dec
set mod=%mod%0
if %mod% lss %2 (
set dec_str=!dec_str!0
goto count_dec
) else (
set /a dec=%mod%/%2
set dec_str=!dec_str!!dec!
set /a mod=%mod%%%%2
)
set /a num+=1
if %mod% neq 0 if %num% lss %3 goto count_dec
:end
for /l %%i in (1,1,%3) do set zero_str=!zero_str!0
set dec_str=%dec_str%%zero_str%
cls
echo.&echo.&echo.
echo %1÷%2=%int_str%.!dec_str:~0,%3! ^(保留 %3 位小数^)
echo.
pause
goto begin
[ Last edited by namejm on 2007-2-7 at 12:23 PM ]
作者: vkill 时间: 2007-2-7 10:47
论坛讨论过的啊，除法、乘法和加讲法，开方还没有实现
作者: namejm 时间: 2007-2-7 11:10
呵呵，那个帖子太长了，很多好代码都淹没在回帖中，现在再去翻了翻，竟然发现很多内容自己都已经淡忘了。
作者: 26933062 时间: 2007-2-7 14:29
set /a mod=%1%%%2
请问这是什么意识?
set /a mod=9%%4 这样写可以吗?
但是我再 echo %mod% 不对啊??????
作者: kernelv 时间: 2007-2-7 16:04
| Quote: | |
|
第一句可以这样拆开看：set/a mod=%1 "%%" %2
也就是第一个参数让第二个参数取余。
第二句没问题，但必须是在批处理中，想必你是直接在CMD下执行才得不到正确的结果。
作者: anqing 时间: 2007-2-8 01:15
挺有意思的，p也能做计算，有意思
版主高明
作者: anqing 时间: 2007-2-8 01:20
但输入23 12 2和输入23 12 3，都是1.90 和1.900
如果精确到2位的话，应该是1.91，如果三位则是1.916才是呀？
为什么9后面全是0代替呀，和楼主的意思不符吧？
作者: namejm 时间: 2007-2-8 01:29
| Quote: | |
|
发帖的时候匆忙，把测试版本发出来了，结果 “if %mod% neq 0 if %num% lss %pre% goto count_dec” 没有修改，现在已经把 %pre% 修改为 %3，已经没问题了。
作者: redtek 时间: 2007-2-8 01:34
再帮楼主补充一个关于计算的链接：）
批处理处理浮点运算
http://www.cn-dos.net/forum/view ... E7%82%B9&page=1
作者: anqing 时间: 2007-2-8 01:50
版主很敬业呀，代码测试可行
作者: 6622186 时间: 2007-3-10 07:52
% 在做运算符可做求余符?