批处理之家 » BAT求助&讨论 » 我写了个算24程序，有缺陷

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 4

帖子: 21
积分: 377
技术: 1
捐助: 0
注册时间: 2008-8-23

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2008-9-13 22:05 | 只看该作者

[数值计算] 我写了个算24程序，有缺陷

程序有2个批处理文件：main.cmd与1.cmd
main.cmd代码：

@echo off
setlocal enabledelayedexpansion
title 算24
set suan=24
set cg=0
set /p suan=输入要算的数字:
set /p y=输入第一个数:
set /p e=输入第二个数:
set /p s=输入第三个数:
set /p f=输入第四个数:
cls
echo 正在计算，请稍候...
set a=%y%
set b=%e%
set c=%s%
set d=%f%
call 1.cmd
set a=%y%
set b=%e%
set d=%s%
set c=%f%
call 1.cmd
set a=%y%
set c=%e%
set b=%s%
set d=%f%
call 1.cmd
set a=%y%
set c=%e%
set d=%s%
set b=%f%
call 1.cmd
set a=%y%
set d=%e%
set b=%s%
set c=%f%
call 1.cmd
set a=%y%
set d=%e%
set c=%s%
set b=%f%
call 1.cmd
set b=%y%
set a=%e%
set c=%s%
set d=%f%
call 1.cmd
set b=%y%
set a=%e%
set d=%s%
set c=%f%
call 1.cmd
set b=%y%
set c=%e%
set a=%s%
set d=%f%
call 1.cmd
set b=%y%
set c=%e%
set d=%s%
set a=%f%
call 1.cmd
set b=%y%
set c=%e%
set d=%s%
set a=%f%
call 1.cmd
set b=%y%
set d=%e%
set a=%s%
set c=%f%
call 1.cmd
set b=%y%
set d=%e%
set c=%s%
set a=%f%
call 1.cmd
set c=%y%
set a=%e%
set b=%s%
set d=%f%
call 1.cmd
set c=%y%
set a=%e%
set d=%s%
set b=%f%
call 1.cmd
set c=%y%
set b=%e%
set a=%s%
set d=%f%
call 1.cmd
set c=%y%
set b=%e%
set d=%s%
set a=%f%
call 1.cmd
set c=%y%
set d=%e%
set a=%s%
set b=%f%
call 1.cmd
set c=%y%
set d=%e%
set b=%s%
set a=%f%
call 1.cmd
set d=%y%
set a=%e%
set b=%s%
set c=%f%
call 1.cmd
set d=%y%
set a=%e%
set c=%s%
set b=%f%
call 1.cmd
set d=%y%
set b=%e%
set a=%s%
set c=%f%
call 1.cmd
set d=%y%
set b=%e%
set c=%s%
set a=%f%
call 1.cmd
set d=%y%
set c=%e%
set a=%s%
set b=%f%
call 1.cmd
set d=%y%
set c=%e%
set b=%s%
set a=%f%
call 1.cmd
if %cg%==0 echo 对不起,没算出来,按任意键退出...
if %cg%==1 echo 计算完毕，所有结果都已显示,按任意键退出...
pause>>%tmp%\pause.tmp
复制代码

1.cmd代码：

set /a js=((%a%+%b%)+%c%)+%d%
if %js%==%suan% echo ((%a%+%b%)+%c%)+%d%=%suan%&set cg=1
set /a js=((%a%+%b%)+%c%)-%d%
if %js%==%suan% echo ((%a%+%b%)+%c%)-%d%=%suan%&set cg=1
set /a js=((%a%+%b%)+%c%)*%d%
if %js%==%suan% echo ((%a%+%b%)+%c%)×%d%=%suan%&set cg=1
set /a js=((%a%+%b%)+%c%)/%d%
if %js%==%suan% echo ((%a%+%b%)+%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%+%b%)-%c%)+%d%
if %js%==%suan% echo ((%a%+%b%)-%c%)+%d%=%suan%&set cg=1
set /a js=((%a%+%b%)-%c%)-%d%
if %js%==%suan% echo ((%a%+%b%)-%c%)-%d%=%suan%&set cg=1
set /a js=((%a%+%b%)-%c%)*%d%
if %js%==%suan% echo ((%a%+%b%)-%c%)×%d%=%suan%&set cg=1
set /a js=((%a%+%b%)-%c%)/%d%
if %js%==%suan% echo ((%a%+%b%)-%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%+%b%)*%c%)+%d%
if %js%==%suan% echo ((%a%+%b%)×%c%)+%d%=%suan%&set cg=1
set /a js=((%a%+%b%)*%c%)-%d%
if %js%==%suan% echo ((%a%+%b%)×%c%)-%d%=%suan%&set cg=1
set /a js=((%a%+%b%)*%c%)*%d%
if %js%==%suan% echo ((%a%+%b%)×%c%)×%d%=%suan%&set cg=1
set /a js=((%a%+%b%)*%c%)/%d%
if %js%==%suan% echo ((%a%+%b%)×%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%+%b%)/%c%)+%d%
if %js%==%suan% echo ((%a%+%b%)÷%c%)+%d%=%suan%&set cg=1
set /a js=((%a%+%b%)/%c%)-%d%
if %js%==%suan% echo ((%a%+%b%)÷%c%)-%d%=%suan%&set cg=1
set /a js=((%a%+%b%)/%c%)*%d%
if %js%==%suan% echo ((%a%+%b%)÷%c%)×%d%=%suan%&set cg=1
set /a js=((%a%+%b%)/%c%)/%d%
if %js%==%suan% echo ((%a%+%b%)÷%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%-%b%)+%c%)+%d%
if %js%==%suan% echo ((%a%-%b%)+%c%)+%d%=%suan%&set cg=1
set /a js=((%a%-%b%)+%c%)-%d%
if %js%==%suan% echo ((%a%-%b%)+%c%)-%d%=%suan%&set cg=1
set /a js=((%a%-%b%)+%c%)*%d%
if %js%==%suan% echo ((%a%-%b%)+%c%)×%d%=%suan%&set cg=1
set /a js=((%a%-%b%)+%c%)/%d%
if %js%==%suan% echo ((%a%-%b%)+%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%-%b%)-%c%)+%d%
if %js%==%suan% echo ((%a%-%b%)-%c%)+%d%=%suan%&set cg=1
set /a js=((%a%-%b%)-%c%)-%d%
if %js%==%suan% echo ((%a%-%b%)-%c%)-%d%=%suan%&set cg=1
set /a js=((%a%-%b%)-%c%)*%d%
if %js%==%suan% echo ((%a%-%b%)-%c%)×%d%=%suan%&set cg=1
set /a js=((%a%-%b%)-%c%)/%d%
if %js%==%suan% echo ((%a%-%b%)-%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%-%b%)*%c%)+%d%
if %js%==%suan% echo ((%a%-%b%)×%c%)+%d%=%suan%&set cg=1
set /a js=((%a%-%b%)*%c%)-%d%
if %js%==%suan% echo ((%a%-%b%)×%c%)-%d%=%suan%&set cg=1
set /a js=((%a%-%b%)*%c%)*%d%
if %js%==%suan% echo ((%a%-%b%)×%c%)×%d%=%suan%&set cg=1
set /a js=((%a%-%b%)*%c%)/%d%
if %js%==%suan% echo ((%a%-%b%)×%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%-%b%)/%c%)+%d%
if %js%==%suan% echo ((%a%-%b%)÷%c%)+%d%=%suan%&set cg=1
set /a js=((%a%-%b%)/%c%)-%d%
if %js%==%suan% echo ((%a%-%b%)÷%c%)-%d%=%suan%&set cg=1
set /a js=((%a%-%b%)/%c%)*%d%
if %js%==%suan% echo ((%a%-%b%)÷%c%)×%d%=%suan%&set cg=1
set /a js=((%a%-%b%)/%c%)/%d%
if %js%==%suan% echo ((%a%-%b%)÷%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%*%b%)+%c%)+%d%
if %js%==%suan% echo ((%a%×%b%)+%c%)+%d%=%suan%&set cg=1
set /a js=((%a%*%b%)+%c%)-%d%
if %js%==%suan% echo ((%a%×%b%)+%c%)-%d%=%suan%&set cg=1
set /a js=((%a%*%b%)+%c%)*%d%
if %js%==%suan% echo ((%a%×%b%)+%c%)×%d%=%suan%&set cg=1
set /a js=((%a%*%b%)+%c%)/%d%
if %js%==%suan% echo ((%a%×%b%)+%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%*%b%)-%c%)+%d%
if %js%==%suan% echo ((%a%×%b%)-%c%)+%d%=%suan%&set cg=1
set /a js=((%a%*%b%)-%c%)-%d%
if %js%==%suan% echo ((%a%×%b%)-%c%)-%d%=%suan%&set cg=1
set /a js=((%a%*%b%)-%c%)*%d%
if %js%==%suan% echo ((%a%×%b%)-%c%)×%d%=%suan%&set cg=1
set /a js=((%a%*%b%)-%c%)/%d%
if %js%==%suan% echo ((%a%×%b%)-%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%*%b%)*%c%)+%d%
if %js%==%suan% echo ((%a%×%b%)×%c%)+%d%=%suan%&set cg=1
set /a js=((%a%*%b%)*%c%)-%d%
if %js%==%suan% echo ((%a%×%b%)×%c%)-%d%=%suan%&set cg=1
set /a js=((%a%*%b%)*%c%)*%d%
if %js%==%suan% echo ((%a%×%b%)×%c%)×%d%=%suan%&set cg=1
set /a js=((%a%*%b%)*%c%)/%d%
if %js%==%suan% echo ((%a%×%b%)×%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%*%b%)/%c%)+%d%
if %js%==%suan% echo ((%a%×%b%)÷%c%)+%d%=%suan%&set cg=1
set /a js=((%a%*%b%)/%c%)-%d%
if %js%==%suan% echo ((%a%×%b%)÷%c%)-%d%=%suan%&set cg=1
set /a js=((%a%*%b%)/%c%)*%d%
if %js%==%suan% echo ((%a%×%b%)÷%c%)×%d%=%suan%&set cg=1
set /a js=((%a%*%b%)/%c%)/%d%
if %js%==%suan% echo ((%a%×%b%)÷%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%/%b%)+%c%)+%d%
if %js%==%suan% echo ((%a%÷%b%)+%c%)+%d%=%suan%&set cg=1
set /a js=((%a%/%b%)+%c%)-%d%
if %js%==%suan% echo ((%a%÷%b%)+%c%)-%d%=%suan%&set cg=1
set /a js=((%a%/%b%)+%c%)*%d%
if %js%==%suan% echo ((%a%÷%b%)+%c%)×%d%=%suan%&set cg=1
set /a js=((%a%/%b%)+%c%)/%d%
if %js%==%suan% echo ((%a%÷%b%)+%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%/%b%)-%c%)+%d%
if %js%==%suan% echo ((%a%÷%b%)-%c%)+%d%=%suan%&set cg=1
set /a js=((%a%/%b%)-%c%)-%d%
if %js%==%suan% echo ((%a%÷%b%)-%c%)-%d%=%suan%&set cg=1
set /a js=((%a%/%b%)-%c%)*%d%
if %js%==%suan% echo ((%a%÷%b%)-%c%)×%d%=%suan%&set cg=1
set /a js=((%a%/%b%)-%c%)/%d%
if %js%==%suan% echo ((%a%÷%b%)-%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%/%b%)*%c%)+%d%
if %js%==%suan% echo ((%a%÷%b%)×%c%)+%d%=%suan%&set cg=1
set /a js=((%a%/%b%)*%c%)-%d%
if %js%==%suan% echo ((%a%÷%b%)×%c%)-%d%=%suan%&set cg=1
set /a js=((%a%/%b%)*%c%)*%d%
if %js%==%suan% echo ((%a%÷%b%)×%c%)×%d%=%suan%&set cg=1
set /a js=((%a%/%b%)*%c%)/%d%
if %js%==%suan% echo ((%a%÷%b%)×%c%)÷%d%=%suan%&set cg=1
set /a js=((%a%/%b%)/%c%)+%d%
if %js%==%suan% echo ((%a%÷%b%)÷%c%)+%d%=%suan%&set cg=1
set /a js=((%a%/%b%)/%c%)-%d%
if %js%==%suan% echo ((%a%÷%b%)÷%c%)-%d%=%suan%&set cg=1
set /a js=((%a%/%b%)/%c%)*%d%
if %js%==%suan% echo ((%a%÷%b%)÷%c%)×%d%=%suan%&set cg=1
set /a js=((%a%/%b%)/%c%)/%d%
if %js%==%suan% echo ((%a%÷%b%)÷%c%)÷%d%=%suan%&set cg=1
复制代码

但有数会显示一些错误结果，可能由于set不能计算小数点，请问如何解决

Rank: 12

帖子: 14791
积分: 45967
技术: 847
捐助: 745
注册时间: 2008-6-9

2楼

发表于 2008-9-13 22:19 | 只看该作者

关于小数计算，可以到这个帖子里面找找。
http://www.cn-dos.net/forum/viewthread.php?tid=27667&fpage=1

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

3楼

发表于 2008-9-13 23:14 | 只看该作者

用P处理小数可能很吃力
以前也写了一个没用除
http://bbs.bathome.net/thread-168-1-1.html

Rank: 8 Rank: 8

帖子: 342
积分: 3936
技术: 9
捐助: 0
注册时间: 2008-8-27

4楼

发表于 2008-9-14 21:52 | 只看该作者

@echo off&color c0&title 算24
setlocal ENABLEDELAYEDEXPANSION
::from 771815005
:number1
set /a shu1=%random%%%11
if "%shu1%"=="0" goto number1
:number2
set /a shu2=%random%%%11
for %%b in (%shu1% 0) DO if %shu2%==%%b goto number2
:number3
set /a shu3=%random%%%11
for %%j in (%shu1% %shu2% 0) DO if %shu3%==%%j goto number3
:number4
set /a shu4=%random%%%11
for %%h in (%shu1% %shu2% %shu3% 0) DO if %shu4%==%%h goto number4
echo.&echo 请用%shu1% %shu2% %shu3% %shu4%算出24。
echo.&echo S键跳过，E键退出。
:input
Echo.&Set /p suan=请输入算式：&cls&echo.
echo 验证中，请稍候...&echo.
if "%suan%"=="" goto input
if %suan%==s cls&goto number1
if %suan%==e cls&echo.&Echo goodbye!&pause>nul&exit
set suan=%suan:[=(%
set suan=%suan:]=)%
set /a jieguo="%suan%"&set tp=0
for /l %%i in (1 1 4) do (
echo "%suan%"|find "+!shu%%i!">nul||echo "%suan%"|find "-!shu%%i!">nul||^
echo "%suan%"|find "*!shu%%i!">nul||echo "%suan%"|find "/!shu%%i!">nul||^
echo "%suan%"|find "(!shu%%i!">nul||set /a tp+=1
)
if not "%suan:~0,1%"=="(" set /a tp-=1
if %jieguo% equ 24 if %tp% lss 1 goto yes
:no
echo 啊，不对！&goto next
:yes
echo Yes，对了！
:next
echo.&echo 下一题...
pause>nul&cls&goto number1
复制代码

2008.09.29更新

[ 本帖最后由 yslyxqysl 于 2008-9-29 14:57 编辑 ]

Rank: 12

帖子: 14791
积分: 45967
技术: 847
捐助: 745
注册时间: 2008-6-9

5楼

发表于 2008-9-14 22:15 | 只看该作者

回复 4楼的帖子

本版规则
　　1、求代码、寻求代码解释、探讨代码得失的帖子均可发在本版块，其余话题禁止在本版讨论；
　　2、求助时，务必在顶楼一次性把问题交代清楚；若文字难以表述，请配图说明，或是上传附件；但是，一切操作应从节约论坛资源的角度出发，能文字说明清楚的就无需再发图片，小图能说明问题的尽量不截全图，在不影响效果的前提下尽量压缩图片及附件；
　　3、所发代码若不止一行，请务必用code标签把代码部分首尾括起来，以便他人复制；

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 8 Rank: 8

帖子: 2702
积分: 14559
技术: 176
捐助: 630
注册时间: 2008-6-16

6楼

发表于 2008-9-19 21:24 | 只看该作者

一楼、四楼的都写的过于复杂了，看着眼都花了，以前也写过一个算24的，现在一时找不到了，重写又懒得动手了，建议将算号和括号都用变量来表示，将会极大简化代码的。

＊＊＊共同提高＊＊＊

Rank: 8 Rank: 8

帖子: 618
积分: 6100
技术: 9
捐助: 0
注册时间: 2008-8-10

7楼

发表于 2008-9-19 22:24 | 只看该作者

楼主纯粹是列举，可采纳6楼的方法

不过用for来循环好像乘号*会被识别为文件名，不知为什么。

Rank: 12

帖子: 14791
积分: 45967
技术: 847
捐助: 745
注册时间: 2008-6-9

8楼

发表于 2008-9-19 23:54 | 只看该作者

回复 7楼的帖子

你的for怎样写的？
乘号*会被识别为文件名是因为*被看作统配符了吧

我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

Rank: 8 Rank: 8

帖子: 2339
积分: 9739
技术: 475
捐助: 0
注册时间: 2008-2-25

9楼

发表于 2008-9-27 20:51 | 只看该作者

除法是个问题

@echo off&
setlocal enabledelayedexpansion
set/p str=输入4个数(空格隔开)
for %%i in (!str!) do set/a n+=1&set var=!var! !n!&set "!n!=%%i"
        set m1=+&set m2=-&set m3=*
        for %%i in (!var!) do (
        set "var1=!var:%%i=!"
        for %%j in (!var1!) do (
        set "var2=!var1:%%j=!"
        for %%k in (!var2!) do (
        set "var3=!var2:%%k=!"
        for %%l in (!var3!) do (
                for /l %%a in (1,1,3) do (
                for /l %%b in (1,1,3) do (
                for /l %%c in (1,1,3) do (
      set/a str=!%%i!!m%%a!!%%j!!m%%b!!%%k!!m%%c!!%%l!
      if !str! equ 24 set/p=!%%i!!m%%a!!%%j!!m%%b!!%%k!!m%%c!!%%l!=!str!&exit
      set/a str=^(!%%i!!m%%a!!%%j!^)!m%%b!!%%k!!m%%c!!%%l!
      if !str! equ 24 set/p=^(!%%i!!m%%a!!%%j!^)!m%%b!!%%k!!m%%c!!%%l!=!str!&exit
      set/a str=!%%i!!m%%a!^(!%%j!!m%%b!!%%k!^)!m%%c!!%%l!
      if !str! equ 24 set/p=!%%i!!m%%a!^(!%%j!!m%%b!!%%k!^)!m%%c!!%%l!=!str!&exit
      set/a str=!%%i!!m%%a!!%%j!!m%%b!^(!%%k!!m%%c!!%%l!^)
      if !str! equ 24 set/p=!%%i!!m%%a!!%%j!!m%%b!^(!%%k!!m%%c!!%%l!^)=!str!&exit
      set/a str=^(!%%i!!m%%a!!%%j!!m%%b!!%%k!^)!m%%c!!%%l!
      if !str! equ 24 set/p=^(!%%i!!m%%a!!%%j!!m%%b!!%%k!^)!m%%c!!%%l!=!str!&exit
      set/a str=!%%i!!m%%a!^(!%%j!!m%%b!!%%k!!m%%c!!%%l!^)
      if !str! equ 24 set/p=!%%i!!m%%a!^(!%%j!!m%%b!!%%k!!m%%c!!%%l!^)=!str!&exit
      set/a str=^(!%%i!!m%%a!!%%j!^)!m%%b!^(!%%k!!m%%c!!%%l!^)
      if !str! equ 24 set/p=^(!%%i!!m%%a!!%%j!^)!m%%b!^(!%%k!!m%%c!!%%l!^)=!str!&exit
      set/a str=^(!%%i!!m%%a!^(!%%j!!m%%b!!%%k!^)^)!m%%c!!%%l!
      if !str! equ 24 set/p=^(!%%i!!m%%a!^(!%%j!!m%%b!!%%k!^)^)!m%%c!!%%l!=!str!&exit
      set/a str=^(^(!%%i!!m%%a!!%%j!^)!m%%b!!%%k!^)!m%%c!!%%l!
      if !str! equ 24 set/p=^(^(!%%i!!m%%a!!%%j!^)!m%%b!!%%k!^)!m%%c!!%%l!=!str!&exit
      set/a str=!%%i!!m%%a!^(!%%j!!m%%b!^(!%%k!!m%%c!!%%l!^)^)
      if !str! equ 24 set/p=!%%i!!m%%a!^(!%%j!!m%%b!^(!%%k!!m%%c!!%%l!^)^)=!str!&exit
      set/a str=!%%i!!m%%a!^(^(!%%j!!m%%b!!%%k!^)!m%%c!!%%l!^)
      if !str! equ 24 set/p=!%%i!!m%%a!^(^(!%%j!!m%%b!!%%k!^)!m%%c!!%%l!^)=!str!&exit
      )))))))
echo.
echo 对不起,没算出来!
echo.
pause&exit
复制代码