Silversky

【程序82】
题目：八进制转换为十进制
方法一

@echo off
:begin
set /p input=请输入一个八进制数:
set num=0
set count=1
:start
set /a Remainder=%input%%%10
if %Remainder% gtr 7 goto error
set /a num+=%Remainder%*count
set /a count*=8
set /a bug=%input%
set /a input/=10
if %bug% gtr 0 goto start
echo 转换后的十进制数为:%num%
pause>nul & exit
:error
echo 该数不是八进制数,请重新输入!
pause>nul & cls
goto begin
复制代码

方法二

@echo off
set /p input=请输入一个八进制数:
set /a output=0%input%
echo 转换后的十进制数为:%output%
pause>nul
复制代码

[ 本帖最后由 Silversky 于 2010-7-27 13:17 编辑 ]

Silversky

【程序30】
题目：一个5位数，判断它是不是回文数。即12321是回文数，个位与万位相同，十位与千位相同。

@echo off
set /p input=请输入一个数:
set put=1%input%1
:loop
set put=%put:~1,-1%
if "%input%"=="" goto no
if "%put%"==""  goto yes
if "%put:~0,1%"=="%put:~-1%" goto loop
:no
echo %input%不是回文数
pause>nul & exit
:yes
echo %input%是回文数
pause>nul
复制代码

[ 本帖最后由 Silversky 于 2010-7-26 20:01 编辑 ]

Silversky

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

@echo off
set a=1
echo 倒数第1天时有%a%个桃子
for /l %%i in (2,1,10) do (
set /a a=a*2+2
call echo 倒数第%%i天时有%%a%%个桃子
)
pause>nul
复制代码

[ 本帖最后由 Silversky 于 2010-7-27 12:00 编辑 ]

Silversky

【程序11】
题目：古典问题：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？

@echo off & setlocal enabledelayedexpansion
set/p n=请输入月份:
set a1=1
set a3=0
for /l %%i in (1,1,%n%) do (
set a2=!a3!
set /a a3+=a1
set a1=!a2!
echo !a3!
)
pause>nul
复制代码

[ 本帖最后由 Silversky 于 2010-7-27 13:13 编辑 ]

Silversky

【程序13】
题目：打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数本身。例如：153是一个“水仙花数”，因为153=1的三次方＋5的三次方＋3的三次方。

@echo off & setlocal enabledelayedexpansion
for /l %%i in (100 1 999) do (
set x=%%i && set /a a=b=c=1
for /l %%z in (1,1,3) do set /a a*=!x:~0,1! & set /a b*=!x:~1,1! & set /a c*=!x:~2,1!
set /a n=a+b+c
if "!n!" == "%%i" echo %%i
)
pause>nul
复制代码

Silversky

【程序14】
题目：将一个正整数分解质因数。例如：输入90,打印出90=2*3*3*5。

@echo off
set /p n=请输入要分解的数:
set/p=%n%分解为1<nul
set count=1
:s
set /a count+=1
:s1
set /a remainder=%n%%%%count%
if not %remainder% equ 0 goto s
set /a divisor=%n%/%count%
set/p=*%count%<nul
set n=%divisor%
if "%n%"=="1" (pause>nul & exit)
goto s1
复制代码

Silversky

【程序16】
题目：输入两个正整数m和n，求其最大公约数和最小公倍数。

@echo off
set /p n1=请输入第一个数:&& set /p n2=请输入第二个数:
set/a result=%n1%*%n2%
:ss
set /a temp=%n1%%%%n2%
if %temp% neq 0 (set /a n1=%n2% & set /a n2=%temp% & goto :ss)
set /a result=%result%/%n2%
echo 最大公约数为:%n2%
echo 最小公倍数为:%result%
pause>nul
复制代码

Silversky

【程序25】
题目：求1+2!+3!+...+20!的和

@echo off
set a=1
set b=0
for /l %%i in (1,1,20) do (set /a a*=%%i && set /a b+=a)
echo 1+2!+3!...+20!=%b%
pause>nul
复制代码

Silversky

【程序80】
题目：海滩上有一堆桃子，五只猴子来分。第一只猴子把这堆桃子凭据分为五份，多了一个，这只猴子把多的一个扔入海中，拿走了一份。第二只猴子把剩下的桃子又平均分成五份，又多了一个，它同样把多的一个扔入海中，拿走了一份，第三、第四、第五只猴子都是这样做的，问海滩上原来最少有多少个桃子？

@echo off & setlocal EnableDelayedExpansion
set count=0
set bad=0
for /l %%i in (4,4,2000) do (
if !count! equ 4 (if !bad! equ 0 (echo 原来最少有!j!个桃子 & pause>nul & exit))
set bad=0
set count=0
set l=%%i
for /l %%z in (0,1,4) do (
set /a j=!l!/4*5+1
set l=!j!
set /a k=!j!%%4
if !k! equ 0 (set /a count+=1) else (if !count! lss 4 (set bad=1))
)
)
复制代码

Silversky

【程序69】
题目：有n个人围成一圈，顺序排号。从第一个人开始报数（从1到3报数），凡报到3的人退出圈子，问最后留下的是原来第几号的那位。
方法一

@echo off & setlocal enabledelayedexpansion
set /p n=请输入一个数:
for /l %%i in (%n% -1 1) do set total= %%i !total!
set count=%n%
:loop
if !count! neq 1 (
  for %%i in (%total%) do (
    set /a num+=1
    if !num! equ 3 (
      set num=0
      set total=!total: %%i =!
      set /a count-=1
    )
  )
goto loop
)
echo 最后留下的序号为:%total%
pause>nul
复制代码

方法二

@echo off
set /p n=请输入一个数:
set r=0
for /l %%i in (2,1,%n%) do (set /a a=r+3 && set /a r=a%%%%i)
set /a r+=1
echo %r%
pause>nul
复制代码

Silversky

【程序20】

题目：一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在第10次落地时，共经过多少米？第10次反弹多高？

@echo off & setlocal enabledelayedexpansion
set n=100000000
set /a m=n/2
for /l %%i in (2,1,10) do (set /a n=n+2*m && set /a m/=2)
echo 共经过!n:~0,3!.!n:~-6!米
echo 第10次反弹0.0!m:~-6!米
pause>nul
复制代码

Silversky

【程序9】
题目：要求输出国际象棋棋盘。

@echo off & setlocal enabledelayedexpansion
for /l %%i in (8,-1,1) do (
  for /l %%j in (8,-1,1) do (
  set /a n=%%i%%2+%%j%%2
  if !n! == 1 (set/p=■<nul) else (set/p=  <nul)
  )
  echo/
)
pause>nul
复制代码