qq399254368

第二题
zhouyongjun 发表于 2009-4-13 13:22

  for /f "delims=%1" %%i in ("0123456789") do set num4=%%i
if not defined num4 echo !num1!中的 delims=%1引用的是什么哦

keiamy

程序10：

@echo off
set "num=17"
set /a "x=1,n=num/3,m=num%%3"
for /l %%i in (1 1 %n%) do (set /a x*=3)
if %m%==2 set /a "x*=2"
if %m%==1 set /a "x=x*4/3"
echo %x%
pause
复制代码

keiamy

程序7:

@echo off&setlocal enabledelayedexpansion
for /l %%i in (0 1 9) do (
  set /a "num=3%%i4/2-39"
 if !num!==1%%i3 echo 1%%i3)
pause
复制代码

keiamy

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1 1 1000) do (
 set /a "flag=0,num+=%%i"
 if %%i gtr 4 (
  set /a "n=%%i-5"
   for %%j in (!n!) do set /a "m+=%%j"
    set /a "num1=num-m"
     for %%k in (4 5 6) do (
      set /a "x=num1%%%%k"
      if !x! neq 0 set "flag=1")
      if !flag!==0 set "num2=%%i"&goto end))
:end
set /a "num3=num2-4"
for /l %%i in (%num3% 1 %num2%) do set /p=%%i <nul
pause>nul
复制代码

原來規律是1+2+...5=15, 2+3...+6=20,簡單複雜化了.......

keiamy

程序6:參考了youxi01的

@echo off&setlocal enabledelayedexpansion
for /l %%i in (1 1 1000) do (
 set "flag=0"&set "a=!b!"
 set "b=!c!"&set "c=!d!"
 set "d=!e!"&set "e=%%i"
  if "!a!" geq "1" (
   set /a "num=a+b+c+d+e"
    for %%j in (4 5 6) do (
     set /a "n=!num!%%%%j"
     if !n! neq 0 set "flag=1")
     if !flag!==0 echo !a! !b! !c! !d! !e!&pause&exit))
复制代码

dong815

能帮忙解释一下那两行吗？delims不是分割符的意思吗？我新手，怎么都看不懂

fish

@echo off
set s=1
set t=9
set p=9
set /p page=请输入辞典的页码：
set count=1

:start
if %p% geq %page% goto calc
set /a count+=1
set /a p*=10
set /a t+=p*count
goto start
:calc

set /a t-=p*count
set /a t=(page-t)/count
set /a count-=1
for /l %%i in (1,1,%count%) do set /a s*=10
set /a s+=t-1
set /p=这本辞典共有%s%页。
复制代码

rogue_1983

我真郁闷了，这是给新手做的啊？用到数学逻辑推理，而且用到很多批处理命令。我倒！

poxi

做了一下午..做出来8个...

=========
大大们帮检查...
是不是给点奖励捏.....
========
end；

mangci

@ echo off
title=有四个数,其中任意三个数相加,求这四个数
set /a num=(84+88+99+110)/3
set /a num1=%num%-84
set /a num2=%num%-88
set /a num3=%num%-99
set /a num4=%num%-110
echo,第一个数%num1%
echo,第二个数%num2%
echo,第三个数%num3%
echo,第四个数%num4%
pause
复制代码

lixiaofei521

严重打击学习热情

P_Ricky

程序8：

@echo off
setlocal enabledelayedexpansion
for /l %%i in (1 1 1000) do (
set /a n1="(%%i -75)*20"
set /a n2="(%%i+100)*15"
if !n1!==!n2! echo %%i
)
复制代码

inittab

程序13
分析：买走的货物重量能被3整除，先计算总重量。分别减去每种货的重量。提取出能被3整除五除货物。本题恰好只能一个可以被3整除。答案很快就会出来。但为了计算两个客人都买走了那些货物，还需要对留下的5种货物进行循环计算，最终出结果。

@echo off&setlocal enabledelayedexpansion
cls
echo.
echo\   问题:商店里有六箱货物，分别重15、16、18、19、20、31千克，
echo\两个顾客买走了其中五箱．已知一个顾客买的货物重量是另一个顾客的2倍，
echo\那么，商店剩下的一箱货物重量是多少千克?
echo\=====================================================================================
set str0=15 16 18 19 20 31
set/a total=15+16+18+19+20+31
for %%i in (!str0!) do (
set/a var1=%%i,md=total-var1,avr=md/3,ys=md%%3
if !ys! equ 0 (
set "str1=!str0:%%i =!"
for %%j in (!str1!) do (
set/a var2=%%j,var3=avr-%%j
set "str2=!str1:%%j =!"
for %%l in (!str2!) do (
if !var3! equ %%l (
set var4=!str2:%%l =!
echo 答案:商店剩下的一箱货物重量是:!var1!
echo 一客人买走了!var2! !var3!两箱的货物,另一客人分别买走了!var4!货物
pause>nul&goto:eof
)))))
复制代码

有更好的算法，请赐教。

inittab

程序5. 范了个低级错误。调了N次，终于调成了。

 
@echo off&setlocal enabledelayedexpansion
echo\有一个五位奇数，将这个五位奇数中的所有2都换成5，所有5也都换成2，其他数保持不变，
echo\得到一个新的五位数，若新五位数的一半仍比原五位数大1，那么原五位数是多少？
for /l %%i in (20005,10,29995) do (
set num=%%i
set var=!num:2=a!&set var=!var:5=2!&set var=!var:a=5!
set/a var0=var/2-1
if !var0! equ !num! (echo 答案是: !num!&pause&goto :eof)
)
复制代码

[ 本帖最后由 inittab 于 2009-4-23 19:52 编辑 ]

inittab

程序4

@echo off&setlocal enabledelayedexpansion
echo\阿聪说他这次去西北看见一群骆驼，共有23个驼峰，60只脚。请问单、双峰骆驼各多少只?
set/a num=60/4
for /l %%i in (1,1,!num!) do (
set/a m=%%i,n=15-m
set/a tf=m+2*n
if !tf! equ 23 (echo\答:单、双峰骆驼各!m!,!n!只&pause&goto :eof)
)
复制代码