![]() |
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-08 18:03 |
共 47,811 主题排行 / 349,895 发帖 / 今日 0 篇 / 48,253 会员排行 |
| DOS批处理 & 脚本技术(批处理室) » 输出数列 |
| 可打印版本 906 / 8 |
| 第1楼 pusofalse | 发表于 2008-05-20 23:55 |
| 银牌会员 发帖 646 积分 1,604 | |
|
输出数列 输出1994 324 24 ?
最后一个应该是什么~? 找到规律就简单了~ [ Last edited by pusofalse on 2008-5-21 at 12:31 AM ] |
|
| 第2楼 terse | 发表于 2008-05-21 00:13 |
| 银牌会员 发帖 946 积分 2,404 | |
|
1994=1*9*9*4=324=3*2*4=24=2*4=8
|
|
| 第3楼 pusofalse | 发表于 2008-05-21 00:16 |
| 银牌会员 发帖 646 积分 1,604 | |
Originally posted by terse at 2008-5-21 12:13 AM: 不愧是terse! 那这题就给新手做练习只用了~ 高手们无视吧! |
|
| 第4楼 HAT | 发表于 2008-05-21 00:16 |
| 版主 发帖 5,017 积分 9,023 | |
|
楼主是想让大家用批处理找出规律吗?
|
|
| 第5楼 pusofalse | 发表于 2008-05-21 00:18 |
| 银牌会员 发帖 646 积分 1,604 | |
Originally posted by HAT at 2008-5-21 12:16 AM: 只是输出这组数列。。。 不过听你这样说,反倒觉得有意思了,如果可以的话。。。 |
|
| 第6楼 joyn | 发表于 2008-05-21 02:17 |
| 中级用户 发帖 105 积分 280 来自 广西 | |
|
算法可以是这样>>>请简化>>>
@echo off &setlocal ENABLEDELAYEDEXPANSION color 3f set number=1994 rem set /p number=输入一个不带0的自然数...^>^> echo/ set /p =%number% <nul set nu=0 :loop if "!number:~%nu%,1!"=="" goto prin set /a nu+=1 goto :loop :prin set /a nu-=1 set num=!number:~0,1! for /l %%i in (1 1 !nu!) do ( set /a num=!number:~%%i,1!*!num!) set /p=!num! <nul if "!num:~1,1!"=="" ( echo/&echo.任意健退出^>^> pause>nul&exit) else ( set nu=0 set number=!num! goto loop) |
|
| 第7楼 terse | 发表于 2008-05-21 03:46 |
| 银牌会员 发帖 946 积分 2,404 | |
|
明天来看能简化否
@echo off set n=1994 set/p =%n% <nul set n2=1 :lp if "%n%"=="" goto ok set n1=%n:~,1% set/a n2*=%n1% set n=%n:~1%&goto lp :ok set n=%n2%&set/p=%n2% <nul set n2=1 if not "%n:~1,1%"=="" goto lp pause |
|
| 第8楼 bat-zw | 发表于 2008-05-21 08:00 |
| 金牌会员 发帖 1,276 积分 3,105 | |
|
pusofalse的贴子我总要踩一脚: &&我来罗索几句:用批处理算出数列是没问题的,但只列出1994 324 24三个数字让批处理来分析出其中的算法规律怕是太难了,这恐怕要用穷举计算法吧。
|
|
| 第9楼 joyn | 发表于 2008-05-21 20:50 |
| 中级用户 发帖 105 积分 280 来自 广西 | |
Originally posted by zw19750516 at 2008-5-21 08:00 AM: 不是先知道公式才~~才有算法的吗? |
|
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |