中国DOS联盟

五个0-9的数字,可能出现任意相同数字,分别放入A,B,C,D,E变量中

每次最少选取三个变量将变量中的数字+1

目标是让五个变量中的数字全部不相同

给点思路也可以,vbs/bat不限

谢谢各位

你的目的是让5个数不同。你生成的时候就和前面去比较有没有，没有就保存……


你那种取3加1什么的根本不能保证得到你要的结果。

在批处理版块讨论这种纯算法的问题是不是有点...

这个能显示五个不同的数字
@echo off setlocal enabledelayedexpansion :begin set ac=0 :again type nul>"%temp%\temp1.txt" type nul>"%temp%\temp2.txt" set aa=0 set/a ac+=1 :aaa set/a ab=%random%%%10 for %%a in (!ab!) do ( set/a aa+=1 >>"%temp%\temp1.txt" echo %%a if !aa!==5 goto aab goto aaa ) :aab for /f "delims=" %%i in ('type "%temp%\temp1.txt"') do ( if not !%%i!==!ac! ( >>"%temp%\temp2.txt" echo %%i set %%i=!ac! ) ) for /f "delims=:" %%b in ('type "%temp%\temp2.txt"^|findstr /n .*') do set ad=%%b if not !ad!==5 goto again for /f "delims=" %%d in ('type "%temp%\temp2.txt"') do ( echo %%d ) pause&cls goto begin

我很菜，只提供思路，按这个思路应该也可以搞定
@echo off :begin cls ::生成五个不同随机数 set/a n1=%random%%%10 :nn2 set/a n2=%random%%%10 if %n2%==%n1% goto :nn2 :nn3 set/a n3=%random%%%10 if %n3%==%n2% goto :nn3 if %n3%==%n1% goto :nn3 :nn4 set/a n4=%random%%%10 if %n4%==%n3% goto :nn4 if %n4%==%n2% goto :nn4 if %n4%==%n1% goto :nn4 :nn5 set/a n5=%random%%%10 if %n5%==%n4% goto :nn5 if %n5%==%n3% goto :nn5 if %n5%==%n2% goto :nn5 if %n5%==%n1% goto :nn5 set nn=%n1%%n2%%n3%%n4%%n5% echo %nn% pause goto begin

@echo off
set str=0123456789
for %%i in (A B C D E) do call :loop %%i
echo 取得的结果是%a% %b% %c% %d% %e%
pause
:loop
set/a s=%random%%%9
if defined %s% goto loop
call set %1=%%str:~%s%,1%%&set %s%=A

在这了讨论纯算法有什么问题吗？
难道4楼的兄弟认为批处理就没有算法的应用吗？

只是以前已经讨论过的问题又开始讨论
而且又回到了初始讨论的阶段
似乎很多人都不喜欢搜索和拿来


获取互不相同的随机数
通常有两类算法

一类是循环探测算法
就像6楼和7楼提到的
随机取一个数
检查以前是否取过
是则再次随机取
否则赋给变量
这类算法最大的弊病在于
如果取值个数接近取值范围
则命中率将明显降低
比如在0~100中取100个互不相同的数
此类算法的效率将相当低

现在比较成熟且高效的算法应该是随机交换算法
也就是先生成一个顺序数列
然后依次对数列中的数进行随机交换
用多少个数就交换多少次
交换完成后
直接依次取数列前端的数即可

5楼的代码
可能是不熟悉批处理中的数列操作
而选用了echo+findstr的方式处理数列
看上去不太舒服
所以没有细究其中的算法

6楼的代码重复性较大
应该是对批处理中的循环应用还不是熟练

7楼的代码
set/a s=%random%%%9
似乎应该是
set/a s=%random%%%10

[ Last edited by qzwqzw on 2008-3-18 at 02:17 PM ]

显示5个不重复的随机数，确实是讨论过的。关键是要避开重复。

方法一、
: @echo off set var=0 1 2 3 4 5 6 7 8 9 if "%~1"=="" ( for /f "tokens=1,2 delims= " %%i in ('"%~0" n^|sort') do call set w=%%w%% %%j ) else ( for %%a in (%var%) do call echo %%random%% %%a goto :eof ) for /f "tokens=1-5" %%a in ("%w%") do echo %%a %%b %%c %%d %%e pause

方法二、
: @echo off set var=0 1 2 3 4 5 6 7 8 9 for /l %%a in (10 -1 6) do call :lis %%a echo %str% pause&exit :lis set /a w=%random%%%%~1+1 for /f "tokens=%w%" %%i in ("%var%") do ( call set var=%%var:%%i=%% call set str=%%str%% %%i ) goto :eof

问题是非自已生成随机数,是从外部获取的

获取五个数字后再最少选三+1进行错开

现在的题目就比较有意思了

11楼的代码仍然不合题意

初步编写了一段代码
根据代码的执行结果
证明限定每个数只加一次1
则必然有些组合无法完成差异化
比如 1 1 2 2 3

:: 将获取的5个数选择其中的一些（至少选取3个，至多选取4个）加1，使他们互不相等 :: qzwqzw@cn-dos.net : 2008-03-19 @echo off & setlocal EnableDelayedExpansion for /l %%i in (1 1 5) do ( set /a n=!random! %% 10 set =!n! ) set /p=生成随机数列：<nul for /l %%i in (1 1 5) do set/p= !!<nul echo. echo. pause>nul for /l %%i in (1 1 5) do ( for /l %%j in (%%i 1 5) do ( if not %%i==%%j ( set /a a=, b= if !a! gtr !b! ( set =!b! set =!a! ) ) ) ) set /p=数列排序后为：<nul for /l %%i in (1 1 5) do set/p= !!<nul echo. echo. pause>nul for /l %%i in (1 1 5) do ( if defined prev ( set /a a= set /a b= if !a! geq !b! ( set /a =a+1 set /a iAdd=a+1-b set /a nAdd+=1 echo 第!nAdd!次:!b!+!iAdd! ) ) set prev=%%i ) set /p=数列差异化后：<nul for /l %%i in (1 1 5) do set/p= !!<nul echo. echo. pause>nul