irresolute

晚上我也做做

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
复制代码

irresolute

【程序21】
题目：猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了一半，还不瘾，又多吃了一个。第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下的一半零一个。到第10天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少。

@echo off
setlocal enabledelayedexpansion
set /a a=1
for /l %%i in (1,1,9) do (
set /a b=2*!a!+2
set /a a=!b!
)
echo 第一天摘的桃子数是 !a!
pause>nul
复制代码

irresolute

【程序23】
题目：打印出如下图案（菱形）
*
***
******
********
******
***
*

@echo off
setlocal enabledelayedexpansion
for /l %%i in (1,2,7) do (
 set /a n=%%i
 for /l %%j in (1,1,!n!) do (
   set /p=*<nul
  )
 echo.
) 
for /l %%i in (5,-2,1) do (
 set /a n=%%i
 for /l %%j in (1,1,!n!) do (
   set /p=*<nul
  )
 echo.
) 
pause>nul
复制代码

irresolute

【程序25】
题目：求1+2!+3!+...+20!的和
1.程序分析：此程序只是把累加变成了累乘。

@echo off
setlocal enabledelayedexpansion
set /a s=0
for /l %%i in (1,1,20) do (
 set /a k=%%i
 set /a s1=1
 for /l %%j in (1,1,!k!) do (
   set /a s1*=%%j
 )
 set /a s+=!s1!
)
echo !s!&pause>nul
复制代码

irresolute

@echo off
setlocal enabledelayedexpansion
:main
set a=
set /p a=请输入一个五位数
if "!a:~0,1!"=="!a:~4,1!" (
if "!a:~1,1!"=="!a:~3,1!"  (echo !a!是回文) else echo !a!不是回文
) else (
echo !a!不是回文
)
pause>nul 
goto :main
复制代码

[ 本帖最后由 irresolute 于 2009-2-25 13:40 编辑 ]

irresolute

题目：有5个人坐在一起，问第五个人多少岁？他说比第4个人大2岁。问第4个人岁数，他说比第
　　　3个人大2岁。问第三个人，又说比第2人大两岁。问第2个人，说比第一个人大两岁。最后
　　　问第一个人，他说是10岁。请问第五个人多大？
1.程序分析：利用递归的方法，递归分为回推和递推两个阶段。要想知道第五个人岁数，需知道
　　　　　　第四人的岁数，依次类推，推到第一人（10岁），再往回推。

 
@echo off
setlocal enabledelayedexpansion
set /a n=5
set  b=
call :loop 5
echo 第五个人!b!岁
pause>nul
goto :eof
:loop
set /a n=%1
set /a n-=1
if !n!==0 (set /a b=10 & goto :eof) else (
call :loop !n!
set /a b+=2
)
复制代码

[ 本帖最后由 irresolute 于 2009-2-25 16:34 编辑 ]