中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum
游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟
中国DOS联盟论坛
现在时间是 2026-08-08 15:26
47,811 主题排行 / 349,895 发帖 / 今日 0 篇 / 48,253 会员排行
DOS批处理 & 脚本技术(批处理室) » 输出数列
可打印版本  903 / 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:
1994=1*9*9*4=324=3*2*4=24=2*4=8

不愧是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:
&&我来罗索几句:用批处理算出数列是没问题的,但只列出1994 324 24三个数字让批处理来分析出其中的算法规律怕是太难了,这恐怕要用穷举计算法吧。

不是先知道公式才~~才有算法的吗?
[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023