从C语言的题目中挑出来的题目给批处理新手做

huajinghua

所发代码若不止一行，请用code标签把代码部分括起来。

Q: 如何用code把代码扩起来？
A: http://bbs.bathome.net/thread-404-1-1.html

参考：批处理之家论坛使用常见问题FAQ
http://bbs.bathome.net/thread-3473-1-1.html

申请加精！
本人从《C语言资料大全》中搜的题目，给新手学习，给高手练习。呵呵。本人也没时间做，留给大家做咯。
=================================================================
                                                                                                                     ----------QQ：327828994

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


答案：见5楼
**********************************************************************************

【程序4】
题目：输入某年某月某日，判断这一天是这一年的第几天？
1.程序分析：以3月5日为例，应该先把前两个月的加起来，然后再加上5天即本年的第几天，特殊
　　　　　　情况，闰年且输入月份大于3时需考虑多加一天。

答案：见6楼
**********************************************************************************

【程序8】
题目：输出9*9口诀。
1.程序分析：分行与列考虑，共9行9列，i控制行，j控制列。

答案：见7楼
**********************************************************************************


【程序9】
题目：要求输出国际象棋棋盘。
1.程序分析：用i控制行，j来控制列，根据i+j的和的变化来控制输出黑方格，还是白方格。


答案：见36楼
**********************************************************************************

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

答案：见10楼
**********************************************************************************

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

答案：请参考13，15楼
**********************************************************************************


【程序13】
题目：打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数
　　　本身。例如：153是一个“水仙花数”，因为153=1的三次方＋5的三次方＋3的三次方。
1.程序分析：利用for循环控制100-999个数，每个数分解出个位，十位，百位。

答案：见18，19楼
**********************************************************************************



【程序14】
题目：将一个正整数分解质因数。例如：输入90,打印出90=2*3*3*5。
程序分析：对n进行分解质因数，应先找到一个最小的质数k，然后按下述步骤完成：
(1)如果这个质数恰等于n，则说明分解质因数的过程已经结束，打印出即可。
(2)如果n<>k，但n能被k整除，则应打印出k的值，并用n除以k的商,作为新的正整数你n,
　重复执行第一步。
(3)如果n不能被k整除，则用k+1作为k的值,重复执行第一步。

答案：见23，24楼
**********************************************************************************


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

答案：见27楼
**********************************************************************************

【程序19】
题目：一个数如果恰好等于它的因子之和，这个数就称为“完数”。例如6=1＋2＋3.编程
　　　找出1000以内的所有完数。
【程序20】
题目：一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在
　　　第10次落地时，共经过多少米？第10次反弹多高？


答案：见37，38楼
**********************************************************************************

【程序21】
题目：猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了一半，还不瘾，又多吃了一个
　　　第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下
　　　的一半零一个。到第10天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少。
1.程序分析：采取逆向思维的方法，从后往前推断。

答案：见32楼
**********************************************************************************




【程序23】
题目：打印出如下图案（菱形）
*
***
******
********
******
***
*
1.程序分析：先把图形分成两部分来看待，前四行一个规律，后三行一个规律，利用双重
　　　　　　for循环，第一层控制行，第二层控制列。


答案：见21楼

**********************************************************************************




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

答案：见33楼
**********************************************************************************

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

**********************************************************************************

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


答案：见34楼

**********************************************************************************

【程序37】
题目：对10个数进行排序
1.程序分析：可以利用选择法，即从后9个比较过程中，选择一个最小的与第一个元素交换，
　　　　　　下次类推，即用第二个元素与后8个进行比较，并进行交换。

**********************************************************************************

【程序61】
题目：打印出杨辉三角形（要求打印出10行如下图）　　　
1.程序分析：
　　　 　　 1
　　　　　　1 　1
　　　　　　1 　2 　1
　　　　　　1　 3 　3　 1
　　　　　　1　 4　 6 　4 　1
　　　　　　1　 5　 10　10　5 　1　

答案：见22楼

**********************************************************************************



【程序69】
题目：有n个人围成一圈，顺序排号。从第一个人开始报数（从1到3报数），凡报到3的人退出
　　　圈子，问最后留下的是原来第几号的那位。
【程序80】
题目：海滩上有一堆桃子，五只猴子来分。第一只猴子把这堆桃子凭据分为五份，多了一个，这只
　　　猴子把多的一个扔入海中，拿走了一份。第二只猴子把剩下的桃子又平均分成五份，又多了
　　　一个，它同样把多的一个扔入海中，拿走了一份，第三、第四、第五只猴子都是这样做的，
　　　问海滩上原来最少有多少个桃子？
答案：见44楼

**********************************************************************************



【程序81】
题目：809*??=800*??+9*??+1 其中??代表的两位数,8*??的结果为两位数，9*??的结果为3位数。求??代表的两位数，及809*??后的结果。

**********************************************************************************

【程序83】
题目：求0—7所能组成的奇数个数。

**********************************************************************************

【程序84】
题目：一个偶数总能表示为两个素数之和。

**********************************************************************************

【程序24】
题目：有一分数序列：2/1，3/2，5/3，8/5，13/8，21/13...求出这个数列的前20项之和。
1.程序分析：请抓住分子与分母的变化规律。

**********************************************************************************

【程序67】
题目：输入一个数，最大的与第一个元素交换，最小的与最后一个元素交换，然后输出。

**********************************************************************************

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

**********************************************************************************

过客，匆匆

回复 23# huajinghua


   菜鸟新手拙见：
觉得这个代码会一直运行下去，可以在"set /a b=%b%+1"后加一行"if %b% gtr %a% exit"
不知道以上观点正确与否，望指正。谢谢

尘丶

程序69有误，不改了，呼终于看完了。

尘丶

程序1

@echo off&setlocal enabledelayedexpansion
set n=100
for /l %%a in (1,1,4) do (
    for /l %%b in (1,1,4) do (
        for /l %%c in (1,1,4) do (
            for /l %%d in (1,1,4) do (
         if not %%a==%%b if not %%a==%%c if not %%a==%%d if not %%b==%%c if not %%b==%%d if not %%c==%%d if not defined _n set /a _!n!=%%a%%b%%c%%d&set /a t1+=1&set /a n+=1
      )
    )
  )
)
for /f "tokens=2 delims==" %%a in ('set _') do echo;%%a
echo;!t1!
pause
复制代码

程序4

@echo off&setlocal enabledelayedexpansion
title 判断一年第几天
:begin
set /p d=输入某年某月末日(2015-08-05):
set n=%d:~,4%
set y=%d:~5,2%
set r=%d:~8,2%
if %y% gtr 12 echo;错误。&ping /n 3 127.1>nul&goto begin
if %r% gtr 31 echo;错误。&ping /n 3 127.1>nul&goto begin
if %y:~,1%==0 set y=%y:~1%
if %r:~,1%==0 set r=%r:~1%
set /a y1=%y%-2
echo;%n%-%y%-%r%
set /a n1=%n%%%400
set /a n2=%n%%%100
set /a n3=%n%%%4
if %n1%==0 (
set /a n=1
) else (
  if not %n2%==0 (
     if %n3%==0 (set /a n=1) else (set /a n=0)
 )
)
if %y%==1 echo;这是一年第%r%天。
if not %y%==1 (
if %y% gtr 1 set /a n+=1
if %y% gtr 3 set /a n+=1
if %y% gtr 5 set /a n+=1
if %y% gtr 7 set /a n+=1
if %y% gtr 8 set /a n+=1
if %y% gtr 10 set /a n+=1
if %y% gtr 12 echo;超过12个月了。&ping /n 3 127.1>nul&goto begin
set /a t=%y1%*30+!n!+!r!+28
echo;这是一年第!t!天。
)
pause
复制代码

程序8

@echo off&setlocal enabledelayedexpansion
title 九九乘法表
for /l %%a in (1,1,9) do (
    for /l %%b in (1,1,%%a) do (
        set /a n=%%a*%%b
        set /p=%%a*%%b=!n! <nul
  )
echo.
)
pause
复制代码

程序11

@echo off&setlocal enabledelayedexpansion
set /p num=几月份
set /a n1=1
set /a n2=0
:a
set /a n=%n1%+%n2%
echo;%n%
set /a n1=%n2%
set /a n2=%n%
set /a t+=1
if %t%==%num% goto b
goto a
:b
pause
复制代码

程序12

@echo off&setlocal enabledelayedexpansion
for /l %%a in (100,1,200) do (
    set k=
    set /a n=%%a-1
    for /l %%b in (2,1,!n!) do (
    set /a num=%%a%%%%b
    if !num!==0 set /a k+=1
  )
if not defined k echo;%%a
)
pause
复制代码

程序13

@echo off&setlocal EnableDelayedExpansion
for /l %%a in (1,1,9) do (
    for /l %%b in (0,1,9) do (
        for /l %%c in (0,1,9) do (
            set /a n1=%%a*%%a*%%a
            set /a n2=%%b*%%b*%%b
            set /a n3=%%c*%%c*%%c
            set /a n=!n1!+!n2!+!n3!
            if !n!==%%a%%b%%c echo;%%a%%b%%c
    )
  )
)
pause
复制代码

程序14

@echo off&setlocal enabledelayedexpansion
set num=1
set /p n=请输入要分解的数
:a
set /a k2=%n%%%2
set /a k3=%n%%%3
if %num%==1 if not %k2%==0 if not %k3%==0 (echo;本身就是质数。)
set /a num+=1
if %k2%==0 set /a n=%n%/2&set z=%z%*2
if not %k2%==0 if %k3%==0 set /a n=%n%/3&set z=%z%*3
if not %k2%==0 if not %k3%==0 (set z=%z%*%n%&goto b)
goto a
:b
echo;%z:~1%
pause
复制代码

程序16

@echo off&setlocal enabledelayedexpansion
title 最大公约数和最小公倍数
set /p m=请输入第一个数字:
set /p n=请输入第二个数字:
set /a a=%m%,b=%n%
:a
set /a y=%m%%%%n%
if %y%==0 echo;%n%是最大公约数。&goto b
set /a m=%n%,n=%y%
goto a
:b
set /a num=%a%*%b%/%n%
echo;%num%是最小公倍数。
pause
复制代码

程序19

@echo off&setlocal enabledelayedexpansion
title 1000以内的所有完数
set m=0
for /l %%a in (1,1,1000) do (
set m=
set /a k=%%a-1
    for /l %%b in (1,1,!k!) do (
        set /a n=%%a%%%%b
        if !n!==0 set /a m=!m!+%%b
  )
if %%a==!m! echo;%%a
)
pause
复制代码

程序20

@echo off&setlocal enabledelayedexpansion
set n=1000000000
set num=1000000000
:a
set /a m=%n%/2
set n=%m%
set /a t+=1
set /a num=%num%+%m%
if %t%==10 goto b
goto a
:b
for /l %%a in (0,1,20) do (
if not "!num:~%%a,1!"=="" set /a t1+=1
if not "!m:~%%a,1!"=="" set /a t2+=1
)
set /a t4=7-!t2!
if !t4!==1 set t5=0
if !t4!==2 set t5=00
if !t4!==3 set t5=000
if !t1! gtr 7 (
set num1=!num:~-7!
call,set num=%%num:!num1!=%%
set /p=共经过!num!.!num1!米，<nul
)
if !t2! leq 7 (
set /p=第10次反弹0.!t5!!m!。<nul
)
pause
复制代码

程序21

@echo off&setlocal enabledelayedexpansion
set n=1
for /l %%a in (1,1,9) do (
    set /a n=!n!*2+1
)
echo;!n!
pause
复制代码

程序23

@echo off&setlocal enabledelayedexpansion
set n=*
set t=1
for /l %%a in (1,1,7) do (
set /a num=%%a%%2
    if %%a leq 4 (
       echo;!n!
       if %%a lss 4 if !num!==0 (set n=!n!***&set /a t+=3) else (set n=!n!**&set /a t+=2)     
    )
    if %%a gtr 4 (
    if !num!==0 (set /a t-=3) else (set /a t-=2)
    call,echo;%%n:~,!t!%%
    )
)
pause
复制代码

程序25

@echo off&setlocal enabledelayedexpansion
set num=1
set shuzi=0
for /l %%a in (1,1,20) do (
set num=
    for /l %%b in (1,1,%%a) do (
        set num=!num!*%%b
 )
set /a num=!num:~1!
set /a shuzi=!shuzi!+!num!
)
echo;!shuzi!
pause
复制代码

程序30

@echo off&setlocal enabledelayedexpansion
titile 回文数
for /l %%a in (1,1,9) do (
    for /l %%b in (0,1,9) do (
        for /l %%c in (0,1,9) do (
            for /l %%d in (0,1,9) do (
                for /l %%e in (0,1,9) do (
if %%a==%%e if %%b==%%d echo;%%a%%b%%c%%d%%e
        )
      )
    ) 
  )
)
pause
复制代码

程序37

@echo off&setlocal enabledelayedexpansion
title 排序
set /p n1=输入第1个数字:
set /p n2=输入第2个数字:
set /p n3=输入第3个数字:
set /p n4=输入第4个数字:
set /p n5=输入第5个数字:
set /p n6=输入第6个数字:
set /p n7=输入第7个数字:
set /p n8=输入第8个数字:
set /p n9=输入第9个数字:
set /p n10=输入第10个数字:
for /l %%a in (0,1,10000000) do (
    for /l %%b in (1,1,10) do (
        if %%a==!n%%b! echo;%%a
  )
)
pause
复制代码

程序69

@echo off&setlocal enabledelayedexpansion
set /p r=总人数:
for /l %%a in (1,1,%r%) do (
set /a n=%%a%%3
if not !n!==0 set num=!num! %%a
)
for %%a in (!num!) do set shuzi=%%a
echo;!shuzi!
pause
复制代码

程序80

@echo off&setlocal enabledelayedexpansion
title 分桃子
set /a n1=1,n2=1
for /l %%a in (1,1,5) do (
    set /a n1=!n1!*4
    set /a n2=!n2!*5
)
echo;!n1!
echo;-----*n
echo;!n2!
set /a n3=!n2!-4
rem 因为n×!n1!/!n2!一定是整数，所以n最少是3125所以原来的桃子最少有：3125－4＝3121(个)
echo;原来的桃子最少有:!n3!个。
pause
复制代码

程序83

@echo off&setlocal enabledelayedexpansion
title 求0—7所能组成的奇数个数
for /l %%a in (0,1,7) do (
    for /l %%b in (0,1,7) do (
        for /l %%c in (0,1,7) do (
            for /l %%d in (0,1,7) do (
                for /l %%e in (0,1,7) do (
                    for /l %%f in (0,1,7) do (
                        for /l %%g in (0,1,7) do (
        set /a n=%%g%%2
        if not !n!==0 if not defined _%%a if not defined _%%b if not defined _%%c if not defined _%%d if not defined _%%e if not defined _%%f if not defined _%%g (
           set _%%a+=1&set _%%b+=1&set _%%c+=1&set _%%d+=1&set _%%e+=1&set _%%f+=1&set _%%g+=1
           echo;%%a%%b%%c%%d%%e%%f%%g&set /a t+=1
        )     
      )
     )
    )
   )   
  )
 )
)
echo;!t!
pause
复制代码

程序84

@echo off&setlocal enabledelayedexpansion
title 一个偶数总能表示为两个素数之和(1000以内)
set /p shuzi=输入一个偶数:
for /l %%a in (2,1,1000) do (
    set t=0
    set /a n=%%a-1
    for /l %%b in (2,1,!n!) do (
        set /a n1=%%a%%%%b
        if !n1!==0 set /a t+=1
 )
if !t!==0 set num=!num! %%a
)
for %%a in (!num:~1!) do (
    for %%b in (!num:~1!) do (
        set /a shuzi1=%%a+%%b
        if !shuzi1!==!shuzi! echo;%%a %%b

 )
) 
pause
复制代码

程序24

@echo off&setlocal enabledelayedexpansion
title 前20项的和
set /a n1=2,n2=3,n3=1,n4=2
set "num=%n1% %n2%"
set "shuzi=%n3% %n4%"
set qiuhe=2/1+3/2
for /l %%a in (1,1,18) do (
    set /a n=!n1!+!n2!
    set /a n5=!n3!+!n4!
    set "num=!num! !n!"
    set "shuzi=!shuzi! !n5!"
    set /a qiuhe=!qiuhe!+!n!/!n5!
    set n3=!n4!&set n4=!n5!
    set n1=!n2!&set n2=!n!
)
echo;分子:!num!
echo;分母:!shuzi!
echo;和为!qiuhe!
pause
复制代码

程序67

@echo off&setlocal enabledelayedexpansion
set /p num=输入一个数字(不重复):
for /l %%a in (0,1,10) do (
    set n=100
    set shuzi=!num:~%%a,1!
    for /l %%b in (0,1,9) do (      
        if %%b==!shuzi! (
        set /a n=!n!+%%b
        if not defined _n (
        set /a _!n!+=1
         )
        )
  )
)
for /f "tokens=1 delims==" %%a in ('set _') do (
set k=%%a
set k=!k:~-1!
set /a t+=1
if !t!==1 (set s=!k!)
)
set num3=%num:~0,1%
set num4=%num:~-1%
set num=%num:~1%
call,set num=%%num:!num4!=%%
call,set num=%%num:!k!=!num3!%%
call,set num=%%num:!s!=!num4!%%
echo;!k!!num!!s!
pause
复制代码

pan528

回复 180# pcl_test

测试通过了。
这样这个贴的题目都有解了。
作为一个旁观者也是高兴的。谢谢回帖！

pcl_test

回复 179# pan528
【程序67】题意说明不清，有歧义

@echo off
setlocal enabledelayedexpansion
set /p num=请输入一个至少2位的正整数:
set "$=%num%#"
set N=&for %%a in (4096 2048 1024 512 256 128 64 32 16) do if !$:~%%a!. NEQ . set /a N+=%%a & set $=!$:~%%a!
set $=!$!fedcba9876543210 & set /a N+=0x!$:~16,1! & set /a N-=1
set "ft=!num:~,1!"
set "lt=!num:~-1!"
for /l %%i in (0,1,!N!) do (
set _!num:~%%i,1!=!num:~%%i,1!
)
for /f "tokens=1* delims==" %%j in ('set _') do (
if not defined m set "min=%%k"
set "max=%%k"
set /a m+=1
)
set "num=!num:~1,-1!ж"
set "num=!num:%max%=%ft%!"
set "num=!num:%min%=%lt%!"
echo %max%!num:~,-1!%min%
pause
复制代码

【程序81】题目有问题，不存在这样一个两位数使得809*??=800*??+9*??+1

pan528

回复 1# huajinghua

仔细看了一下，并运行了全部程序，有下面两个主要问题：
一、【程序67】还没有人做过，希望高手能显身。
题目：输入一个数，最大的与第一个元素交换，最小的与最后一个元素交换，然后输出。
二、【程序81】，有两位做了，一个是找不到数字，一个我验算了一下，答案不对，如果两位数是12，12*809≠800*12+9*12+1。不知是题目有问题，还是算法有问题……
题目：809*??=800*??+9*??+1 其中??代表的两位数,8*??的结果为两位数，9*??的结果为3位数。求??代表的两位数，及809*??后的结果。

全部26个题目及解法批命令如下：

shelluserwlb

@echo off 
goto :start
程序11
题目：古典问题：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月
　　　后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？
程序分析：　兔子的规律为数列1,1,2,3,5,8,13,21...
:start
setlocal EnableDelayedExpansion
set /a f1=1
set /a f2=1
set /p nt=请入月数：
echo 第1个月:1对兔子 & if "%nt%" == "1"  goto :1
echo 第2个月:1对兔子 & if "%nt%" == "2"  goto :1
for /l %%i in (3,1,%nt%) do (
    set /a f3=!f1!+!f2!
    set /a f1=!f2!
    set /a f2=!f3! 
    echo 第%%i个月:!f3!对兔子  
)
:1
endlocal
echo 统计完毕！& pause>nul
复制代码

shelluserwlb

：

@echo off 
goto :start
程序4
题目：输入某年某月某日，判断这一天是这一年的第几天？
程序分析：以3月5日为例，应该先把前两个月的加起来，然后再加上5天即本年的第几天，特殊
　　　　　　情况，闰年且输入月份大于3时需考虑多加一天。

:start
color 9f
setlocal EnableDelayedExpansion
set /a total=0
set /a f=0 
set /p ndate=输入年月日(例: 2014.11.10): 

::从输入的信息获取年、月、日
for /f "tokens=1,2,3 delims=." %%i in ("%ndate%") do (
    set /a nyear=%%i 
    set /a nmonth=%%j
    set /a nday=%%k
    if "!nmonth:~0,1!" == "0" set nmonth=!nmonth:~1,1!
    if "!nday:~0,1!" == "0" set nday=!nday:~1,1!
)
::判断该年是平年或闰年
set /a t1=%nyear%%%400 
set /a t2=%nyear%%%4
set /a t3=%nyear%%%100
if %t1% equ 0 set /a f=1
if %t2% equ 0 (if %t3% neq 0 set /a f=1)

::根据所输入的月份计算总天数
if "%nmonth%" == "1" (set /a total=0+%nday% & goto :1 )
if "%nmonth%" == "2" (set /a total=31+%nday% & goto :1 )
if "%nmonth%" == "3" (set /a total=59+%f%+%nday% & goto :1 )
if "%nmonth%" == "4" (set /a total=90+%f%+%nday% & goto :1 )
if "%nmonth%" == "5" (set /a total=120+%f%+%nday% & goto :1 )
if "%nmonth%" == "6" (set /a total=151+%f%+%nday% & goto :1 )
if "%nmonth%" == "7" (set /a total=181+%f%+%nday% & goto :1 )
if "%nmonth%" == "8" (set /a total=212+%f%+%nday% & goto :1 )
if "%nmonth%" == "9" (set /a total=243+%f%+%nday% & goto :1 )
if "%nmonth%" == "10" (set /a total=273+%f%+%nday% & goto :1 )
if "%nmonth%" == "11" (set /a total=304+%f%+%nday% & goto :1 )
if "%nmonth%" == "12" (set /a total=334+%f%+%nday% & goto :1 )
:1
::输出计算结果
if %total%==0 (
    echo 输入日期信息错误,请重新输入！& pause>nul 
    cls & goto :START
) else (
    echo %nyear%年%nmonth%月%nday%日是该年的第%total%天。
)
endlocal
pause>nul
复制代码

bailong360

程序13

@echo off
Setlocal enabledelayedexpansion
for /l %%a in (1 1 9) do (
	for /l %%b in (0 1 9) do (
		for /l %%c in (0 1 9) do (
			set /a jud=%%a*%%a*%%a+%%b*%%b*%%b+%%c*%%c*%%c
			if !jud!==%%a%%b%%c echo !jud!
		)
	)
)
pause>nul
复制代码

bailong360

程序12

@echo off
SetLocal EnableDelayedExpansion
for /l %%i in (101,2,200) do (
	set num=%%i
	call :judge
)
pause>nul
:judge
set times=2
for /l %%a in (1,1,3) do (
	set /a times+=%%i/times
	set /a times/=2
)
for /l %%j in (3,2,%times%) do (
	set /a value=%%i %% %%j
	if !value!==0 goto :eof
)
echo %num%
复制代码

用了牛顿迭代法开平方  感觉效率还可以

bailong360

程序11

@echo off
Setlocal enabledelayedexpansion
set /a R0=1,R1=1
set /p month=Please enter the month:
for /l %%i in (2 1 %month%) do (
	set /a af=%%i-1,ag=%%i-2
	set /a R%%i=R!af! + R!ag!
)
echo !R%month%!
pause>nul
复制代码

貌似超过45就不对了，如果要更多的话得专门写个无限数位加法了

bailong360

程序9

@echo off
SetLocal EnableDelayedExpansion
for /l %%i in (1 1 8) do (
	for /l %%j in (1 1 8) do (
		set /a num=%%i+%%j,num%%=2
		if !num!==1 (set /p =■<nul) else (set /p =□<nul)
	)
	echo;
)
pause>nul
复制代码

bailong360

程序8

@echo off
Setlocal enabledelayedexpansion
for /l %%i in (1 1 9) do (
	set times=1
	for /l %%j in (1 1 %%i) do (
		set /a ans=%%i*%%j
		if not !times!==%%i (
			set /p =%%ix%%j=!ans!  <nul
		) else (
			echo %%ix%%j=!ans!
		)
		set  /a times+=1
	)
)
pause>nul
复制代码

bailong360

程序4

@echo off
SetLocal EnableDelayedExpansion
set /p str=Please enter(2014.7.28):
for /f "delims=. tokens=1-3" %%a in ("%str%") do (
	call :jud %%a %%b %%c
	echo %%a.%%b.%%c is the !day!day for %%a
	pause>nul
)
:jud
for %%i in (1 3 5 7 8 10 12) do set %%i=31
for %%i in (4 6 9 11) do set %%i=30
set /a jud=%1 %% 400
if %jud%==0 (
	set 2=29
) else (
	set /a jud=%1 %% 4
	if !jud!==0 (
		set /a jud=%~1 %% 100
		if not !jud!==0 set 2=29
	) else (set 2=28)
)
set /a month=%~2-1
for /l %%i in (1 1 %month%) do (
	set /a day+=!%%i!
)
set /a day+=%3
复制代码

哎，不够熟练，竟然花了这么久...