[数值计算] [分享]批处理版多功能计算器

psxch

@echo off
setlocal enabledelayedexpansion
title 多功能计算器
:menu
echo.
echo        ================================================
echo. 
echo                      请选择要进行的操作，然后按回车
echo.
echo        ================================================
echo.
echo                                1.加法计算器
echo                                2.减法计算器
echo                                3.乘法计算器
echo                                4.除法计算器
echo                                5.乘方计算器
echo                                 x.退出
set a=123456789abcdef
set /a d=%random%%%15
color 2!a:~%d%,1!
set /p choice= 请选择：
if %choice%==1 goto jia
if %choice%==2 goto jian
if %choice%==3 goto cheng
if %choice%==4 goto chu
if %choice%==5 goto chengfang
if %choice%==x goto tuichu
cls
echo 选择无效请重新输入：
echo.
goto menu

:jia
set /p str=请输入加数:&set /p var=请输入被加数：
set /a j=%str%+%var%
cls
echo 两数的和为：%j% 
echo.
set /p choice_1=返回主菜单请输入：[e]
cls
if /i %choice_1%==e goto menu else goto tuichu
:jian
set /p str=请输入减数:&set /p var=请输入被减数：
set /a ji=%str%-%var%
cls
echo 两数之差为：%ji%
echo.
set /p choice_1=返回主菜单请输入：[e]
cls
if /i %choice_1%==e goto menu else goto tuichu
:cheng
set /p str=请输入成数:&set /p var=请输入被乘数：
set /a ch=%str%*%var%
cls
echo 两数之积为：%ch%
echo.
set /p choice_1=返回主菜单请输入：[e]
cls
if /i %choice_1%==e goto menu else goto tuichu
:chu
set /p str=请输入除数：&set /p var=请输入被除数：
set /a c=%str%/%var%
cls
echo 两数之商为：%c%
echo.
set /p choice_1=返回主菜单请输入：[e]
cls
if /i %choice_1%==e goto menu else goto tuichu
:fang
set /p n=请输入2 的几次方: 
set /a num=1^<^<N 
cls
echo %num% 
echo.
set /p choice_1=返回主菜单请输入：[e]
cls
if /i %choice_1%==e goto menu else goto tuichu
:tuichu
echo 程序结束！
pause
复制代码

有个小错误，希望大家改进下。

[ 本帖最后由 psxch 于 2011-3-5 18:39 编辑 ]

CrLf

不说别的，3/2是多少...

acaigg

谢谢分享。学习一下。

wang6421453

楼主好强大啊，刚学了几天的批处理感觉蛮强大的，看了楼主的代码，感觉我还差好远啊。。。努力！！！！

psxch

@echo off
setlocal enabledelayedexpansion
title 批处理版多功能计算器
color 2f
echo.
echo 程序正在初始化...
echo.
echo  --------------------------------------------------------------
set /p a=●<NUL
for /L %%i in (1 1 30) do set /p a=●<nul&ping -n 1 127.0.0.1>nul
echo 100%%
cls
echo  --------------------------------------------------------------
echo.
echo.
echo                                                   初始化完成

:menu
echo.
echo                         ================================================
echo.
echo                                           请选择要进行的操作，然后按回车
echo.
echo                         ================================================
echo.
echo                                                 1.加法计算器
echo                                                 2.减法计算器
echo                                                 3.乘法计算器
echo                                                 4.除法计算器
echo                                                 5.乘方计算器
echo                                                 x.退出
set a=123456789abcdef
set /a d=%random%%%15
color 2!a:~%d%,1!
set /p choice= 请选择：
if %choice%==1 goto jia
if %choice%==2 goto jian
if %choice%==3 goto cheng
if %choice%==4 goto chu
if %choice%==5 goto chengfang
if %choice%==x goto tuichu
cls
echo 选择无效请重新输入：
echo.
goto menu

:jia
:jixu
set /p str=请输入加数:&set /p var=请输入被加数：
set /a j=%str%+%var%
cls
echo 两数的和为：%j%
echo.
echo 【输入若非0则继续加法操作】
echo.
set /p choice_1=返回主菜单请输入[0]:
cls
if /i %choice_1%==0 goto menu
if /i %choice_1% neq 0 goto jixu

:jian
:j
set /p str=请输入减数:&set /p var=请输入被减数：
set /a ji=%str%-%var%
cls
echo 两数之差为：%ji%
echo.
echo 【输入若非0则继续减法操作】
set /p choice_1=返回主菜单请输入[0]：
cls
if /i %choice_1%==0 goto menu
if /i %choice_1% neq 0 goto j
:cheng
:ji
set /p str=请输入成数:&set /p var=请输入被乘数：
set /a ch=%str%*%var%
cls
echo 两数之积为：%ch%
echo.
echo 【输入若非0则继续成法操作】
set /p choice_1=返回主菜单请输入[0]：
cls
if /i %choice_1%==0 goto menu
if /i %choice_1% neq 0 goto ji
:chu
:jix
set /p str=请输入除数：&set /p var=请输入被除数：
set /a c=%str%/%var%
cls
echo 两数之商为：%c%
echo.
echo 【输入若非0则继续除法操作】
set /p choice_1=返回主菜单请输入[0]：
cls
if /i %choice_1%==0 goto menu
if /i %choice_1% neq 0 goto jix
:chengfang
:q
set /p n=请输入2 的几次方:
set /a num=1^<^<N
cls
echo %num%
echo.
echo 【输入若非0则继续成方操作】
set /p choice_1=返回主菜单请输入[0]：
cls
if /i %choice_1%==0 goto menu
if /i %choice_1% neq 0 goto q
:tuichu
cls
echo ^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^| 程序结束！^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|^|
echo.
pause

本人原先发的代码有个小小的bug
现在在此已修改，如还有能改进的地方希望高手修改下。

[ 本帖最后由 psxch 于 2011-3-8 00:53 编辑 ]

psxch

失误啊...

标签
：fang
改为
：chengfang

CrLf

说句实在话，批处理的十进制计算能力着实不敢恭维

Batcher

那你得先说说是啥小错误啊