中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

中国DOS联盟论坛
现在时间是 2026-06-24 09:32
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [原创]批处理算24点 查看 7,656 回复 33
16 发表于 2009-01-10 14:36 ·  中国 广东 揭阳 电信
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
18年会员
UID 110072
性别 男
状态 离线
同学们,我寒窗苦读去了 这一个寒假谁见着我发帖,随便扣分。

留下一东西 压缩文件里有一些没发表的东西。


文章

Batch Rename's Bug
http://www.cn-dos.net/forum/viewthread.php?tid=45655

TalkAboutString
http://www.cn-dos.net/forum/viewthread.php?tid=45654

段落重定向方式改进
http://www.cn-dos.net/forum/viewthread.php?tid=45409

2次ping1 不等于 1次ping2
http://www.cn-dos.net/forum/viewthread.php?tid=45410

%var%代替语句执行
http://www.cn-dos.net/forum/viewthread.php?tid=45240

贪吃蛇思路解析 (23楼)
http://www.cn-dos.net/forum/viewthread.php?tid=43369

建立永久的畸形盘符
http://www.cn-dos.net/forum/viewthread.php?tid=41796


数学相关:
不限制位数,10进制内同进制的两个数之间相乘
http://www.cn-dos.net/forum/viewthread.php?tid=46288

批处理算24点
http://www.cn-dos.net/forum/viewthread.php?tid=45488

1-99内整数开根
http://www.cn-dos.net/forum/viewthread.php?tid=43046


应用:

能否更改批处理脚本的进程名称? (已找到解答,在24楼链接。)
http://www.cn-dos.net/forum/viewthread.php?tid=42169

如何用脚本实现待机?打开屏保?
http://www.cn-dos.net/forum/viewthread.php?tid=45522

批处理脚本打包工具
http://www.cn-dos.net/forum/viewthread.php?tid=44620

满1小时就关机
http://www.cn-dos.net/forum/viewthread.php?tid=45242

生成待编写的测试脚本
http://www.cn-dos.net/forum/viewthread.php?tid=45250

举出当前最小和最大的bat文件
http://www.cn-dos.net/forum/viewthread.php?tid=41517

001,002,003式的批量重命名
http://www.cn-dos.net/forum/viewthread.php?tid=41643


娱乐,特效:

数字阵逐点显现,随机
http://www.cn-dos.net/forum/viewthread.php?tid=45878

批处理写大字效果--新年贺卡
http://www.cn-dos.net/forum/viewthread.php?tid=45411

动画特效:画圆、弹球、进度条、起落等
http://www.cn-dos.net/forum/viewthread.php?tid=42124

纯批处理版贪吃蛇
http://www.cn-dos.net/forum/viewthread.php?tid=43369

中间渐渐变大的圆
http://www.cn-dos.net/forum/viewthread.php?tid=44785

空间随机游动粒子+贪吃蛇初版
http://www.cn-dos.net/forum/viewthread.php?tid=43059

【视觉类】前进中的道路+飞机大炮
http://www.cn-dos.net/forum/viewthread.php?tid=41333

【视觉类】从中间逐渐扩大再变小的方形框框+变色
http://www.cn-dos.net/forum/viewthread.php?tid=40711

时钟--斜体+毫秒(更新,减少cpu和闪烁)
http://www.cn-dos.net/forum/viewthread.php?tid=41833

潜水数天,完成了自己满意的数码雨
http://www.cn-dos.net/forum/viewthread.php?tid=42113

【算是月贴】我尽量减少闪烁的批处理大时钟
http://www.cn-dos.net/forum/viewthread.php?tid=41757

一路小跑,第一集,跳!
http://www.cn-dos.net/forum/viewthread.php?tid=41981

做了一个自己满意的滚动字幕
http://www.cn-dos.net/forum/viewthread.php?tid=39780


回帖:

【挑战】用批处理画出正方形和抛物线 14楼 15楼 18楼
http://bbs.bathome.cn/thread-3537-2-1.html

批处理趣味数学之n阶蛇形方阵 28楼
http://www.cn-dos.net/forum/viewthread.php?tid=42472

怎样生成一个纯数字的密码字典 6楼
http://www.cn-dos.net/forum/viewthread.php?tid=33139

排列组合 27楼
http://www.cn-dos.net/forum/viewthread.php?tid=41243


水区:

徒手编数独阵
http://www.cn-dos.net/forum/viewthread.php?tid=45817

以歧视之道还治歧视之身
http://www.cn-dos.net/forum/viewthread.php?tid=45986

523066680语录
http://www.cn-dos.net/forum/viewthread.php?tid=46304

半截故事
http://www.cn-dos.net/forum/viewthread.php?tid=45521

光速矛盾
http://www.cn-dos.net/forum/viewthread.php?tid=44789

1=0.9999999……?
http://www.cn-dos.net/forum/viewthread.php?tid=43058

[ Last edited by 523066680 on 2009-5-1 at 23:05 ]
本帖最近评分记录 (共 3 条) 点击查看详情
评分人分数时间
yishanju +8 2009-01-22 17:45
pusofalse +15 2009-03-07 13:49
LoggerVick +2 2018-03-18 20:06
附件
523066680作品.rar (85.04 KiB, 下载附件所需积分 1 点, 下载次数: 31)
17 发表于 2009-01-22 17:25 ·  中国 广东 广州 电信
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
18年会员
UID 110072
性别 男
状态 离线
18 发表于 2009-01-22 17:45 ·  中国 北京 鹏博士长城宽带
银牌会员
★★★★
[b]看你妹啊[/b]
积分 1,488
发帖 1,357
注册 2006-05-20 12:00
20年会员
UID 55770
状态 离线
我终于忍扣你分冲动
还是加分吧

有问题请发论坛或者自行搜索,再短消息问我的统统是SB
19 发表于 2009-01-22 17:54 ·  中国 北京 鹏博士长城宽带
银牌会员
★★★★
[b]看你妹啊[/b]
积分 1,488
发帖 1,357
注册 2006-05-20 12:00
20年会员
UID 55770
状态 离线
好孩子,有前途的
我看好你,努力吧

有问题请发论坛或者自行搜索,再短消息问我的统统是SB
20 发表于 2009-01-22 18:10 ·  中国 台湾 中华电信(HiNet)数据中心
初级用户
积分 20
发帖 13
注册 2009-01-05 14:58
17年会员
UID 135829
性别 男
状态 离线
10 10 4 4

((10*10)-4)/4
21 发表于 2009-01-23 12:11 ·  中国 广东 广州 电信
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
18年会员
UID 110072
性别 男
状态 离线
22 发表于 2009-01-25 13:54 ·  中国 广东 广州 电信
中级用户
★★
积分 326
发帖 148
注册 2005-12-16 12:30
20年会员
UID 47260
性别 男
状态 离线
要是加上其他运算符,可要累死人了.
23 发表于 2009-01-25 15:52 ·  中国 广东 广州 电信
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
18年会员
UID 110072
性别 男
状态 离线
那我可不干 我还要 happy 牛 year !
24 发表于 2009-01-25 17:23 ·  中国 江苏 苏州 电信
新手上路
积分 1
发帖 1
注册 2009-01-21 23:19
17年会员
UID 137219
性别 男
状态 离线
谢谢学习了
25 发表于 2009-01-25 21:40 ·  中国 江西 九江 电信
新手上路
积分 18
发帖 10
注册 2009-01-23 16:21
17年会员
UID 137319
性别 男
状态 离线
进来膜拜楼主
26 发表于 2009-01-26 00:37 ·  中国 北京 联通
银牌会员
★★★★
[b]看你妹啊[/b]
积分 1,488
发帖 1,357
注册 2006-05-20 12:00
20年会员
UID 55770
状态 离线
Originally posted by 523066680 at 2009-1-25 18:12:
真受不了呢…… 这样的水贴……


所以说呢,哈哈,我扣你分

有问题请发论坛或者自行搜索,再短消息问我的统统是SB
27 发表于 2009-05-27 03:28 ·  中国 广西 北海 电信
新手上路
积分 16
发帖 7
注册 2008-04-29 21:27
18年会员
UID 117317
性别 男
状态 离线
(3+3/7)*7=24
3377
28 发表于 2009-05-27 04:44 ·  中国 河北 唐山 电信
初级用户
★★
积分 85
发帖 52
注册 2009-01-10 18:22
17年会员
UID 136322
性别 男
来自 湘乡
状态 离线
楼主好狂啊!
29 发表于 2009-05-27 11:13 ·  中国 广西 北海 电信
新手上路
积分 16
发帖 7
注册 2008-04-29 21:27
18年会员
UID 117317
性别 男
状态 离线
(4-4/7)*7
本帖最近评分记录 (共 1 条) 点击查看详情
评分人分数时间
523066680 +5 2009-05-27 21:59
30 发表于 2009-05-27 21:41 ·  中国 广东 揭阳 电信
银牌会员
★★★★
SuperCleaner
积分 2,362
发帖 1,133
注册 2008-02-02 21:36
18年会员
UID 110072
性别 男
状态 离线
呜呜…… 就那个式子类型都……
哎,别人那个代码比我的短很多,我也就没改了


回复:【精品】我也来写批处理 ...
@echo off
setlocal enableextensions enabledelayedexpansion
title 作者:liuzhaonan11
echo 批处理算24点&echo.
:loop
set /p "n=输入四个数用空格分开: "
set /a "lzn=0"
for %%i in (!n!) do set /a "lzn+=1"&set /a "lz!lzn!z=%%i,lz!lzn!m=1,lz!lzn!s=%%i"
call:liuzhaonan11 lz
if not errorlevel 1 echo 结果: 没有答案
goto loop
原理说明:使用有理数进行计算,选择算式中最先结合的两数和它们之间的运算,并递归.
:liuzhaonan11
setlocal
set "f1=+"&set "f2=-"&set "f3=*"&set "f4=/"
for /l %%i in (1,1,!%1n!) do for /l %%j in (1,1,!%1n!) do if %%i neq %%j (
for /l %%k in (1,1,4) do (
setlocal
if %%k leq 2 set /a "z=%1%%jz*%1%%im!f%%k!%1%%jm*%1%%iz,m=%1%%jm*%1%%im"
if %%k equ 3 set /a "z=%1%%jz*%1%%iz,m=%1%%jm*%1%%im"
if %%k equ 4 set /a "z=%1%%jz*%1%%im,m=%1%%jm*%1%%iz"
if !%1n! equ 2 (
set /a "t=!z!-24*!m!"
if !t! equ 0 if !m! neq 0 echo 结果: !%1%%js! !f%%k! !%1%%is! = 24&exit /b 1
) else (
set "s=(!%1%%js! !f%%k! !%1%%is!)"&set /a "n=0"
for /l %%l in (1,1,!%1n!) do if %%l neq %%i if %%l neq %%j (
set /a "n+=1"&set "%1!n!z=!%1%%lz!"&set "%1!n!m=!%1%%lm!"&set "%1!n!s=!%1%%ls!"
)
set /a "n+=1"&set "%1!n!z=!z!"&set "%1!n!m=!m!"&set "%1!n!s=!s!"
set "%1n=!n!"&call%0 %1
if errorlevel 1 exit /b 1
)
endlocal
)
)
exit /b 0


作者:liuzhaonan11 2009-1-11 17:17   回复此发言

--------------------------------------------------------------------------------


论坛跳转: