PCL505512957 当前离线
列兵
TOP
xuhuihihi 当前离线
539956485 当前离线
@echo off set num=100 :main set/a num=num+1 set/a m=num/100 set/a n=(num-100*m)/10 set/a j=(num-100*m-10*n) set/a sum=%m%*%m%*%m%+%n%*%n%*%n%+%j%*%j%*%j% if %num% equ %sum% echo %sum% if %num% equ 999 goto skip goto main :skip pause exit复制代码
悬崖之树 当前离线
上尉
@echo off & setlocal enabledelayedexpansion for /l %%a in (1 1 20) do ( set s=1 for /l %%b in (1 1 %%a) do ( set /a s*=%%b ) set /a sum+=!s! ) echo %sum% pause复制代码
@echo off & setlocal enabledelayedexpansion set a=1 for /l %%i in (1 1 9) do ( set /a a=a*2+1 ) echo 猴子一共摘了%a%个桃子。 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 ( echo %%a%%b%%c ) ) ) pause复制代码
@echo off & setlocal enabledelayedexpansion for %%a in (1 3 6 8 6 3 1) do ( for /l %%b in (1 1 %%a) do ( set c=!c!* ) echo !c! set c= ) pause复制代码
@echo off & setlocal enabledelayedexpansion for /l %%i in (1 1 9) do ( if %%i gtr 1 echo. for /l %%j in (1 1 %%i) do ( set /a c=%%j*%%i set "c=!c! " set /p=%%j*%%i=!c:~,2! <nul ) ) echo. pause复制代码
@echo off & setlocal enabledelayedexpansion for /l %%a in (100 1 999) do ( set s=%%a set a=!s:~,1! set b=!s:~1,1! set c=!s:~2,1! set /a sum=!a!*!a!*!a!+!b!*!b!*!b!+!c!*!c!*!c! if !sum!==!s! echo %%a ) pause复制代码
kuhaiqiudu120 当前离线
battab 当前离线
一级士官
@echo off :l cls setlocal enabledelayedexpansion set /p a=请输入第一个数: set /p b= 第二个数: set /p c= 第三个数: set /p d= 第四个数: set /p e= 第五个数: set /p f= 第六个数: set /p g= 第七个数: set /p h= 第八个数: set /p i= 第九个数: set /p j= 第十个数: echo 您输入的十个数为:%a% %b% %c% %d% %e% %f% %g% %h% %i% %j% if %a% lss %b% ( set t1=%a% set a=%b% set b=!t1! ) if %a% lss %c% ( set t2=%a% set a=%c% set c=!t2! ) if %a% lss %d% ( set t3=%a% set a=%d% set d=!t3! ) if %a% lss %e% ( set t4=%a% set a=%e% set e=!t4! ) if %a% lss %f% ( set t5=%a% set a=%f% set f=!t5! ) if %a% lss %g% ( set t6=%a% set a=%g% set g=!t6! ) if %a% lss %h% ( set t7=%a% set a=%h% set h=!t7! ) if %a% lss %i% ( set t8=%a% set a=%i% set i=!t8! ) if %a% lss %j% ( set t9=%a% set a=%j% set j=!t9! ) rem -----------------------确定第一位数。------------------------- if %b% lss %c% ( set t5=%b% set b=%c% set c=!t5! ) if %b% lss %d% ( set t6=%b% set b=%d% set d=!t6! ) if %b% lss %e% ( set t7=%b% set b=%e% set e=!t7! ) if %b% lss %f% ( set t7=%b% set b=%f% set f=!t7! ) if %b% lss %g% ( set t7=%b% set b=%g% set g=!t7! ) if %b% lss %h% ( set t7=%b% set b=%h% set h=!t7! ) if %b% lss %i% ( set t7=%b% set b=%i% set i=!t7! ) if %b% lss %j% ( set t7=%b% set b=%j% set j=!t7! ) rem -----------------------确定第二位数。------------------------- if %c% lss %d% ( set t8=%c% set c=%d% set d=!t8! ) if %c% lss %e% ( set t9=%c% set c=%e% set e=!t9! ) if %c% lss %f% ( set t9=%c% set c=%f% set f=!t9! ) if %c% lss %g% ( set t9=%c% set c=%g% set g=!t9! ) if %c% lss %h% ( set t9=%c% set c=%h% set h=!t9! ) if %c% lss %i% ( set t9=%c% set c=%i% set i=!t9! ) if %c% lss %j% ( set t9=%c% set c=%j% set j=!t9! ) rem -----------------------确定第三位数。------------------------- if %d% lss %e% ( set t10=%d% set d=%e% set e=!t10! ) if %d% lss %f% ( set t10=%d% set d=%f% set f=!t10! ) if %d% lss %g% ( set t10=%d% set d=%g% set g=!t10! ) if %d% lss %h% ( set t10=%d% set d=%h% set h=!t10! ) if %d% lss %i% ( set t10=%d% set d=%i% set i=!t10! ) if %d% lss %j% ( set t10=%d% set d=%j% set j=!t10! ) rem -----------------------确定第四位数。------------------------- if %e% lss %f% ( set t10=%e% set e=%f% set f=!t10! ) if %e% lss %g% ( set t10=%e% set e=%g% set g=!t10! ) if %e% lss %h% ( set t10=%e% set e=%h% set h=!t10! ) if %e% lss %i% ( set t10=%e% set e=%i% set i=!t10! ) if %e% lss %j% ( set t10=%e% set e=%j% set j=!t10! ) rem -----------------------确定第五位数。------------------------- if %f% lss %g% ( set t10=%f% set f=%g% set g=!t10! ) if %f% lss %h% ( set t10=%f% set f=%h% set h=!t10! ) if %f% lss %i% ( set t10=%f% set f=%i% set i=!t10! ) if %f% lss %j% ( set t10=%f% set f=%j% set j=!t10! ) rem -----------------------确定第六位数。------------------------- if %g% lss %h% ( set t10=%g% set g=%h% set h=!t10! ) if %g% lss %i% ( set t10=%g% set g=%i% set i=!t10! ) if %g% lss %j% ( set t10=%g% set g=%j% set j=!t10! ) rem -----------------------确定第七位数。------------------------- if %h% lss %i% ( set t10=%h% set h=%i% set i=!t10! ) if %h% lss %j% ( set t10=%h% set h=%j% set j=!t10! ) rem -----------------------确定第八位数。------------------------- if %i% lss %j% ( set t10=%i% set i=%j% set j=!t10! ) rem -----------------------确定第九位数。------------------------- echo 排序后的结果为:%a% %b% %c% %d% %e% %f% %g% %h% %i% %j% endlocal pause>nul goto l复制代码
zh_1452 当前离线
禁止发言
程序37 battab 发表于 2013-12-13 21:15
@echo off echo 这女娃代码也不错嘛,值得研究 下面是我给你补的图片复制代码
bailong360 (zhonghua)当前离线
@echo off SetLocal EnableDelayedExpansion set num=1 2 3 4 for %%a in (%num%) do ( set t_num=!num:%%a=! for %%b in (!t_num!) do ( set tt_num=!t_num:%%b=! for %%c in (!tt_num!) do ( echo %%a%%b%%c ) ) ) pause复制代码
@echo off SetLocal EnableDelayedExpansion set /p str=Please enter(2014.7.28): for /f "delims=. tokens=1-3" %%a in ("%str%") do ( call :jud %%a %%b %%c echo %%a.%%b.%%c is the !day!day for %%a pause>nul ) :jud for %%i in (1 3 5 7 8 10 12) do set %%i=31 for %%i in (4 6 9 11) do set %%i=30 set /a jud=%1 %% 400 if %jud%==0 ( set 2=29 ) else ( set /a jud=%1 %% 4 if !jud!==0 ( set /a jud=%~1 %% 100 if not !jud!==0 set 2=29 ) else (set 2=28) ) set /a month=%~2-1 for /l %%i in (1 1 %month%) do ( set /a day+=!%%i! ) set /a day+=%3复制代码