中国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】
题目：一个偶数总能表示为两个素数之和。

用C写吗？

用批处理写

@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 ]