批处理之家's Archiver

huajinghua 发表于 2008-4-10 19:24

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

[quote][color=Red]所发代码若不止一行,请用code标签把代码部分括起来。[/color]

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

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

[color=black][color=red][size=6]申请加精![/size]
[/color]本人从《C语言资料大全》中搜的题目,给新手学习,给高手练习。呵呵。本人也没时间做,留给大家做咯。
=================================================================
                                                                                                                     ----------QQ:327828994

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


[/color][size=5][color=red]答案:见5楼[/color][/size]
[color=black][size=4][font=宋体]**********************************************************************************[/font]
[/size]
【程序4】
题目:输入某年某月某日,判断这一天是这一年的第几天?
1.程序分析:以3月5日为例,应该先把前两个月的加起来,然后再加上5天即本年的第几天,特殊
      情况,闰年且输入月份大于3时需考虑多加一天。

[/color][size=5][color=red]答案:见6楼[/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

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

[/color][size=5][color=red]答案:见7楼[/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]


【程序9】
题目:要求输出国际象棋棋盘。
1.程序分析:用i控制行,j来控制列,根据i+j的和的变化来控制输出黑方格,还是白方格。
[img]http://img.cn.china.cn/image/10/43/93/66/76/1268119848_1_big.jpg[/img]

[/color][size=5][color=red]答案:见36楼[/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

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

[size=5][color=red]答案:见10楼[/color][/size]
[size=5][/size][font=宋体][size=4]**********************************************************************************[/size][/font]

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

[/color][size=5][color=red][size=5][color=red]答案:请参考13,15楼[/color][/size][/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

[size=5][/size]
【程序13】
题目:打印出所有的“水仙花数”,所谓“水仙花数”是指一个三位数,其各位数字立方和等于该数
   本身。例如:153是一个“水仙花数”,因为153=1的三次方+5的三次方+3的三次方。
1.程序分析:利用for循环控制100-999个数,每个数分解出个位,十位,百位。[/color]
[color=black]
[/color][size=5][color=red]答案:见18,19楼[/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]



【程序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的值,重复执行第一步。[/color]
[color=black]
[/color][size=5][color=red]答案:见23,24楼[/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

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

[/color][size=5][color=red]答案:见27楼[/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

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


[/color][size=5][color=red]答案:见37,38楼[/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

【程序21】
题目:猴子吃桃问题:猴子第一天摘下若干个桃子,当即吃了一半,还不瘾,又多吃了一个
   第二天早上又将剩下的桃子吃掉一半,又多吃了一个。以后每天早上都吃了前一天剩下
   的一半零一个。到第10天早上想再吃时,见只剩下一个桃子了。求第一天共摘了多少。
1.程序分析:采取逆向思维的方法,从后往前推断。[/color]
[color=black]
[/color][size=5][color=red]答案:见32楼[/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

[size=5][/size]


【程序23】
题目:打印出如下图案(菱形)
*
***
******
********
******
***
*
1.程序分析:先把图形分成两部分来看待,前四行一个规律,后三行一个规律,利用双重
      for循环,第一层控制行,第二层控制列。 [/color]
[color=black]

[/color][size=5][color=red]答案:见21楼[/color][/size]
[size=5][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]




【程序25】
题目:求1+2!+3!+...+20!的和
1.程序分析:此程序只是把累加变成了累乘。[/color]
[color=black]
[/color][size=5][color=red]答案:见33楼[/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

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

[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

【程序30】
题目:一个5位数,判断它是不是回文数。即12321是回文数,个位与万位相同,十位与千位相同。
[/color]
[color=black]
[/color][size=5][color=red]答案:见34楼[/color][/size]
[size=5][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

【程序37】
题目:对10个数进行排序
1.程序分析:可以利用选择法,即从后9个比较过程中,选择一个最小的与第一个元素交换,
      下次类推,即用第二个元素与后8个进行比较,并进行交换。[/color]
[color=black][/color]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

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

[/color][size=5][color=red]答案:见22楼[/color][/size]
[size=5][color=black][/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]
[/color]

[size=5][/size]
[color=black]【程序69】
题目:有n个人围成一圈,顺序排号。从第一个人开始报数(从1到3报数),凡报到3的人退出
   圈子,问最后留下的是原来第几号的那位。
【程序80】
题目:海滩上有一堆桃子,五只猴子来分。第一只猴子把这堆桃子凭据分为五份,多了一个,这只
   猴子把多的一个扔入海中,拿走了一份。第二只猴子把剩下的桃子又平均分成五份,又多了
   一个,它同样把多的一个扔入海中,拿走了一份,第三、第四、第五只猴子都是这样做的,
   问海滩上原来最少有多少个桃子?
[/color][size=5][color=red]答案:见44楼[/color][/size]
[size=5][color=black][/color][/size]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]
[/color]


[color=black]【程序81】
题目:809*??=800*??+9*??+1 其中??代表的两位数,8*??的结果为两位数,9*??的结果为3位数。求??代表的两位数,及809*??后的结果。[/color]
[color=black][/color]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

【程序83】
题目:求0—7所能组成的奇数个数。[/color]
[color=black][/color]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

【程序84】
题目:一个偶数总能表示为两个素数之和。[/color]
[color=black][/color]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

【程序24】
题目:有一分数序列:2/1,3/2,5/3,8/5,13/8,21/13...求出这个数列的前20项之和。
1.程序分析:请抓住分子与分母的变化规律。 [/color]
[color=black][/color]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

【程序67】
题目:输入一个数,最大的与第一个元素交换,最小的与最后一个元素交换,然后输出。[/color]
[color=black][/color]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]

【程序82】
题目:八进制转换为十进制[/color]
[color=black][/color]
[color=black][font=宋体][size=4]**********************************************************************************[/size][/font]
[/color]

fml520 发表于 2008-4-10 19:30

哈哈  沙发。对 来说太难了

huajinghua 发表于 2008-4-10 19:44

如果谁能全部用批处理做出来,那绝对可以成为高手。哈哈

youxi01 发表于 2008-4-10 22:49

大多的问题在dos联盟里已经解决了
可以考虑加精
欢迎各位朋友继续"突破"

youxi01 发表于 2008-4-10 23:23

求数字不同的排列组合

论坛里前几天就出现了相关代码,测试代码:[code]@echo off &setlocal enabledelayedexpansion
set "str=1 2 3 4 "
for %%a in (%str%) do (
        set var1=!str:%%a =!
        for %%b in (!var1!) do (
                set var2=!var1:%%b =!
                for %%c in (!var2!) do (
                        echo %%a%%b%%c
                )
        )

)

pause>nul[/code]

youxi01 发表于 2008-4-10 23:43

求某日期在一年中是第几天

测试代码:[code]@echo off &setlocal enabledelayedexpansion
set /p Cdate=请输入日期(如:2008-1-2日或2008/01/02):
for /f "tokens=1-3 delims=/-, " %%a in ("%Cdate%") do (
set/a yy=%%a,mm=100%%b%%100,dd=100%%c%%100
)
call ate2Day %yy%-1-1 days1
call ate2Day %Cdate% days2
set/a res=days2-days1+1
echo.&echo %yy%年%mm%月%dd%日 是 %yy%年 的第 %res% 天。
pause>nul
goto :eof
::注意:以下"函数"由willsort完成(略有改动);
ate2Day 日期 传回(数值)结果
setlocal ENABLEEXTENSIONS
for /f "tokens=1-3 delims=/-, " %%a in ('echo/%1') do (
  set yy=%%a & set mm=%%b & set dd=%%c
)
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
endlocal&set %2=%j%&goto :EOF
ay2Date 数值 传回(日期)结果
setlocal ENABLEEXTENSIONS
set /a i=%1,a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
endlocal&set %2=%yy%-%mm%-%dd%&goto :EOF [/code]

youxi01 发表于 2008-4-10 23:53

打印99乘法表

此题namejm已经做了,测试代码:[code]@echo off &setlocal enabledelayedexpansion
for /l %%a in (1 1 9) do (
        for /l %%b in (1 1 %%a) do (
                set/a res=%%a*%%b
                set "res=!res!  " %======此处用来对齐=========%
                set/p=%%ax%%b=!res:~0,2!  <nul
        )
        echo.
)
pause>nul[/code]

youxi01 发表于 2008-4-10 23:55

程序9

意思不明:“控制输出黑方格,还是白方格。”
是这样吗:□和■

huajinghua 发表于 2008-4-11 10:23

不错不错,高手不愧是高手

huajinghua 发表于 2008-4-11 10:34

继续兔子问题哈。不能一直管理员做题,我也做,这是我写的,测试没有错。
@echo off&setlocal enabledelayedexpansion
:a
set/p n=请输入月份
set a1=1
set a2=0
for /l %%i in (1,1,%n%) do (
set /a a3=!a1!+!a2!
set a1=!a2!
set a2=!a3!
echo !a3!)
pause
cls&goto a

huajinghua 发表于 2008-4-11 10:36

素数问题:提示
另一方面,除去1以外,有的数除了1和它本身以外,不能再被别的整数整除,如
  2、3、5、7、11、13、17、...
等,这种数称作素数(也称质数)。有的数除了1和它本身以外,还能被别的整数整除,这种数就叫合数,如
  4、6、8、9、10、12、14、...
等,就是合数。
大家做啊

随风 发表于 2008-4-11 12:15

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

:[code]@echo off&setlocal EnableDelayedExpansion
for /l %%a in (101 1 200) do (
  set /a n=%%a-1&set "flag="
  for /l %%b in (2 1 !n!) do (
    set /a m=%%a%%%%b
     if !m! equ 0 set flag=a
  )
  if not defined flag echo 素数 %%a
)
echo\&pause[/code]

youxi01 发表于 2008-4-11 12:44

回复 12楼 的帖子

代码稍做修改,效率稍有提高:[code]

@echo off&setlocal EnableDelayedExpansion
for /l %%a in (101 2 200) do (
  set "flag="
  for /l %%b in (3 2 15) do (
    set /a m=%%a %% %%b
     if !m! equ 0 set flag=A
  )
  if not defined flag echo 素数 %%a
)
echo\&pause


[/code]继续修正1,运行所用时间仅为原来的1/4
继续修正2,运行速率提高为原来的20倍

youxi01 发表于 2008-4-11 13:09

注意

以上计算方法个人认为适合 求算 10000 以内的素数,对于超大数字,应使用其它计算方法

huajinghua 发表于 2008-4-11 13:36

@echo off&setlocal EnableDelayedExpansion
for /l %%a in (101 2 200) do (
set t=%%a
set "flag="
set /a x=!t!/2
  for /l %%b in (2 1 !x!) do (
    set /a m=%%a %% %%b
     if !m! equ 0 set flag=A
  )
  if not defined flag echo 素数 %%a
)
echo\&pause
其实上面这段代码通用的,就是每个数让他去除小于它开根的数(但批处理不能算出根号,所以把范围在扩大为这个数到一半),youxi01的代码在101-200之内没问题,但换作把范围400时就多出了很多结果,呵呵,但用在101-200之内时就正确,而且运行速度快。上面这段代码就运行速度慢了点,但是没错误

[[i] 本帖最后由 huajinghua 于 2008-4-11 13:42 编辑 [/i]]

youxi01 发表于 2008-4-11 14:18

回复 15楼 的帖子

呵呵,换做400时,将第二个for循环中的 15 改成 20 即可!!

huajinghua 发表于 2008-4-11 16:40

继续讨论水仙花数……

随风 发表于 2008-4-11 17:20

水仙花数
原创作者: 梦想种子
:[code]@echo off&setlocal enabledelayedexpansion
:: 原创作者: 梦想种子
for /l %%i in (0 1 9) do set /a t%%i=%%i*%%i*%%i
for /l %%i in (1 1 10000) do (
  set "k=00000%%i"
  set a=!k:~-1!
  set b=!k:~-2,1!
  set c=!k:~-3,1!
  set d=!k:~-4,1!
  set e=!k:~-5,1!
  set /a n=t!a!+t!b!+t!c!+t!d!+t!e!
  if "!n!" == "%%i" echo %%i
)
pause[/code]

youxi01 发表于 2008-4-11 17:25

求水仙花数

测试代码:[code]@echo off&setlocal enabledelayedexpansion
echo 水仙花数有:&echo.
for /l %%i in (100 1 999) do (
        set var=%%i
        set/a num1=!var:~0,1!,num2=!var:~1,1!,num3=!var:~2,1!
        set/a var=!num1!*!num1!*!num1!+!num2!*!num2!*!num2!+!num3!*!num3!*!num3!
        if !var! EQU %%i echo %%i
        )

pause>nul[/code]

youxi01 发表于 2008-4-11 17:29

回复 18楼 的帖子

呵呵,这句非常不错,避免了重复计算。
[quote]
for /l %%i in (0 1 9) do set /a t%%i=%%i*%%i*%%i
[/quote]

随风 发表于 2008-4-11 17:59

【程序23】
题目:打印出如下图案(菱形)
*
***
******
********
******
***
*

:[code]@echo off&setlocal enabledelayedexpansion
set "ko=                              "
for /l %%i in (1 2 13) do (
  if defined flag (set /a n-=2&set /a c-=1) else set /a n=%%i&set /a c+=1
  call set m=%%ko:~!c!%%
  set /p=!m!<nul
  for /l %%b in (1 1 !n!) do set /p=*<nul
  echo.
  if !n! geq 7 set flag=a
)
echo.&pause[/code]

随风 发表于 2008-4-11 18:18

打印杨辉三角
转一个,
原创作者:wudixin96
:[code]@echo off&setlocal enabledelayedexpansion
:top
::原创作者:wudixin96
::  in=行数:
set/a ab=1,var=30,in=10
set str=1
for /l %%i in (1,1,%in%) do (
   set "num="
   set /a num2=0
   for %%a in (!str!) do (
   set /a num2+=1
   if !num2!==1 set "str1="
   set /a num1=%%a+num
   set "str1=!str1! !num1!"
   set num=%%a
   )
   call :lis "!str1:~1!"
   set "str=!str1! 0"
)
pause>nul
exit
:lis
set max=%~1
for /l %%a in (0 1 300) do (
  if not "!max:~%%a,1!"=="" set /a ci+=1
)
set /a ki=var-ci/2
for /l %%a in (1 1 !ki!) do set "kg= !kg!"
echo !kg!!max!
set nam!ab!=!kg!!max!
set /a ab+=1
set ci=0&set "kg="
goto :eof[/code]

huajinghua 发表于 2008-4-11 18:36

分解质因数

【程序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的值,重复执行第一步。

代码如下[code]@echo off
set /p a=请输入要分解的数
set /a c=a/2
:a
set /a b=%b%+1
set /a d=%a%/%b%
set /a s=%a%%%%b%
if not "%s%"=="0" (goto a) else (set/p=%b% <nul &set a=%d% &set b=1&goto a)
pause[/code]

[[i] 本帖最后由 huajinghua 于 2008-4-11 19:23 编辑 [/i]]

youxi01 发表于 2008-4-11 18:56

分解质因数

测试代码(里有一bug,不知各位是否测试的出来,目前并不明白bug产生原因)[code]@echo off&setlocal enabledelayedexpansion
:start
cls
set "str=1"
set /p EN=请输入一个数字:
call :CheckPrime %EN% Prime Remainder
set str=%str% x !OBJ!

if "!str:~-2,1!"=="1" set str=!str:~0,-4!
if not "!str:~-6,1!"=="1" set str=!str:~4!

echo.&echo %EN% = !str!
pause>nul
goto :start

:CheckPrime OBJ Prime Remainder
set /a OBJ=%~1,Remainder=0
set /a var=!OBJ!/2+1,var_=!OBJ! %% 2
if !var_! EQU 0 (
        set str=!str! x 2
        set/a Prime=2,Remainder=!OBJ!/2
        call :CheckPrime !Remainder! Prime Remainder
        )
for /l %%i in (3 2 !var!) do (
        set /a var_=!OBJ! %% %%i
        if !var_! EQU 0 (
                set str=!str! x %%i
                set/a Prime=%%i,Remainder=!OBJ!/%%i
                call :CheckPrime !Remainder! Prime Remainder
                )
        )[/code]

随风 发表于 2008-4-11 19:05

回复 24楼 的帖子

这么多题,在答题时,把题目一起贴出来好吗?

youxi01 发表于 2008-4-11 19:05

回复 23楼 的帖子

代码够简洁,不错。
但是碰到大指数肯定会遭遇效率问题,举例:3659

youxi01 发表于 2008-4-11 19:21

程序16:输入两个正整数m和n,求其最大公约数和最小公倍数。

转一个自己较早前写的代码了:[code]@echo off
echo.
echo          求两数的最大公约数、最小公倍数
echo ========================================
title 求两数的最大公约数
setlocal enabledelayedexpansion
set /p num1=请输入第一个数字:
set /p num2=请输入第二个数字:
set/a res=%num1%*%num2%
echo ----------------------------------------
echo %num1%和%num2%:&echo.
:test
     set /a temp=%num1% %% %num2%
     if %temp% NEQ 0 (
         set /a num1=!num2!
         set /a num2=!temp!
         goto :test)

set /a res=%res%/%num2%
echo 最小公倍数为:%res% 最大公约数为:%num2%
pause>nul[/code]

huajinghua 发表于 2008-4-11 19:25

回复 26楼 的帖子

对哦,呵呵,碰到大的素数时却是运算很慢。

youxi01 发表于 2008-4-11 19:27

回复 1楼 的帖子

建议将程序问题 和 解决方案按照如下格式罗列:
问题:***

解决方案:***F(***楼)
以便于查阅

huajinghua 发表于 2008-4-11 19:40

已将帖子题目和答案编辑好了!

页: [1] 2 3 4 5 6

Powered by Discuz! Archiver 7.2  © 2001-2009 Comsenz Inc.