联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！
精华I
查看 36,430 回复 139
@echo off
set c1=5
set c2=3
set/a pen=2*c2/(c1-c2)
set/a 温差=(pen+1)*c1
set/a 温升=(温差-c1-c2)/(pen+3)
echo 原来水有%pen%杯，原来盆里的水和杯里的水的温差是%温差%度。
echo 现在温升是%温升%度。
pause
@echo off
setlocal enabledelayedexpansion
for /l %%i in (1 1 79) do (
set /a chick_num=%%i
set /a dog_num=79-!chick_num!
set /a footnum=2*!chick_num!+4*!dog_num!
if !footnum! EQU 200 (
set msg1=小鸡的只数为：!chick_num!
set msg2=狗的只数为：!dog_num!
goto :exit
)
)
:exit
echo %msg1%
echo %msg2%
pause>nul
@echo off
setlocal enabledelayedexpansion
for /l %%i in (0 4 100) do (
set /a small=%%i/4
set /a big=400-%%i*4
set /a total=!small!+!big!
if !total! EQU 100 (
set msg1=小和尚人数为：%%i
set /a num=100-%%i
set msg2=大和尚人数为：!num!
goto :exit
)
)
:exit
echo %msg1%
echo %msg2%
pause>nul
@echo off
setlocal enabledelayedexpansion
set flag=1
call :test 243
echo 至少应该要：%flag%次
pause>nul
:test
set /a tmp=%1 %% 2
set /a num=%1
if %tmp% NEQ 0 set /a num-=1
if %num% geq 2 (
set /a num/=2
set /a flag+=1
call :test !num!)
goto :eof
@echo off
setlocal enabledelayedexpansion
echo 10000以内的素数有：
set/p a= 2 3 5 7 <nul
for /l %%a in (9 2 99) do (set/a a=%%a%%3
set/a b=%%a%%5
set/a c=%%a%%7
if not !a!==0 if not !b!==0 if not !c!==0 set/p a=%%a <nul)
for /l %%a in (101 2 9999) do (for /l %%b in (3 2 97) do (set/a a=%%a%%%%b
if !a!==0 set b=1)
if not !b!==1 set/p a=%%a <nul
set b=0)| 评分人 | 分数 | 时间 |
|---|---|---|
| youxi01 | +2 | 2006-11-25 12:00 |
@echo off
:1
set/a a+=3
set/a b+=1
if not %a%==9 goto 1
echo 这只青蛙要蹦%b%次才能跳出井口
pause@echo off
set/a a=(200-79*2)/(4-2)
set/a b=79-a
echo 共有%b%只鸡,%a%只狗
pause@echo off
set/a a=(100*4-100*1)/(4*4-1)
set/a b=100-a
echo 共有%b%个小和尚，大和尚%a%个
pause
@echo off
setlocal enabledelayedexpansion
for /l %%a in (2 1 49) do (
for /l %%b in (%%a 1 49) do (
title %%a %%b
set /a mult=%%a*%%b
call :test !mult! %%a %%b
set !mult!=%%a × %%b
)
)
pause>nul
:test
if defined %1 (
echo !%1!=!mult!
echo %2 × %3 =!mult!
echo.)
Originally posted by youxi01 at 2006-11-24 22:58:
欣赏 不得不爱 斑竹的素数搜索程序；
斑竹对24 25 26的解答似乎是解方程的方式哦