youxi01

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

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倍

随风

【程序12】
题目：判断101-200之间有多少个素数，并输出所有素数。
1.程序分析：判断素数的方法：用一个数分别去除2到sqrt(这个数)，如果能被整除，
　　　　　　则表明此数不是素数，反之是素数。

:

@echo off&setlocal EnableDelayedExpansion
for /l %%a in (101 1 200) do (
  set /a n=%%a-1&set "flag="
  for /l %%b in (2 1 !n!) do (
    set /a m=%%a%%%%b
     if !m! equ 0 set flag=a
  )
  if not defined flag echo 素数 %%a
)
echo\&pause
复制代码

huajinghua

素数问题：提示
另一方面，除去1以外，有的数除了1和它本身以外，不能再被别的整数整除，如
　　2、3、5、7、11、13、17、...
等，这种数称作素数(也称质数)。有的数除了1和它本身以外，还能被别的整数整除，这种数就叫合数，如
　　4、6、8、9、10、12、14、...
等，就是合数。
大家做啊

huajinghua

继续兔子问题哈。不能一直管理员做题，我也做，这是我写的，测试没有错。
@echo off&setlocal enabledelayedexpansion
:a
set/p n=请输入月份
set a1=1
set a2=0
for /l %%i in (1,1,%n%) do (
set /a a3=!a1!+!a2!
set a1=!a2!
set a2=!a3!
echo !a3!)
pause
cls&goto a

huajinghua

不错不错，高手不愧是高手

youxi01

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

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

测试代码：

@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

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

@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

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

huajinghua

如果谁能全部用批处理做出来，那绝对可以成为高手。哈哈

fml520

哈哈  沙发。对 来说太难了