出题目，全是我从C语言的题目中挑出来的 - 中国DOS联盟论坛

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

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

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

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

【程序11】
题目：古典问题：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月
　　　后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？
1.程序分析：　兔子的规律为数列1,1,2,3,5,8,13,21....
【程序12】
题目：判断101-200之间有多少个素数，并输出所有素数。
1.程序分析：判断素数的方法：用一个数分别去除2到sqrt(这个数)，如果能被整除，
　　　　　　则表明此数不是素数，反之是素数。
【程序13】
题目：打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数
　　　本身。例如：153是一个“水仙花数”，因为153=1的三次方＋5的三次方＋3的三次方。
1.程序分析：利用for循环控制100-999个数，每个数分解出个位，十位，百位。
【程序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的值,重复执行第一步。
【程序16】
题目：输入两个正整数m和n，求其最大公约数和最小公倍数。
1.程序分析：利用辗除法。
：：作者提示：资料中未说明何为辗除法。根据C源码可知，辗除法（若a>b，让数a对数b求模得到c，再让数b对数c求模，得到d，再让c对d求模，一直循环直到最后的求模余数n=0）

【程序19】
题目：一个数如果恰好等于它的因子之和，这个数就称为“完数”。例如6=1＋2＋3.编程
　　　找出1000以内的所有完数。
【程序20】
题目：一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在
　　　第10次落地时，共经过多少米？第10次反弹多高？
【程序21】
题目：猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了一半，还不瘾，又多吃了一个
　　　第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下
　　　的一半零一个。到第10天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少。
1.程序分析：采取逆向思维的方法，从后往前推断。
【程序23】
题目：打印出如下图案（菱形）
*
***
******
********
******
***
*
1.程序分析：先把图形分成两部分来看待，前四行一个规律，后三行一个规律，利用双重
　　　　　　for循环，第一层控制行，第二层控制列。

【程序24】
题目：有一分数序列：2/1，3/2，5/3，8/5，13/8，21/13...求出这个数列的前20项之和。

1.程序分析：请抓住分子与分母的变化规律。

【程序25】
题目：求1+2!+3!+...+20!的和
1.程序分析：此程序只是把累加变成了累乘。
【程序28】
题目：有5个人坐在一起，问第五个人多少岁？他说比第4个人大2岁。问第4个人岁数，他说比第
　　　3个人大2岁。问第三个人，又说比第2人大两岁。问第2个人，说比第一个人大两岁。最后
　　　问第一个人，他说是10岁。请问第五个人多大？
1.程序分析：利用递归的方法，递归分为回推和递推两个阶段。要想知道第五个人岁数，需知道
　　　　　　第四人的岁数，依次类推，推到第一人（10岁），再往回推。
【程序30】
题目：一个5位数，判断它是不是回文数。即12321是回文数，个位与万位相同，十位与千位相同。
【程序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　
【程序69】
题目：有n个人围成一圈，顺序排号。从第一个人开始报数（从1到3报数），凡报到3的人退出
　　　圈子，问最后留下的是原来第几号的那位。
【程序80】
题目：海滩上有一堆桃子，五只猴子来分。第一只猴子把这堆桃子凭据分为五份，多了一个，这只
　　　猴子把多的一个扔入海中，拿走了一份。第二只猴子把剩下的桃子又平均分成五份，又多了
　　　一个，它同样把多的一个扔入海中，拿走了一份，第三、第四、第五只猴子都是这样做的，
　　　问海滩上原来最少有多少个桃子？
【程序81】
题目：809*??=800*??+9*??+1 其中??代表的两位数,8*??的结果为两位数，9*??的结果为3位数。求??代表的两位数，及809*??后的结果。
【程序83】
题目：求0—7所能组成的奇数个数。
【程序84】
题目：一个偶数总能表示为两个素数之和。

@echo off
for /l %%i in (1,1,4) do set a=%%i&call :lp %%a%%
pause&goto :eof
:lp
for /l %%j in (1,1,4) do if not %%j equ %a% set b=%%j&call :loop %%a%% %%b%%
goto :eof
:loop
for /l %%k in (1,1,4) do (
    if not %%k equ %a% set d=%%k
    setlocal enabledelayedexpansion
    if not !d! equ %b% set c=!d!
)
echo %a%%b%%c%
endlocal
goto :eof

[ Last edited by zw19750516 on 2008-4-11 at 04:02 PM ]

@echo off
for /l %%i in (1,1,9) do (
    setlocal enabledelayedexpansion
    for /l %%j in (1,1,%%i) do (
        set a=%%i&set b=%%j
        set /a c=!a!*!b!&set /a m+=1
        if !c! lss 10 set c= !c!
        set "var=!a!*!b!=!c!"
        set str=!str! !var!
        if !m! equ !a! echo !str!&set m=0&set str=
        )
endlocal
)
pause>nul

[ Last edited by zw19750516 on 2008-4-11 at 04:03 PM ]

@echo off
:begin
cls
set /p var=输入要计算的日期（格式为2000-01-01）:
if "%var:~4,1%%var:~7,1%"=="--" goto year
cls
echo 输入格式不正确！请返回正确输入。&ping /n 2 127.1>nul&goto begin
:year
set year=%var:~,4%
set /a str=%year%-%year%/4*4
:month
if %var:~5,1% equ 0 (set month=%var:~6,1%) else (set month=%var:~5,2%)
set /a month=%month%-1
if %month% equ 0 set /a number=0 
if %month% equ 1 set /a number=31
if %month% equ 2 set /a number=31+28 
if %month% equ 3 set /a number=31*2+28
if %month% equ 4 set /a number=31*2+30+28 
if %month% equ 5 set /a number=31*3+30+28
if %month% equ 6 set /a number=31*3+30*2+28 
if %month% equ 7 set /a number=31*4+30*2+28 
if %month% equ 8 set /a number=31*5+30*2+28 
if %month% equ 9 set /a number=31*5+30*3+28 
if %month% equ 10 set /a number=31*6+30*3+28 
if %month% equ 11 set /a number=31*6+30*4+28
if %str% equ 0 if %month% gtr 2 set /a number=%number%+1
:day
if %var:~8,1% equ 0 (set /a number=%number%+%var:~9,1%) else (set /a number=%

number%+%var:~8,2%)
cls
echo %var%是%year%年的第%number%天
pause>nul

[ Last edited by zw19750516 on 2008-4-11 at 04:03 PM ]

判断天数


@echo off
set/p p1=输入年:
set/p p2=输入月:
set/p p3=输入日:
set/a pn="!(p1%%4) & !(!(p1%%100)) | !(p1%%400)"
for /f "tokens=%p2%" %%i in ("0 31 59 90 120 151 181 212  243 273 304 334") do set/a n=%%i+p3
if %P2% gtr 2 set/a n+=pn
if %P2% equ 2 if %P3% equ 29 if %pn% equ 0 echo %p1%年不是闰年 所以%P2%月不会有%P3%日&pause&exit
echo %p1%年%p2%月%p3%日 是 %p1% 年的第 %n% 天
pause

数字排列


@echo off&setlocal enabledelayedexpansion
set str=1 2 3 4
for %%a in (!str!) do (
    set str1=!str:%%a=!
for %%b in (!str1!) do (
    set str2=!str1:%%b=!
for %%c in (!str2!) do (
     set str3=!str2:%%c=!
     echo %%b%%c!str3: =!
     set /a n+=1
  )
 )
)
echo 有%n%种排列
pause

求两位数


@echo off&setlocal enabledelayedexpansion
for /l %%i in (99,-1,10) do (
set/a m=%%i*8,n=%%i*9
if !m! lss 100 if !n! gtr 100 set/a mn=809*%%i&set str=%%i 
)
echo 809 × %str% = %mn%
pause

第一天摘了多少桃


@echo off
set m=1
set n=10
:lp
set/a m+=1
set/a m=%m%*2,n-=1
if %n% gtr 1 goto lp
echo 第一天摘了 %m%
pause

排序数字


@echo off
set/p var=请输入数字
set var=%var: =%
:lp
set .%var:~0,1% %random%=a
  set var=%var:~1%
    if not "%var%" == "" goto :lp
    set/p =排序后为:<nul
      for /f "delims=.= " %%i in ('set .') do set/p =%%i<nul
echo.
pause

递加数
这个是我理解错了吧改下


@echo off
for /l %%i in (1,1,20) do set/a n+=%%i
echo %n%
pause

[ Last edited by terse on 2008-4-11 at 09:32 AM ]

如果有算不出的，我就把C源码贴出来，哈哈

@echo off
set /p month=月份：
if %month% gtr 0 if %month% leq 2 echo 2只&pause&goto :eof
set /a month=%month%-2
set n=2&set m=2
:begin
set /a n=%n%+%m%
set /a w+=1
if %w% equ %month% echo %n%只&pause&goto :eof
set /a m=%m%+%n%
set /a v+=1
if %v% equ %month% echo %m%只&pause&goto :eof
goto begin


::判断素数【程序12】
@echo off
for /l %%a in (101,1,200) do call:j %%a
exit/b

:j
setlocal enabledelayedexpansion
set/a half=%1/2
for /l %%a in (2,1,!half!) do set/a r=%1%%%%a&if !r! equ 0 goto:eof
set/p=%1 <nul


::【程序25】 题目：求1+2!+3!+...+20!的和
@echo off&setlocal
for /l %%a in (1,1,20) do call:j %%a&set/a sum+=j
echo %sum%
pause
exit/b

:j
set/a j=1
for /l %%a in (1,1,%1) do set/a j*=%%a

如果有不会的，参考：

http://www.cn-dos.net/forum/viewthread.php?tid=38256&page=2&sid=GpG7Fd#pid270829

[ Last edited by plp626 on 2008-4-12 at 12:11 AM ]


::【程序19】找“完数”
@echo off
echo Calculating...
for /l %%a in (1,1,1000) do (
	setlocal enabledelayedexpansion
	set/a sum=0
	set/a a'=%%a-1
	for /l %%b in (1,1,!a'!) do (
		set/a t=%%a%%%%b
		if !t! equ 0 set/a sum+=%%b
	)
	if !sum! equ %%a set/p=%%a <nul
	endlocal
)
pause

@echo off
for /l %%i in (100,1,999) do (
    set str=%%i
    setlocal enabledelayedexpansion
    set a=!str:~,1!&set b=!str:~1,1!&set c=!str:~2,1!
    set /a var=!a!*!a!*!a!+!b!*!b!*!b!+!c!*!c!*!c!
    if !var! equ !str! echo !str!
    endlocal
)
pause

[ Last edited by zw19750516 on 2008-4-11 at 10:40 PM ]

第1楼　huajinghua	发表于 2008-04-10 19:35
初级用户　发帖 19　积分 54
出题目，全是我从C语言的题目中挑出来的本人从《C语言资料大全》中搜的题目，给新手学习，给高手练习。呵呵。本人也没时间做，留给大家做咯。 ================================================================= ----------QQ：327828994 【程序1】题目：有1、2、3、4个数字，能组成多少个互不相同且无重复数字的三位数？都是多少？ 1.程序分析：可填在百位、十位、个位的数字都是1、2、3、4。组成所有的排列后再去　　　　　　掉不满足条件的排列。【程序4】题目：输入某年某月某日，判断这一天是这一年的第几天？ 1.程序分析：以3月5日为例，应该先把前两个月的加起来，然后再加上5天即本年的第几天，特殊　　　　　　情况，闰年且输入月份大于3时需考虑多加一天。【程序8】题目：输出99口诀。 1.程序分析：分行与列考虑，共9行9列，i控制行，j控制列。【程序9】题目：要求输出国际象棋棋盘。 1.程序分析：用i控制行，j来控制列，根据i+j的和的变化来控制输出黑方格，还是白方格。【程序11】题目：古典问题：有一对兔子，从出生后第3个月起每个月都生一对兔子，小兔子长到第三个月　　　后每个月又生一对兔子，假如兔子都不死，问每个月的兔子总数为多少？ 1.程序分析：　兔子的规律为数列1,1,2,3,5,8,13,21.... 【程序12】题目：判断101-200之间有多少个素数，并输出所有素数。 1.程序分析：判断素数的方法：用一个数分别去除2到sqrt(这个数)，如果能被整除，　　　　　　则表明此数不是素数，反之是素数。【程序13】题目：打印出所有的“水仙花数”，所谓“水仙花数”是指一个三位数，其各位数字立方和等于该数　　　本身。例如：153是一个“水仙花数”，因为153=1的三次方＋5的三次方＋3的三次方。 1.程序分析：利用for循环控制100-999个数，每个数分解出个位，十位，百位。【程序14】题目：将一个正整数分解质因数。例如：输入90,打印出90=2335。程序分析：对n进行分解质因数，应先找到一个最小的质数k，然后按下述步骤完成： (1)如果这个质数恰等于n，则说明分解质因数的过程已经结束，打印出即可。 (2)如果n<>k，但n能被k整除，则应打印出k的值，并用n除以k的商,作为新的正整数你n, 　重复执行第一步。 (3)如果n不能被k整除，则用k+1作为k的值,重复执行第一步。【程序16】题目：输入两个正整数m和n，求其最大公约数和最小公倍数。 1.程序分析：利用辗除法。：：作者提示：资料中未说明何为辗除法。根据C源码可知，辗除法（若a>b，让数a对数b求模得到c，再让数b对数c求模，得到d，再让c对d求模，一直循环直到最后的求模余数n=0）【程序19】题目：一个数如果恰好等于它的因子之和，这个数就称为“完数”。例如6=1＋2＋3.编程　　　找出1000以内的所有完数。【程序20】题目：一球从100米高度自由落下，每次落地后反跳回原高度的一半；再落下，求它在　　　第10次落地时，共经过多少米？第10次反弹多高？【程序21】题目：猴子吃桃问题：猴子第一天摘下若干个桃子，当即吃了一半，还不瘾，又多吃了一个　　　第二天早上又将剩下的桃子吃掉一半，又多吃了一个。以后每天早上都吃了前一天剩下　　　的一半零一个。到第10天早上想再吃时，见只剩下一个桃子了。求第一天共摘了多少。 1.程序分析：采取逆向思维的方法，从后往前推断。【程序23】题目：打印出如下图案（菱形） * * ** **** ** * * 1.程序分析：先把图形分成两部分来看待，前四行一个规律，后三行一个规律，利用双重　　　　　　for循环，第一层控制行，第二层控制列。【程序24】题目：有一分数序列：2/1，3/2，5/3，8/5，13/8，21/13...求出这个数列的前20项之和。 1.程序分析：请抓住分子与分母的变化规律。【程序25】题目：求1+2!+3!+...+20!的和 1.程序分析：此程序只是把累加变成了累乘。【程序28】题目：有5个人坐在一起，问第五个人多少岁？他说比第4个人大2岁。问第4个人岁数，他说比第　　　3个人大2岁。问第三个人，又说比第2人大两岁。问第2个人，说比第一个人大两岁。最后　　　问第一个人，他说是10岁。请问第五个人多大？ 1.程序分析：利用递归的方法，递归分为回推和递推两个阶段。要想知道第五个人岁数，需知道　　　　　　第四人的岁数，依次类推，推到第一人（10岁），再往回推。【程序30】题目：一个5位数，判断它是不是回文数。即12321是回文数，个位与万位相同，十位与千位相同。【程序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　【程序69】题目：有n个人围成一圈，顺序排号。从第一个人开始报数（从1到3报数），凡报到3的人退出　　　圈子，问最后留下的是原来第几号的那位。【程序80】题目：海滩上有一堆桃子，五只猴子来分。第一只猴子把这堆桃子凭据分为五份，多了一个，这只　　　猴子把多的一个扔入海中，拿走了一份。第二只猴子把剩下的桃子又平均分成五份，又多了　　　一个，它同样把多的一个扔入海中，拿走了一份，第三、第四、第五只猴子都是这样做的，　　　问海滩上原来最少有多少个桃子？【程序81】题目：809??=800??+9??+1 其中??代表的两位数,8??的结果为两位数，9??的结果为3位数。求??代表的两位数，及809??后的结果。【程序83】题目：求0—7所能组成的奇数个数。【程序84】题目：一个偶数总能表示为两个素数之和。

第2楼　abcd	发表于 2008-04-10 19:58
银牌会员　发帖 739　积分 1,436
用C写吗？

第3楼　huajinghua	发表于 2008-04-10 20:02
初级用户　发帖 19　积分 54
用批处理写

第4楼　bat-zw	发表于 2008-04-10 20:15
金牌会员　发帖 1,276　积分 3,105
第一题（程序1）： @echo off for /l %%i in (1,1,4) do set a=%%i&call :lp %%a%% pause&goto :eof :lp for /l %%j in (1,1,4) do if not %%j equ %a% set b=%%j&call :loop %%a%% %%b%% goto :eof :loop for /l %%k in (1,1,4) do ( if not %%k equ %a% set d=%%k setlocal enabledelayedexpansion if not !d! equ %b% set c=!d! ) echo %a%%b%%c% endlocal goto :eof [ Last edited by zw19750516 on 2008-4-11 at 04:02 PM ]

第5楼　bat-zw	发表于 2008-04-10 20:25
金牌会员　发帖 1,276　积分 3,105
第三题（程序8）： @echo off for /l %%i in (1,1,9) do ( setlocal enabledelayedexpansion for /l %%j in (1,1,%%i) do ( set a=%%i&set b=%%j set /a c=!a!!b!&set /a m+=1 if !c! lss 10 set c= !c! set "var=!a!!b!=!c!" set str=!str! !var! if !m! equ !a! echo !str!&set m=0&set str= ) endlocal ) pause>nul [ Last edited by zw19750516 on 2008-4-11 at 04:03 PM ]

第6楼　bat-zw	发表于 2008-04-10 20:45
金牌会员　发帖 1,276　积分 3,105
第二题（程序4）： @echo off :begin cls set /p var=输入要计算的日期（格式为2000-01-01）: if "%var:~4,1%%var:~7,1%"=="--" goto year cls echo 输入格式不正确！请返回正确输入。&ping /n 2 127.1>nul&goto begin :year set year=%var:~,4% set /a str=%year%-%year%/44 :month if %var:~5,1% equ 0 (set month=%var:~6,1%) else (set month=%var:~5,2%) set /a month=%month%-1 if %month% equ 0 set /a number=0 if %month% equ 1 set /a number=31 if %month% equ 2 set /a number=31+28 if %month% equ 3 set /a number=312+28 if %month% equ 4 set /a number=312+30+28 if %month% equ 5 set /a number=313+30+28 if %month% equ 6 set /a number=313+302+28 if %month% equ 7 set /a number=314+302+28 if %month% equ 8 set /a number=315+302+28 if %month% equ 9 set /a number=315+303+28 if %month% equ 10 set /a number=316+303+28 if %month% equ 11 set /a number=316+304+28 if %str% equ 0 if %month% gtr 2 set /a number=%number%+1 :day if %var:~8,1% equ 0 (set /a number=%number%+%var:~9,1%) else (set /a number=% number%+%var:~8,2%) cls echo %var%是%year%年的第%number%天 pause>nul [ Last edited by zw19750516 on 2008-4-11 at 04:03 PM ]

第7楼　vkill	发表于 2008-04-10 20:49
金牌会员　发帖 1,744　积分 4,103　来自甘肃.临泽
好难，感觉

第8楼　terse	发表于 2008-04-11 01:24
银牌会员　发帖 946　积分 2,404
判断天数 @echo off set/p p1=输入年: set/p p2=输入月: set/p p3=输入日: set/a pn="!(p1%%4) & !(!(p1%%100)) \| !(p1%%400)" for /f "tokens=%p2%" %%i in ("0 31 59 90 120 151 181 212 243 273 304 334") do set/a n=%%i+p3 if %P2% gtr 2 set/a n+=pn if %P2% equ 2 if %P3% equ 29 if %pn% equ 0 echo %p1%年不是闰年所以%P2%月不会有%P3%日&pause&exit echo %p1%年%p2%月%p3%日是 %p1% 年的第 %n% 天 pause 数字排列 @echo off&setlocal enabledelayedexpansion set str=1 2 3 4 for %%a in (!str!) do ( set str1=!str:%%a=! for %%b in (!str1!) do ( set str2=!str1:%%b=! for %%c in (!str2!) do ( set str3=!str2:%%c=! echo %%b%%c!str3: =! set /a n+=1 ) ) ) echo 有%n%种排列 pause 求两位数 @echo off&setlocal enabledelayedexpansion for /l %%i in (99,-1,10) do ( set/a m=%%i8,n=%%i9 if !m! lss 100 if !n! gtr 100 set/a mn=809%%i&set str=%%i ) echo 809 × %str% = %mn% pause 第一天摘了多少桃 @echo off set m=1 set n=10 :lp set/a m+=1 set/a m=%m%2,n-=1 if %n% gtr 1 goto lp echo 第一天摘了 %m% pause 排序数字 @echo off set/p var=请输入数字 set var=%var: =% :lp set .%var:~0,1% %random%=a set var=%var:~1% if not "%var%" == "" goto :lp set/p =排序后为:<nul for /f "delims=.= " %%i in ('set .') do set/p =%%i<nul echo. pause 递加数这个是我理解错了吧改下 @echo off for /l %%i in (1,1,20) do set/a n+=%%i echo %n% pause [ Last edited by terse on 2008-4-11 at 09:32 AM ]

第9楼　huajinghua	发表于 2008-04-11 14:02
初级用户　发帖 19　积分 54
如果有算不出的，我就把C源码贴出来，哈哈

第10楼　bat-zw	发表于 2008-04-11 16:04
金牌会员　发帖 1,276　积分 3,105
兔子问题（程序11）： @echo off set /p month=月份： if %month% gtr 0 if %month% leq 2 echo 2只&pause&goto :eof set /a month=%month%-2 set n=2&set m=2 :begin set /a n=%n%+%m% set /a w+=1 if %w% equ %month% echo %n%只&pause&goto :eof set /a m=%m%+%n% set /a v+=1 if %v% equ %month% echo %m%只&pause&goto :eof goto begin

第11楼　s11ss	发表于 2008-04-11 19:05
银牌会员　发帖 566　积分 2,098
::判断素数【程序12】 @echo off for /l %%a in (101,1,200) do call:j %%a exit/b :j setlocal enabledelayedexpansion set/a half=%1/2 for /l %%a in (2,1,!half!) do set/a r=%1%%%%a&if !r! equ 0 goto:eof set/p=%1 <nul

第12楼　s11ss	发表于 2008-04-11 19:45
银牌会员　发帖 566　积分 2,098
::【程序25】题目：求1+2!+3!+...+20!的和 @echo off&setlocal for /l %%a in (1,1,20) do call:j %%a&set/a sum+=j echo %sum% pause exit/b :j set/a j=1 for /l %%a in (1,1,%1) do set/a j*=%%a

第13楼　plp626	发表于 2008-04-11 20:02
银牌会员　发帖 1,020　积分 2,278
如果有不会的，参考： http://www.cn-dos.net/forum/viewthread.php?tid=38256&page=2&sid=GpG7Fd#pid270829 [ Last edited by plp626 on 2008-4-12 at 12:11 AM ]

第14楼　s11ss	发表于 2008-04-11 20:24
银牌会员　发帖 566　积分 2,098
::【程序19】找“完数” @echo off echo Calculating... for /l %%a in (1,1,1000) do ( setlocal enabledelayedexpansion set/a sum=0 set/a a'=%%a-1 for /l %%b in (1,1,!a'!) do ( set/a t=%%a%%%%b if !t! equ 0 set/a sum+=%%b ) if !sum! equ %%a set/p=%%a <nul endlocal ) pause

第15楼　bat-zw	发表于 2008-04-11 20:41
金牌会员　发帖 1,276　积分 3,105
水仙花数（程序13）： @echo off for /l %%i in (100,1,999) do ( set str=%%i setlocal enabledelayedexpansion set a=!str:~,1!&set b=!str:~1,1!&set c=!str:~2,1! set /a var=!a!!a!!a!+!b!!b!!b!+!c!!c!!c! if !var! equ !str! echo !str! endlocal ) pause [ Last edited by zw19750516 on 2008-4-11 at 10:40 PM ]