youxi01

大多的问题在dos联盟里已经解决了
可以考虑加精
欢迎各位朋友继续"突破"

youxi01

论坛里前几天就出现了相关代码，测试代码：

@echo off &setlocal enabledelayedexpansion
set "str=1 2 3 4 "
for %%a in (%str%) do (
        set var1=!str:%%a =!
        for %%b in (!var1!) do (
                set var2=!var1:%%b =!
                for %%c in (!var2!) do (
                        echo %%a%%b%%c
                )
        )

)

pause>nul
复制代码

youxi01

测试代码：

@echo off &setlocal enabledelayedexpansion
set /p Cdate=请输入日期(如：2008-1-2日或2008/01/02)：
for /f "tokens=1-3 delims=/-, " %%a in ("%Cdate%") do (
set/a yy=%%a,mm=100%%b%%100,dd=100%%c%%100
)
call ate2Day %yy%-1-1 days1
call ate2Day %Cdate% days2
set/a res=days2-days1+1
echo.&echo %yy%年%mm%月%dd%日 是 %yy%年 的第 %res% 天。
pause>nul
goto :eof
::注意：以下"函数"由willsort完成(略有改动)；
ate2Day 日期 传回(数值)结果
setlocal ENABLEEXTENSIONS 
for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do ( 
  set yy=%%a & set mm=%%b & set dd=%%c 
)
set /a dd=100%dd%%%100,mm=100%mm%%%100 
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2 
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
endlocal&set %2=%j%&goto :EOF 
ay2Date 数值 传回(日期)结果
setlocal ENABLEEXTENSIONS 
set /a i=%1,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a 
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5 
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10 
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%) 
endlocal&set %2=%yy%-%mm%-%dd%&goto :EOF 
复制代码

youxi01

此题namejm已经做了，测试代码：

@echo off &setlocal enabledelayedexpansion
for /l %%a in (1 1 9) do (
        for /l %%b in (1 1 %%a) do (
                set/a res=%%a*%%b
                set "res=!res!  " %======此处用来对齐=========%
                set/p=%%ax%%b=!res:~0,2!  <nul
        )
        echo.
) 
pause>nul
复制代码

youxi01

意思不明：“控制输出黑方格，还是白方格。”
是这样吗：□和■

youxi01

代码稍做修改，效率稍有提高：

 
@echo off&setlocal EnableDelayedExpansion
for /l %%a in (101 2 200) do (
  set "flag="
  for /l %%b in (3 2 15) do (
    set /a m=%%a %% %%b
     if !m! equ 0 set flag=A
  )
  if not defined flag echo 素数 %%a
)
echo\&pause

 
复制代码

继续修正1，运行所用时间仅为原来的1/4
继续修正2，运行速率提高为原来的20倍

youxi01

以上计算方法个人认为适合 求算 10000 以内的素数，对于超大数字，应使用其它计算方法

youxi01

呵呵，换做400时，将第二个for循环中的 15 改成 20 即可！！

youxi01

测试代码：

@echo off&setlocal enabledelayedexpansion
echo 水仙花数有：&echo.
for /l %%i in (100 1 999) do (
        set var=%%i
        set/a num1=!var:~0,1!,num2=!var:~1,1!,num3=!var:~2,1!
        set/a var=!num1!*!num1!*!num1!+!num2!*!num2!*!num2!+!num3!*!num3!*!num3!
        if !var! EQU %%i echo %%i
        )

pause>nul
复制代码

youxi01

呵呵，这句非常不错，避免了重复计算。

for /l %%i in (0 1 9) do set /a t%%i=%%i*%%i*%%i

youxi01

测试代码（里有一bug，不知各位是否测试的出来，目前并不明白bug产生原因）

@echo off&setlocal enabledelayedexpansion
:start
cls
set "str=1"
set /p EN=请输入一个数字：
call :CheckPrime %EN% Prime Remainder
set str=%str% x !OBJ! 

if "!str:~-2,1!"=="1" set str=!str:~0,-4!
if not "!str:~-6,1!"=="1" set str=!str:~4!

echo.&echo %EN% = !str!
pause>nul
goto :start

:CheckPrime OBJ Prime Remainder
set /a OBJ=%~1,Remainder=0
set /a var=!OBJ!/2+1,var_=!OBJ! %% 2
if !var_! EQU 0 (
	set str=!str! x 2
	set/a Prime=2,Remainder=!OBJ!/2
	call :CheckPrime !Remainder! Prime Remainder
	)
for /l %%i in (3 2 !var!) do (
	set /a var_=!OBJ! %% %%i
	if !var_! EQU 0 (
		set str=!str! x %%i
		set/a Prime=%%i,Remainder=!OBJ!/%%i
		call :CheckPrime !Remainder! Prime Remainder
		)
	)
复制代码

youxi01

代码够简洁，不错。
但是碰到大指数肯定会遭遇效率问题，举例：3659

youxi01

转一个自己较早前写的代码了：

@echo off
echo.
echo          求两数的最大公约数、最小公倍数
echo ========================================
title 求两数的最大公约数
setlocal enabledelayedexpansion
set /p num1=请输入第一个数字：
set /p num2=请输入第二个数字：
set/a res=%num1%*%num2%
echo ----------------------------------------
echo %num1%和%num2%：&echo.
:test
     set /a temp=%num1% %% %num2%
     if %temp% NEQ 0 (
         set /a num1=!num2!
         set /a num2=!temp!
         goto :test)

set /a res=%res%/%num2%
echo 最小公倍数为：%res% 最大公约数为：%num2%
pause>nul
复制代码

youxi01

建议将程序问题 和 解决方案按照如下格式罗列：
问题：***

解决方案：***F(***楼）
以便于查阅