123
返回列表 发帖
applba

Rank: 6Rank: 6

帖子
551 
积分
2799 
技术
39  
捐助
0  
注册时间
2011-4-22 
31楼 跳转到 »
发表于 2011-4-27 11:57 | 只看该作者
本帖最后由 applba 于 2011-4-27 12:21 编辑 

@echo off &setlocal enabledelayedexpansion &color 17
:limit
set /p n1=请输入最大计算范围：
set /a n=!n1!  && if  !n! lss 2 (echo 您输入的数字有误！&goto limit)
:gen
set /a "a=(!random!%%!n!+1),b=(!random!%%!n!+1)"
if !a! gtr !b! (
	set /a r0=!a!-!b!
	set /p "r1=!a!-!b!=?_"
) else (
		set /a r0=!a!+!b!
		if !r0! GTR !n! goto gen
		set /p "r1=!a!+!b!=?_"
	)
if !r0! neq !r1! (echo "你答错了！正确答案是：!r0!" ) else (echo 您答对了！请再接再厉吧~)
pause>nul&cls&goto genCOPY
::我搞了半天没明白按“回车键”继续？

TOP

jixun66

Rank: 1

帖子
24 
积分
69 
技术
0  
捐助
0  
注册时间
2010-2-24 
32楼
发表于 2011-5-31 01:16 | 只看该作者
本帖最后由 jixun66 于 2011-5-31 01:28 编辑

代码很简单。


压缩前代码：
@echo off
setlocal enabledelayedexpansion
set /p max=请输入算数的和的上限：
if %max% LEQ 1 echo 最大值错误&%0
 
:loop
set /a p=%random% %% 2
set /a p1=%random% %% %max%
if !p!==1 (
	rem 加法
	set /a p2=%random% %% (^%max%-!p1!^)
	set s=+
) else (
	rem 减法
	set /a p2=%random% %% !p1!
	set s=-
)
echo.
echo %p1%%s%%p2%=?
echo.
set ans=
set /p ans=请输入答案：
set /a r=%p1%%s%%p2%
if "%r%"=="%ans%" (echo 答案正确！) else (echo 答案错误！&echo 正确答案是：%r%)
echo.
pause
goto loopCOPY
压缩后代码：
@echo off&setlocal enabledelayedexpansion&set /p max=请输入算数的和的上限：
if %max% LEQ 1 echo 最大值错误&%0
:loop
set /a p=%random% %% 2
set /a p1=%random% %% %max%
if !p!==1 (
 set /a p2=%random% %% (^%max%-!p1!^)
 set s=+
) else (
 set /a p2=%random% %% !p1!
 set s=-
)
echo.&echo %p1%%s%%p2%=?&echo.&set ans=
set /p ans=请输入答案：
set /a r=%p1%%s%%p2%
if "%r%"=="%ans%" (echo 答案正确！) else (echo 答案错误！&echo 正确答案是：%r%)
echo.&pause&goto loopCOPY
压缩后的代码的开头的空格怎么消失了..虽然下方的复制代码能复制进去。
还有一点，复制代码的时候我这里的TAB缩进符总是显示为『? ? ? ? 』，请问有没有解决办法？
系统环境：Windows 7+XP(虚拟机) 32 Bit

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14981 
积分
46194 
技术
859  
捐助
745  
注册时间
2008-6-9 
33楼
发表于 2011-5-31 19:51 | 只看该作者
32# jixun66


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

TOP

asd821089612

Rank: 1

帖子
24 
积分
37 
技术
1  
捐助
0  
注册时间
2011-4-4 
34楼
发表于 2011-7-23 09:20 | 只看该作者 
@echo off
set /p a=请输入是多少以内的加减法
color 9f
:start
set /a pan=%random%%%2
if %pan%==1 goto jia
if %pan%==0 goto jian
:jia
set /a b=%random%%%(%a%+1)
set /a d=%a%-%b%+1
set /a c=%random%%%%d%
set /a he=%b%+%c%
echo %b%+%c%=?
set /p an=请输入答案：
if %an%==%he% echo 恭喜你，答对了
if %an% neq %he% echo 错误，正确答案是%he%
pause>nul
goto start
 
 
:jian
set /a b=%random%%%(%a%+1)
set /a c=%random%%%(%a%+1)
if %b% gtr %c% goto 1
goto 2
:1
echo %b%-%c%=?
set /p an=请输入答案：
set /a cha=%b%-%c%
if %an%==%cha% echo 恭喜你，答对了
if %an% neq %cha% echo 错误，正确答案是%he%
pause>nul
goto start
:2
echo %c%-%b%=?
set /p an=请输入答案：
set /a cha=%c%-%b%
if %an%==%cha% echo 恭喜你，答对了
if %an% neq %cha% echo 错误，正确答案是%he%
pause>nul
goto startCOPY
nothing's gonna change
and I've never changed

TOP

smith203

Rank: 1

帖子
38 
积分
58 
技术
0  
捐助
0  
注册时间
2011-3-5 
35楼
发表于 2011-8-20 14:39 | 只看该作者
批处理是不是不能算小数？

明明结果是1.8， 显示的却是1，

TOP

raymai97

Rank: 5Rank: 5

帖子
268 
积分
872 
技术
19  
捐助
0  
注册时间
2010-5-30 
36楼
发表于 2011-8-20 16:51 | 只看该作者
回复 35# smith203


    没错，批处理天生不能算小数点~
为何批处理不适合做界面
为何随风讨厌call命令
http://bbs.bathome.net/thread-4482-1-10.html

TOP

brim

Rank: 3Rank: 3

帖子
14 
积分
200 
技术
3  
捐助
0  
注册时间
2008-11-27 
37楼
发表于 2011-9-17 11:49 | 只看该作者
菜鸟一个，请多指教。
@echo off
color 9F
:aa
Set /a "sum1=%random%%%1000"
Set /a "sum2=%random%%%1000"
If %sum1% gtr %sum2% (Set /a sum3=%sum1%-%sum2% &echo %sum1%-%sum2%) else (Set /a sum3=%sum2%-%sum1%&echo %sum2%-%sum1%)
Set /p sum4= 请输入您的答案：
if %sum3%==%sum4% (echo  正确答案是%sum3%&echo  你的答案是%sum4%恭喜你答对了！继续努力，不要骄傲喔) else echo  正确答案是%sum3%&echo  你的答案是%sum4%，太可惜了，你答错了！不要气馁喔，继续努力，加油！
Goto aaCOPY
1

评分人数

    • batman: 参与就是好的，加分鼓励PB + 2

TOP

ljfnh403

Rank: 1

帖子
8 
积分
29 
技术
0  
捐助
0  
注册时间
2011-12-28 
38楼
发表于 2012-3-10 17:58 | 只看该作者
@echo off&setlocal EnableDelayedExpansion&set f=+-&set "制表符=        "&rem 请在这里放入制表符
set 退格=%制表符%-&mode con cols=80 lines=25
set/p max=输入最大数值：&set/a max+=1
for /l %%a in () do (set/a a1=!random!%%max,a2=!random!%%max,r=!random!%%2
for %%b in (!r!) do (set/p ans=→!a1!!f:~%%b,1!!a2!=
set/a ans=a1!f:~%%b,1!a2-ans+0
echo.%退格%
if !ans!==0 (echo.√) else echo.×))

TOP

ljfnh403

Rank: 1

帖子
8 
积分
29 
技术
0  
捐助
0  
注册时间
2011-12-28 
39楼
发表于 2012-3-10 18:00 | 只看该作者
@echo off&setlocal EnableDelayedExpansion&set f=+-
set "制表符=        "&rem 请在这里放入制表符
set "退格符="&rem 请在这里放入12个退格符
set 退格=%制表符%%退格符%&mode con cols=80 lines=25
set/p max=输入最大数值：&set/a max+=1
for /l %%a in () do (set/a a1=!random!%%max,a2=!random!%%max,r=!random!%%2
for %%b in (!r!) do (set/p ans=→!a1!!f:~%%b,1!!a2!=
set/a ans=a1!f:~%%b,1!a2-ans+0
echo.%退格%
if !ans!==0 (echo.√) else echo.×))

TOP

sds

Rank: 1

帖子
52 
积分
85 
技术
5  
捐助
0  
注册时间
2022-12-4 
40楼
发表于 2022-12-19 21:03 | 只看该作者
我也做了一个,个人感觉还行，就是减法出现负数的情况不可避免（以我现在的水平来看）
@echo off
color 1F
setlocal enableDelayedExpansion
title 小学生加减法练习器v1.0
 
:menu
cls
echo      ┌───────────────────┐
echo         小学生加减法练习器v１．０       
echo      └───────────────────┘ 
echo               ┌──┐
echo               │１│     开始练习
echo               └──┘
echo.
echo               ┌──┐
echo               │２│     退出
echo               └──┘
set /p choose=请输入:
if %choose%==1 goto lianxi
if %choose%==2 exit
echo 输入有误! 请重新输入
pause>nul
goto menu
 
:lianxi
cls
set /p sx=请输入数字上限:
set /p sc=要计算的是加法还是减法(A,B)?
 
 
:clc
 
 
::处理加数(或减数)
set /a m=%random%%%%sx%
set /a n=%random%%%%sx%
 
::处理算式
if %sc%==A set ss=%m%+%n%
if %sc%==B set ss=%m%-%n%
 
::生成答案
set /a results=%ss%
 
:loop
cls
set times=0
echo        第[%times%]道题
echo    请计算:%ss%
set /p ans=请输入结果：
set /a time=%time%+1
 
::结果与标准答案进行对比
if %ans% gtr %results% set d=大&goto error
if %ans% lss %results% set d=小&goto error
if %ans% equ %results% goto right
 
:error
cls
echo 你计算的结果%d%了！
pause>nul
goto clc
 
:right
cls
echo Bingo 你算对了 
echo 按任意键继续答题
pause>nul
goto clcCOPY

TOP

sds

Rank: 1

帖子
52 
积分
85 
技术
5  
捐助
0  
注册时间
2022-12-4 
41楼
发表于 2022-12-20 09:46 | 只看该作者
发现一个bug：因为每次算完都会跳到clc，导致变量%times%不断清零，无法正常计数

下面是修复后的代码
@echo off
color 1F
setlocal enableDelayedExpansion
title 小学生加减法练习器v1.1
 
:menu
cls
echo      ┌───────────────────┐
echo         小学生加减法练习器v１．０
echo      └───────────────────┘ 
echo               ┌──┐
echo               │１│     开始练习
echo               └──┘
echo.
echo               ┌──┐
echo               │２│     退出
echo               └──┘
set /p choose=请输入:
if %choose%==1 goto lianxi
if %choose%==2 exit
echo 输入有误! 请重新输入
pause>nul
goto menu
 
:lianxi
set times=0
cls
set /p sx=请输入数字上限:
set /p sc=要计算的是加法还是减法(A,B)?
 
 
:clc
 
 
::处理加数(或减数)
set /a m=%random%%%%sx%
set /a n=%random%%%%sx%
 
::处理算式
if %sc%==A set ss=%m%+%n%
if %sc%==B set ss=%m%-%n%
 
::生成答案
set /a results=%ss%
 
:loop
cls
 
echo        第[%times%]道题
echo    请计算:%ss%
set /p ans=请输入结果：
set /a times=%times%+1
 
::结果与标准答案进行对比
if %ans% gtr %results% set d=大&goto error
if %ans% lss %results% set d=小&goto error
if %ans% equ %results% goto right
 
:error
cls
echo 你计算的结果%d%了！
pause>nul
goto clc
 
:right
cls
echo Bingo 你算对了 
echo 按任意键继续答题
pause>nul
goto clcCOPY

TOP

sds

Rank: 1

帖子
52 
积分
85 
技术
5  
捐助
0  
注册时间
2022-12-4 
42楼
发表于 2022-12-20 09:50 | 只看该作者
本帖最后由 sds 于 2022-12-20 09:52 编辑

压缩后代码，去掉了菜单和注释，简化代码
@echo off
 
:lianxi
set times=0
cls
set /p sx=请输入数字上限:
set /p sc=要计算的是加法还是减法(A,B)?
 
:clc
set /a m=%random%%%%sx%
set /a n=%random%%%%sx%
if %sc%==A set ss=%m%+%n%
if %sc%==B set ss=%m%-%n%
set /a results=%ss%
 
:loop
cls
echo        第[%times%]道题
echo    请计算:%ss%
set /p ans=请输入结果：
set /a times=%times%+1
if %ans% gtr %results% set d=大&goto error
if %ans% lss %results% set d=小&goto error
if %ans% equ %results% goto right
 
:error
cls
echo 你计算的结果%d%了！
pause>nul
goto clc
 
:right
cls
echo Bingo 你算对了 
echo 按任意键继续答题
pause>nul
goto clcCOPY

TOP

123
返回列表