[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
增加了一个判断 提高效率
  1. @echo off
  2. setlocal enableDelayedExpansion
  3. set/p x=请输入需求 多大数字内的质数
  4. set str=2&set/a num=1
  5. echo 2
  6. for /l %%i in (3 2 !x!) do (
  7.         for %%j in (!str!) do (
  8.             set/a mod=%%i%%%%j
  9.           if !mod! equ 0 set flag=1
  10.         )
  11.        if defined flag (set flag=) else (
  12.                                     echo %%i
  13.                                     set/a n=%%i*%%i
  14.                                     set/a num+=1
  15.                                     if !n! lss !x! set str=!str! %%i
  16.                                     )
  17. )
  18. echo !x!以内的素数共有 %num% 个。
  19. pause
复制代码

[ 本帖最后由 skuny 于 2011-1-13 19:31 编辑 ]

TOP

返回列表