tyc

::题目：有一分数序列：2/1，3/2，5/3，8/5，13/8，21/13...求出这个数列的前20项之和。
@echo off
setlocal enabledelayedexpansion
set /a b=1,a=2
set s=
for /l %%i in (1,1,20) do (
set /a c=b+a
echo !a!/!b!
set /a s=s+!a!/!b!
set /a b=a
set /a a=c
)
echo %s%
pause>nul
复制代码

注：由于限制未能求出小数部分！

tyc

@echo off
setlocal enabledelayedexpansion
::选择排序法
echo 共输入10个数
for /l %%i in (1,1,10) do (
 set /p a_%%i=请输入%%i个数
 set str=!str! !a_%%i!
)
echo %str%
for /l %%i in (1,1,9) do (
 set /a b=%%i+1
 for /l %%j in (!b!,1,10) do (
   if !a_%%i! gtr !a_%%j! (
      set /a t=a_%%i
      set /a a_%%i=a_%%j
      set /a a_%%j=t
    )
)
)
for /l %%i in (1,1,10) do (
 set str1=!str1! !a_%%i!
)
echo %str1%
pause>nul
复制代码

tyc

@echo off
setlocal enabledelayedexpansion
::判断是否为八进制，共几位
:1
set /p bb=请输入八进制整数:
set /a aa=%bb%
set /a n=0
:2
set b=%aa:~,1%
if %b% gtr 8  goto :1 
set /a n=n+1
set aa=!aa:~1!
if "%aa%" neq "" goto :2
::echo %n%
::利用权值，求各位十进制值并累加
:3
set /a n-=1
set /a c=%bb:~0,1%
for /l %%i in (1,1,%n%) do set /a c*=8
set /a t+=%c%
set bb=%bb:~1%
if "%bb%" neq "" goto :3
echo %t%
pause>nul
复制代码

[ 本帖最后由 tyc 于 2009-4-10 10:33 编辑 ]

tyc

@echo off
set /p x=要转换的数:
set /p y=要转换的进制:
call :10 %x% %y%
pause>nul
goto :eof
:10 
set/a t=%1/%2
if %t% gtr 0 call :10 %t% %2
set /a b=%1%%%2
set /p=%b% <nul
复制代码

[ 本帖最后由 tyc 于 2009-4-12 12:17 编辑 ]