用批处理解决数学问题.docx
《用批处理解决数学问题.docx》由会员分享，可在线阅读，更多相关《用批处理解决数学问题.docx（12页珍藏版）》请在冰豆网上搜索。
用批处理解决数学问题
#序号！
解决？
未解决
#01！
求水仙花数?
#02！
有四个数,其中任意三个数相加,所得的和分别是84,88,99,110,求这四个数?
#03！
赵姑娘的岁数有以下特点:
1.它的3次方是一个四位数,而4次方是一个六位数;
2.这四位数和六位数正好是0到9这十个数字组成.
问,这个数应该是什么数?
#04！
排一本辞典的页码共用了4889个数字。
这本辞典共有多少页？
答案:
1499
#05！
阿聪说他这次去西北看见一群骆驼，共有23个驼峰，60只脚。
请问单、双峰骆驼各多少只?
#06！
有一个五位奇数，将这个五位奇数中的所有2都换成5，所有5也都换成2，其他数保持不变，得到一个新的五位数，若新五位数的一半仍比原五位数大1，那么原五位数是多少？
#07！
五个连续自然数的和分别能被2、3、4、5、6整除，求满足此条件的最小的一组数。
#08！
我是个三位数，其中有一个数字是“3”，还有一个数字是“1”，另一个数字是未知数。
如果把“3”变成“4”、把“1”变成“3”，那么，原来的我将比假设后的我的一半还少“9”。
你知道原来是个什么数？
#09？
农夫琼斯对他老婆说:
"喂，玛丽亚，如果照我的办法，卖掉75只小鸡，那么咱们的鸡饲料还能维持20夭。
然而，假使照你的建议，再买进100只小鸡的话，那么鸡饲料将只够维持15天。
"
"啊，亲爱的，"她答道，"那我们现在有多少只小鸡呢？
"
问题就在这里了，他们究竟有多少只小鸡?
#10！
在所有的5位数当中，只包含两个3的数字有多少个?
#11！
将17分成几个自然数的和,求这几个自然数的最大乘积是多少?
#12？
将自然数2、3......乘到一起，它们的积的最后6位数恰好都是0，最后一个自然数最少可能是几？
#13！
被除数、除数和商三个数的和是181，商是12，求被除数。
#14？
商店里有六箱货物，分别重15、16、18、19、20、31千克，两个顾客买走了其中五箱．已知一个顾客买的货物重量是另一个顾客的2倍，那么，商店剩下的一箱货物重量是多少千克?
#15？
一个数除以3的余数是2，除以5的余数是1，则这个数除以15的余数是多少？
#16？
1.p是质数，且p×p+1也是质数。
求2006×p。
2.2006个2的乘积除以7的余数是多少。
========================================================================================
解决代码
========================================================================================
【01】by[lxmxn]
========================================================================================
@echooff&&setlocalENABLEDELAYEDEXPANSION
for%%ain（123456789）do（
for%%bin（0123456789）do（
for%%cin（0123456789）do（
set/aresult=%%a*%%a*%%a+%%b*%%b*%%b+%%c*%%c*%%c
if"!
result!
"=="%%a%%b%%c"（
echo%%a%%b%%c是水仙花数！
）
）
）
）
pause
========================================================================================
【02】by[lxmxn]
========================================================================================
========================================================================================
【03】by[youxi01]
========================================================================================
@echooff
setlocalenabledelayedexpansion
for/l%%iin（10130）do（
:
:
清空变量
setflag=
for/l%%ain（019）doset%%a=
:
:
取得立方和四次方
set/acube=%%i*%%i*%%i
set/as=!
cube!
*%%i
if!
cube!
geq1000if!
cube!
lss10000（
if!
s!
geq100000if!
s!
lss1000000（
setnum=!
s!
!
cube!
call:
test!
num!
ifnotdefinedflagecho%%i!
num!
）
）
）
pause>nul
:
test
for/l%%ain（019）do（
setvar=%1
:
:
将参数的第一个数字赋值给var_；检查变量值!
var_!
是否已经被作为变量被定义。
setvar_=!
var:
~%%a,1!
ifdefined!
var_!
setflag=1&goto:
eof
set!
var_!
=A
）
========================================================================================
【04】by[youxi01]
========================================================================================
@echooff
set/at_num=0
setlocalenabledelayedexpansion
echo正在检测数据.....
for/l%%iin（114889）do（
if!
t_num!
lss4889（
if%%ilss10set/at_num+=1
if%%igeq10if%%ilss100set/at_num+=2
if%%igeq100if%%ilss1000set/at_num+=3
if%%igeq1000set/at_num+=4
）elseset/anum=%%i-1&goto:
exit
）
:
exit
echo要求的数为：
%num%
pause>nul
========================================================================================
【05】by[youxi01]
========================================================================================
@echooff
set/aF_num=23
set/aJ_num=60/4
setlocalenabledelayedexpansion
for/l%%iin（11%J_num%）do（
set/aS_num=%%i
set/aB_num=%J_num%-%%i
set/anum=!
S_num!
+2*!
B_num!
call:
test!
num!
!
S_num!
!
B_num!
）
pause>nul
:
test
if%1EQU%F_num%echo可能的组合为：
单峰数目=%2双峰数目=%3
goto:
eof
========================================================================================
【06】by[youxi01]
========================================================================================
:
:
答案是：
29995。
@echooff&echo正在检测数据...
setlocalenabledelayedexpansion
for/l%%ain（019）do（
for/l%%bin（019）do（
for/l%%cin（019）do（
set/aFnum=2%%a%%b%%c5
setBnum=!
Fnum:
5=A!
setBnum=!
Bnum:
2=5!
set/aBnum=!
Bnum:
A=2!
set/aFnum_=2*!
Fnum!
+2
if!
Bnum!
EQU!
Fnum_!
echo!
Fnum!
）））
echo检测完毕!
pause>nul
:
:
说明：
该程序在XPprosp2下测试通过。
:
:
解决这个问题，首先我们要明确这个数字结尾必须是5，因为只有这样，才可以在转化后才是偶数，才可以被2整除；而且首位数字必须是:
:
2......
========================================================================================
【07】by[youxi01]
========================================================================================
:
:
答20楼：
答案是1011121314
@echooff
echo正在检测数据....
setlocalenabledelayedexpansion
for/l%%iin（1110000）do（
set/aflag=0
set/anum=5*%%i+10
set/anum1=!
num!
%%4
set/anum2=!
num!
%%5
set/anum3=!
num!
%%6
for%%ain（!
num1!
!
num2!
!
num3!
）do（
if%%aNEQ0set/aflag=1
）
if!
flag!
EQU0set/anum=%%i&goto:
exit
）
:
exit
for/l%%iin（014）do（
set/anum%%i=%num%+%%i
）
echo要求的连续的5个自然数为：
%num0%%num1%%num2%%num3%%num4%
pause>nul
xpprosp2下测试通过
========================================================================================
【08】by[youxi01]
========================================================================================
@echooff
rem经推算，首位数字必须为1，（除非未知数为1，为1的情况在第一个for中也处理了）
setlocalenabledelayedexpansion
for/l%%iin（019）do（
set/aFnum=1%%i3
set/aBnum=3%%i4
set/anum=!
Bnum!
/2-9
if!
Fnum!
EQU!
num!
echo!
Fnum!
）
for/l%%iin（019）do（
set/aFnum=13%%i
set/aBnum=34%%i
set/anum=!
Bnum!
/2-9
if!
Fnum!
EQU!
num!
echo!
Fnum!
）
pause>nul
========================================================================================
【09】by[youxi01]
========================================================================================
@echooff
rem小鸡的只数至少有76只:
setlocalenabledelayedexpansion
for/l%%iin（76110000）do（
set/aFnum=%%i*20-75*20
set/aBnum=%%i*15+100*15
if!
Fnum!
EQU!
Bnum!
echo小鸡的只数为：
%%i&goto:
exit）
:
exit
pause>nul
========================================================================================
【10】by[youxi01]
========================================================================================
@echooff
echo正在检测数据........
setlocalenabledelayedexpansion
set/aflag=0
for/l%%iin（10000,1,99999）do（
setnum=%%i
rem前面加个1是为了防止类似30820的特殊情况。
set/anum=1!
num:
3=!
if!
num!
lss2000if!
num!
gtr200set/aflag+=1）
echo%flag%
echo检测完毕!
pause>nul
========================================================================================
【11】by[youxi01]
========================================================================================
:
:
第11题稍微难一点。
利用高中的数学知识可以证明，凡是大于等于4的数，它都可以这样的两个数，它们
:
:
的和与该数相等，乘积要大于等于该数。
根据这样的推论，所有的数最后都会拆成这样的形式：
:
:
A*A*A*A....A为2或者3（因为只有2和3不能拆了，最后剩下的肯定只有2和3）。
所以我们就可以得到下面
:
:
的代码：
（答案是486，我不知道对不对^-^）
@echooff
setlocalenabledelayedexpansion
setnum=17
set/aCnum=%num%/3
set/aRnum=%num%%%2
set/aTnum=0
for/l%%iin（%Rnum%2%Cnum%）do（
setnum_=1
set/anum_tem=%num%/2-%%i*3/2
for/l%%ain（11%%i）do（
set/anum_*=3）
for/l%%bin（11!
num_tem!
）do（
set/anum_*=2）
if!
num_!
gtr!
Tnum!
set/aTnum=!
num_!
）
echo!
Tnum!
pause>nul
========================================================================================
【12】by[youxi01]
========================================================================================
@echooff
echo正在检测数据........
setlocalenabledelayedexpansion
set/anum=1
set/aflag=0
for/l%%iin（2110000）do（
call:
test%%i
echo%%i!
flag!
）
:
exit
echo最小的自然数为:
!
num!
echo.
echo检测完毕!
pause>nul
:
test
set/anum=!
num!
*%1
for/l%%iin（115）do（
if!
num:
~-1!
EQU0（set/aflag+=1&set/anum=!
num:
~0,-1!
）else（
set/anum=!
num:
~-1!
&goto:
eof））
========================================================================================
【13】by[youxi01]
========================================================================================
@echooff
echo正在检测数据........
setlocalenabledelayedexpansion
for/l%%ain（901180）do（
for/l%%bin（11%%a）do（
set/anum=%%a%%%%b
if!
num!
EQU0（
set/anum=%%a/%%b
set/anum_=!
num!
+%%a+%%b
if!
num_!
EQU181echo这样的数有，被除数：
%%a除数：
%%b商：
!
num!
）
）
）
echo.
echo检测完毕!
pause>nul
========================================================================================
【14】by[lxmxn]
========================================================================================
========================================================================================
【15】by[lxmxn]
========================================================================================
========================================================================================
【16】by[lxmxn]
========================================================================================
========================================================================================
【17】by[lxmxn]
========================================================================================
========================================================================================
【18】by[lxmxn]
========================================================================================
========================================================================================
【19】by[lxmxn]
========================================================================================
========================================================================================
【20】by[lxmxn]
========================================================================================
========================================================================================
【21】by[lxmxn]
========================================================================================
========================================================================================
【22】by[lxmxn]
=================================================
升级会员 