用批處理解決數(shù)學(xué)問(wèn)題的代碼

2020-03-29 20:15:22

字體：大中小

供稿：網(wǎng)友

#01 ！
求水仙花數(shù)?

#02 ！
有四個(gè)數(shù),其中任意三個(gè)數(shù)相加,所得的和分別是84,88,99,110,求這四個(gè)數(shù)?

#03 ！
趙姑娘的歲數(shù)有以下特點(diǎn):
1. 它的3次方是一個(gè)四位數(shù),而4次方是一個(gè)六位數(shù);
2. 這四位數(shù)和六位數(shù)正好是0到9這十個(gè)數(shù)字組成.
問(wèn),這個(gè)數(shù)應(yīng)該是什么數(shù)?

#04 ！
排一本辭典的頁(yè)碼共用了4889個(gè)數(shù)字。這本辭典共有多少頁(yè)？答案:1499

#05 ！
阿聰說(shuō)他這次去西北看見(jiàn)一群駱駝，共有23個(gè)駝峰，60只腳。請(qǐng)問(wèn)單、雙峰駱駝各多少只?

#06 ！
有一個(gè)五位奇數(shù)，將這個(gè)五位奇數(shù)中的所有2都換成5，所有5也都換成2，其他數(shù)保持不變，得到一個(gè)新的五位數(shù)，若新五位數(shù)的一半仍比原五位數(shù)大1，那么原五位數(shù)是多少？

#07 ！
五個(gè)連續(xù)自然數(shù)的和分別能被2、3、4、5、6整除，求滿足此條件的最小的一組數(shù)。

#08 ！
我是個(gè)三位數(shù)，其中有一個(gè)數(shù)字是“3”，還有一個(gè)數(shù)字是“1”，另一個(gè)數(shù)字是未知數(shù)。如果把“3”變成“4”、把“1”變成“3”，那么，原來(lái)的我將比假設(shè)后的我的一半還少“9”。你知道原來(lái)是個(gè)什么數(shù)？

#09 ？
農(nóng)夫瓊斯對(duì)他老婆說(shuō):"喂，瑪麗亞，如果照我的辦法，賣掉75只小雞，那么咱們的雞飼料還能維持20夭。然而，假使照你的建議，再買進(jìn)100只小雞的話，那么雞飼料將只夠維持15天。"
"啊，親愛(ài)的，"她答道，"那我們現(xiàn)在有多少只小雞呢？"
問(wèn)題就在這里了，他們究竟有多少只小雞?

#10 ！
在所有的5位數(shù)當(dāng)中，只包含兩個(gè)3的數(shù)字有多少個(gè)?

#11 ！
將17分成幾個(gè)自然數(shù)的和,求這幾個(gè)自然數(shù)的最大乘積是多少?

#12 ？
將自然數(shù)2、3......乘到一起，它們的積的最后6位數(shù)恰好都是0，最后一個(gè)自然數(shù)最少可能是幾？

#13 ！
被除數(shù)、除數(shù)和商三個(gè)數(shù)的和是181，商是12，求被除數(shù)。

#14 ？
商店里有六箱貨物，分別重15、16、18、19、20、31千克，兩個(gè)顧客買走了其中五箱．已知一個(gè)顧客買的貨物重量是另一個(gè)顧客的2倍，那么，商店剩下的一箱貨物重量是多少千克?

#15 ？
一個(gè)數(shù)除以3的余數(shù)是2，除以5的余數(shù)是1，則這個(gè)數(shù)除以15的余數(shù)是多少？

#16 ？
1. p是質(zhì)數(shù)，且p×p+1也是質(zhì)數(shù)。求2006×p。
2. 2006個(gè)2的乘積除以7的余數(shù)是多少。

========================================================================================
解決代碼
========================================================================================
【01】by [lxmxn]
========================================================================================

@echo off&&setlocal ENABLEDELAYEDEXPANSION
for %%a in (1 2 3 4 5 6 7 8 9) do (
for %%b in (0 1 2 3 4 5 6 7 8 9) do (
for %%c in (0 1 2 3 4 5 6 7 8 9) do (
set/a result=%%a*%%a*%%a+%%b*%%b*%%b+%%c*%%c*%%c
if "!result!"=="%%a%%b%%c" (
echo %%a%%b%%c是水仙花數(shù)！
)

)
)
)
pause

========================================================================================
【02】by [lxmxn]
========================================================================================
========================================================================================
【03】by [youxi01]
========================================================================================
@echo off
setlocal enabledelayedexpansion
for /l %%i in (10 1 30) do (
::清空變量
set flag=
for /l %%a in (0 1 9) do set %%a=
::取得立方和四次方
set /a cube=%%i*%%i*%%i
set /a s=!cube!*%%i
if !cube! geq 1000 if !cube! lss 10000 (
if !s! geq 100000 if !s! lss 1000000 (
set num=!s!!cube!
call :test !num!
if not defined flag echo %%i !num!
)
)
)

pause>nul
:test
for /l %%a in (0 1 9) do (
set var=%1
::將參數(shù)的第一個(gè)數(shù)字賦值給var_；檢查變量值!var_!是否已經(jīng)被作為變量被定義。
set var_=!var:~%%a,1!
if defined !var_! set flag=1 & goto :eof
set !var_!=A
)

========================================================================================
【04】by [youxi01]
========================================================================================

@echo off
set /a t_num=0
setlocal enabledelayedexpansion

echo 正在檢測(cè)數(shù)據(jù).....
for /l %%i in (1 1 4889) do (
if !t_num! lss 4889 (
if %%i lss 10 set /a t_num+=1
if %%i geq 10 if %%i lss 100 set /a t_num+=2
if %%i geq 100 if %%i lss 1000 set /a t_num+=3
if %%i geq 1000 set /a t_num+=4
) else set /a num=%%i-1 & goto :exit
)
:exit
echo 要求的數(shù)為：%num%
pause>nul

========================================================================================
【05】by [youxi01]
========================================================================================

@echo off
set /a F_num=23
set /a J_num=60/4

setlocal enabledelayedexpansion
for /l %%i in (1 1 %J_num%) do (
set /a S_num=%%i
set /a B_num=%J_num%-%%i
set /a num=!S_num!+2*!B_num!
call :test !num! !S_num! !B_num!
)
pause>nul

:test
if %1 EQU %F_num% echo 可能的組合為：?jiǎn)畏鍞?shù)目=%2 雙峰數(shù)目=%3
goto :eof

========================================================================================
【06】by [youxi01]
========================================================================================
::答案是：29995。

@echo off & echo 正在檢測(cè)數(shù)據(jù)...
setlocal enabledelayedexpansion
for /l %%a in (0 1 9) do (
for /l %%b in (0 1 9) do (
for /l %%c in (0 1 9) do (
set/a Fnum=2%%a%%b%%c5
set Bnum=!Fnum:5=A!
set Bnum=!Bnum:2=5!
set/a Bnum=!Bnum:A=2!
set/a Fnum_=2*!Fnum!+2
if !Bnum! EQU !Fnum_! echo !Fnum!
)))
echo 檢測(cè)完畢!
pause>nul

::說(shuō)明：該程序在XP pro sp2下測(cè)試通過(guò)。
::解決這個(gè)問(wèn)題，首先我們要明確這個(gè)數(shù)字結(jié)尾必須是5，因?yàn)橹挥羞@樣，才可以在轉(zhuǎn)化后才是偶數(shù)，才可以被2整除；而且首位數(shù)字必須是::2......

========================================================================================
【07】by [youxi01]
========================================================================================
::答20樓：答案是10 11 12 13 14

@echo off
echo 正在檢測(cè)數(shù)據(jù)....
setlocal enabledelayedexpansion
for /l %%i in (1 1 10000) do (
set /a flag=0
set /a num=5*%%i+10
set /a num1=!num!%%4
set /a num2=!num!%%5
set /a num3=!num!%%6
for %%a in (!num1! !num2! !num3!) do (
if %%a NEQ 0 set /a flag=1
)
if !flag! EQU 0 set /a num=%%i & goto :exit
)
:exit
for /l %%i in (0 1 4) do (
set /a num%%i=%num%+%%i
)
echo 要求的連續(xù)的5個(gè)自然數(shù)為：%num0% %num1% %num2% %num3% %num4%
pause>nul

xp pro sp2下測(cè)試通過(guò)

========================================================================================
【08】by [youxi01]
========================================================================================

@echo off
rem 經(jīng)推算，首位數(shù)字必須為1，（除非未知數(shù)為1，為1的情況在第一個(gè)for中也處理了）
setlocal enabledelayedexpansion
for /l %%i in (0 1 9) do (
set /a Fnum=1%%i3
set /a Bnum=3%%i4
set /a num=!Bnum!/2-9
if !Fnum! EQU !num! echo !Fnum!)

for /l %%i in (0 1 9) do (
set /a Fnum=13%%i
set /a Bnum=34%%i
set /a num=!Bnum!/2-9
if !Fnum! EQU !num! echo !Fnum!)
pause>nul

========================================================================================
【09】by [youxi01]
========================================================================================

@echo off
rem 小雞的只數(shù)至少有76只:

setlocal enabledelayedexpansion
for /l %%i in (76 1 10000) do (
set /a Fnum=%%i*20-75*20
set /a Bnum=%%i*15+100*15
if !Fnum! EQU !Bnum! echo 小雞的只數(shù)為：%%i & goto :exit)
:exit
pause>nul

========================================================================================
【10】by [youxi01]
========================================================================================

@echo off
echo 正在檢測(cè)數(shù)據(jù)........
setlocal enabledelayedexpansion
set /a flag=0
for /l %%i in (10000,1,99999) do (
set num=%%i
rem 前面加個(gè)1是為了防止類似30820的特殊情況。
set /a num=1!num:3=!
if !num! lss 2000 if !num! gtr 200 set /a flag+=1)
echo %flag%
echo 檢測(cè)完畢!
pause>nul

========================================================================================
【11】by [youxi01]
========================================================================================
::第11題稍微難一點(diǎn)。利用高中的數(shù)學(xué)知識(shí)可以證明，凡是大于等于4的數(shù)，它都可以這樣的兩個(gè)數(shù)，它們
::的和與該數(shù)相等，乘積要大于等于該數(shù)。根據(jù)這樣的推論，所有的數(shù)最后都會(huì)拆成這樣的形式：
::A*A*A*A....A為2或者3(因?yàn)橹挥?和3不能拆了，最后剩下的肯定只有2和3)。所以我們就可以得到下面
::的代碼：（答案是486，我不知道對(duì)不對(duì)^-^）

@echo off
setlocal enabledelayedexpansion
set num=17
set /a Cnum=%num%/3
set /a Rnum=%num%%%2
set /a Tnum=0
for /l %%i in (%Rnum% 2 %Cnum%) do (
set num_=1
set /a num_tem=%num%/2-%%i*3/2
for /l %%a in (1 1 %%i) do (
set /a num_*=3)
for /l %%b in (1 1 !num_tem!) do (
set /a num_*=2)
if !num_! gtr !Tnum! set /a Tnum=!num_!
)
echo !Tnum!
pause>nul

========================================================================================
【12】by [youxi01]
========================================================================================

@echo off
echo 正在檢測(cè)數(shù)據(jù)........
setlocal enabledelayedexpansion
set /a num=1
set /a flag=0
for /l %%i in (2 1 10000) do (
call :test %%i
echo %%i !flag!)

:exit
echo 最小的自然數(shù)為:!num!
echo.
echo 檢測(cè)完畢!
pause>nul

:test
set /a num=!num!*%1
for /l %%i in (1 1 5) do (
if !num:~-1! EQU 0 (set /a flag+=1 & set /a num=!num:~0,-1!) else (
set /a num=!num:~-1! & goto :eof))

========================================================================================
【13】by [youxi01]
========================================================================================

@echo off
echo 正在檢測(cè)數(shù)據(jù)........
setlocal enabledelayedexpansion

for /l %%a in (90 1 180) do (
for /l %%b in (1 1 %%a) do (
set /a num=%%a %% %%b
if !num! EQU 0 (
set /a num=%%a/%%b
set /a num_=!num!+%%a+%%b
if !num_! EQU 181 echo 這樣的數(shù)有，被除數(shù)：%%a 除數(shù)：%%b 商：!num!
)
)
)
echo.
echo 檢測(cè)完畢!
pause>nul

上一篇：cmd下PUSHD和POPD命令使用說(shuō)明

下一篇：批處理BAT加強(qiáng)函數(shù)代碼使用說(shuō)明