分享讀心術(shù)批處理版不一樣的哦

[分享]讀心術(shù)批處理版不一樣的哦最后由 garyng 于 -8-29 19:29看了讀心術(shù)P處理版發(fā)現(xiàn)到：批處理也可以這樣！所以在我有限的批處理和數(shù)學(xué)的知識(shí)下，寫了這程序不一樣的哦！------------------------------------------------------------------------------------------------

@echo off
::因?yàn)榭戳薶ttp://bbs.bathome.net/viewthread.php?tid=2140&highlight=%B6%C1%D0%C4%CA%F5
::一時(shí)激動(dòng)寫了這程序～
::跟別的不一樣哦～
::原理想想看吧！
:main
color 0C
setlocal enabledelayedexpansion
mode con: cols=100 lines=50
echo┌───────────────┐
echo│讀心術(shù)批處理版│
echo│GaryNg嘔心瀝血制作│
echo└───────────────┘
echo 請(qǐng)想一個(gè)小于128的數(shù)（不包括128）
set 退格鍵= 
for /l %%a in (3 -1 1) do (set /p =!退格鍵!%%a秒的時(shí)間... <nul&ping -n 2 127.1 >nul)
cls&set num=
::1+2
:loop
for /l %%a in (1 2 127) do (
set /p=%%a<nul
)
echo/
echo/
echo 請(qǐng)問(wèn)這里有你想的數(shù)嗎？ 
set /p y=【有=y，沒(méi)有=n】
for /f delims=yn %%i in ('echo !y!') do cls&goto loop
if /i !y!==y (set /a num=1) else (set /a num=0)
::2+3
cls
set a=2
set b=3
:loop1
for /l %%b in (!a! 1 !b!) do (
set /p=%%b<nul
set /a a=a+2
set /a b=b+2
)
if !b! lss 128 goto loop1
echo/
echo/
echo 請(qǐng)問(wèn)這里有你想的數(shù)嗎？ 
set /p y=【有=y，沒(méi)有=n】
for /f delims=yn %%i in ('echo !y!') do cls&goto loop1
if /i !y!==y (set /a num=num+2) else (set /a num=num+0)
cls
::4+5
set c=4
set d=7
:loop2
for /l %%c in (!c! 1 !d!) do (
set /p=%%c<nul
set /a c=c+2
set /a d=d+2
)
if !d! lss 128 goto loop2
echo/
echo/
echo 請(qǐng)問(wèn)這里有你想的數(shù)嗎？ 
set /p y=【有=y，沒(méi)有=n】
for /f delims=yn %%i in ('echo !y!') do cls&goto loop2
if /i !y!==y (set /a num=num+4) else (set /a num=num+0)
cls
::8+9
set e=8
set f=15
:loop3
for /l %%d in (!e! 1 !f!) do (
set /p=%%d<nul
set /a e=e+2
set /a f=f+2
)
if !f! lss 128 goto loop3
echo/
echo/
echo 請(qǐng)問(wèn)這里有你想的數(shù)嗎？ 
set /p y=【有=y，沒(méi)有=n】
for /f delims=yn %%i in ('echo !y!') do cls&goto loop3
if /i !y!==y (set /a num=num+8) else (set /a num=num+0)
cls
::16+17
set g=16
set h=31
:loop4
for /l %%e in (!g! 1 !h!) do (
set /p=%%e<nul
set /a g=g+2
set /a h=h+2
)
if !g! lss 128 goto loop4
echo/
echo/
echo 請(qǐng)問(wèn)這里有你想的數(shù)嗎？ 
set /p y=【有=y，沒(méi)有=n】
for /f delims=yn %%i in ('echo !y!') do cls&goto loop4
if /i !y!==y (set /a num=num+16) else (set /a num=num+0)
cls
::32+33
set i=32
set j=63
:loop5
for /l %%f in (!i! 1 !j!) do (
set /p=%%f<nul
set /a i=i+2
set /a j=j+2
)
if !j! lss 128 goto loop5
echo/
echo/
echo 請(qǐng)問(wèn)這里有你想的數(shù)嗎？ 
set /p y=【有=y，沒(méi)有=n】
for /f delims=yn %%i in ('echo !y!') do cls&goto loop5
if /i !y!==y (set /a num=num+32) else (set /a num=num+0)
cls
::64+65
set k=64
set l=127
:loop6
for /l %%g in (!k! 1 !l!) do (
set /p=%%g<nul
set /a k=k+2
set /a l=l+2
)
if !l! lss 128 goto loop6
echo/
echo/
echo 請(qǐng)問(wèn)這里有你想的數(shù)嗎？ 
set /p y=【有=y，沒(méi)有=n】
for /f delims=yn %%i in ('echo !y!') do cls&goto loop6
if /i !y!==y (set /a num=num+64) else (set /a num=num+0)
cls
:last
echo 電腦透過(guò)復(fù)雜的計(jì)算后
echo 得出你腦里想的那個(gè)數(shù)
echo 那個(gè)數(shù)是：
echo ┌──────────┐
echo !num!
echo └──────────┘
echo 按任意鍵繼續(xù)...
pause>nul
cls
echo 厲害吧？原理自己想想吧！
echo 提示：二進(jìn)制
echo 按任意鍵重來(lái)...
pause>nul
goto main
nclick="copycode($('code0'));">復(fù)制代碼