p05401144

6楼的程序视乎有错误，运行结果是：
‘ate2Day’不是内部或外部命令，是不可运行的程序或批处理文件

taojunyi

::有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？
@echo off
setlocal enabledelayedexpansion
set "str=1 2 3 4"
for %%i in (!str!) do (
   set "var1=!str:%%i=!"
   for %%j in (!var1!) do (
     set "var2=!var1:%%j=!"
     for %%k in (!var2!) do (
         set /a b=!b!+1
        set /p =%%i%%j%%k  <nul  
)   
)
)
echo  总共有!b!种无重复数字的三位数
pause>nul

taojunyi

::有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？
@echo off
setlocal enabledelayedexpansion
for /l %%i in (1 1 4) do (
   for /l %%j in (1 1 4)  do (
     if  %%i neq %%j (
       for /l %%k in (1 1 4) do (
         if  %%k neq %%i (
           if %%k neq %%j (
            echo %%i%%j%%k
            set /a b=!b!+1
           )
         )  
       )
     )
   )
)
echo 总数为!b!个
pause

taojunyi

::有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？
:echo off
setlocal enabledelayedexpansion
for /l %%i in (1 1 4) do (
   for /l %%j in (1 1 4)  do (
      for /l %%k in (1 1 4) do (
         if %%i neq %%j (
           if %%k neq %%i (
             if %%k neq %%j (
               echo %%i%%j%%k
               set /a b=!b!+1
             )
           )  
         )
      )
   )
)
echo 总数为!b!个
pause

irresolute

晚上我也做做

taojunyi

@echo off
setlocal enabledelayedexpansion
for /l %%i in (1,1,4) do (
 for /l %%j in (1,1,4) do (
   for /l %%k in (1,1,4) do (
   set dd=%%i%%j%%k 
   if %%i neq %%j if %%j neq %%k if %%i neq %%k set /a n+=1 &echo !dd!
)))
echo 总共!n!个
pause>nul
复制代码

taojunyi

@echo off
setlocal enabledelayedexpansion
for /l %%i in (1,1,4) do (
 for /l %%j in (1,1,4) do (
   for /l %%k in (1,1,4) do (
   set /a dd=%%i%%j%%k 
   if "!dd:~0,1!" neq "!dd:~1,1!" if "!dd:~0,1!" neq "!dd:~2,1!" if "!

dd:~2,1!" neq "!dd:~1,1!" set /a n+=1 &echo !dd!
)))
echo 总共!n!个
pause>nul
复制代码

irresolute

【程序1】
题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？
1.程序分析：可填在百位、十位、个位的数字都是1、2、3、4。组成所有的排列后再去
　　　　　　掉不满足条件的排列。

@echo off
setlocal enabledelayedexpansion
for /l %%i in (1,1,4) do (
　for /l %%j in (1,1,4) do (
  　 for /l %%k in (1,1,4) do (
  　　 set /a dd=%%i%%j%%k 
  　　 if %%i neq %%j (
   　　   if %%i neq %%k (
      　　   if %%j neq %%k set /a n+=1 &echo !dd!))
)))
echo 总共!n!个
pause>nul
复制代码

[ 本帖最后由 irresolute 于 2009-2-22 22:46 编辑 ]

irresolute

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

@echo off
setlocal enabledelayedexpansion
for /l %%i in (101,2 200) do (
  set tag=
  set /a c=%%i/2
  for /l %%j in (2,1,!c!) do (
    set /a b=%%i %% %%j
    if !b!==0 set tag=1)
  if not defined tag echo %%i &set /a n+=1
)
echo 共!n!个素数
pause>nul
复制代码

[ 本帖最后由 irresolute 于 2009-2-22 22:37 编辑 ]

irresolute

【程序11】
题目：古典问题：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月
　　　后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？
1.程序分析：　兔子的规律为数列1,1,2,3,5,8,13,21....

:main
@echo off
setlocal enabledelayedexpansion
set /a a=1
set /a b=1
set /p n=请输入月份
if "!n!" gtr "2" (
for /l %%i in (3,1,!n!) do (
set /a c=!a!+!b!
set /a b=!a!
set /a a=!c!)) else ( set /a c=1)
echo !c!
goto :main
pause>nul
复制代码

[ 本帖最后由 irresolute 于 2009-2-22 22:37 编辑 ]

irresolute

@echo off
setlocal enabledelayedexpansion
set /p n=请输入一个整数
set /a k=2
for /l %%i in (2,1,%n%) do (
   set /a d=!n!%%!k!
   if !d!==0 (
    echo !k!
    set /a n=!n!/!k!
   ) else (
    set /a k=!k!+1 
    if !n!==!k! echo !k! & call :ex   
 )
)
goto :eof
:ex
pause>nul
复制代码

irresolute

【程序16】
题目：输入两个正整数m和n，求其最大公约数和最小公倍数。
1.程序分析：利用辗除法。
：：作者提示：资料中未说明何为辗除法。根据C源码可知，辗除法（若a>b，让数a对数b求模得到c，再让数b对数c求模，得到d，再让c对d求模，一直循环直到最后的求模余数n=0）

@echo off
setlocal enabledelayedexpansion
set /p p1=请输入整数
set /p p2=请输入另一个整数
set /a a=p1
set /a b=p2
:be
set /a c=!a! %% !b!
set /a a=!b!
set /a b=!c!
if !c! neq 0 (goto :be) else echo !a!是最大公约数
pause>nul
echo 求最大公倍数
set /a max=%p1%*%p2%/!a!
echo %max%是最大公倍数
pause>nul
复制代码

irresolute

【程序16】
题目：输入两个正整数m和n，求其最大公约数和最小公倍数。
1.程序分析：利用辗除法。
：：作者提示：资料中未说明何为辗除法。根据C源码可知，辗除法（若a>b，让数a对数b求模得到c，再让数b对数c求模，得到d，再让c对d求模，一直循环直到最后的求模余数n=0）

@echo off
setlocal enabledelayedexpansion
set /p a=请输入一个整数
set /p b=请输入另一个整数
for /l %%i in (%a%,-1,1) do (
set /a a1=!a!%%%%i
set /a a2=!b!%%%%i
if !a1!==0 if !a2!==0 set c=%%i&echo %%i& goto :t1
)
:t1
pause>nul

set /a cc=!a!*!b!/!c!
echo !cc!
pause>nul
复制代码

irresolute

【程序14】
题目：将一个正整数分解质因数。例如：输入90,打印出90=2*3*3*5。
程序分析：对n进行分解质因数，应先找到一个最小的质数k，然后按下述步骤完成：

@echo off
setlocal enabledelayedexpansion
set /p n=请输入整数
set /p=%n%=<nul
set /a k=2
:main
if !k!==%n% set /p=!k!<nul & goto :ex
set /a c=!n! %% !k!
if !c!==0 (
 set /p=!k!*<nul
 set /a n=!n!/!k!
 ) else (
 set /a k+=1
)
goto :main
:ex
pause>nul
复制代码

irresolute

【程序19】
题目：一个数如果恰好等于它的因子之和，这个数就称为“完数”。例如6=1＋2＋3.编程找出1000以内的所有完数

@echo off
setlocal enabledelayedexpansion
for /l %%i in (1,1,1000) do (
 set /a k=%%i
 set /a n=!k!/2
 set /a s=0
 for /l %%j in (1,1,!n!) do (
   set /a kk=!k! %% %%j
   if !kk!==0  set /a s+=%%j
 )
 if !s!==!k! echo !k!
)
pause>nul
复制代码